mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
Majorly re-organize modules
- Split large modules into smaller parts (e.g. siren-text-manipulation) - Organize modules into high level groups: - completion - core - editor - languages - linting - misc - navigation - projects - spelling - text-editing - version-control - windows - workspaces
This commit is contained in:
36
modules/workspaces/siren-elscreen.el
Normal file
36
modules/workspaces/siren-elscreen.el
Normal file
@@ -0,0 +1,36 @@
|
||||
;;; siren-elscreen.el --- jimeh's Emacs Siren: elscreen configuration.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Basic configuration for elscreen.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(use-package elscreen
|
||||
:demand
|
||||
:bind (("s-}" . elscreen-next)
|
||||
("s-{" . elscreen-previous)
|
||||
|
||||
:map elscreen-map
|
||||
;; Prefix key.
|
||||
("C-z" . elscreen-map)
|
||||
|
||||
;; Set screen nickname
|
||||
("," . elscreen-screen-nickname)
|
||||
("C-," . elscreen-screen-nickname)
|
||||
|
||||
;; Toggle screens.
|
||||
("l" . elscreen-toggle)
|
||||
("C-l" . elscreen-toggle)
|
||||
|
||||
;; Display list of screens.
|
||||
(";" . elscreen-display-screen-name-list)
|
||||
("C-;" . elscreen-display-screen-name-list))
|
||||
|
||||
:config
|
||||
(elscreen-start))
|
||||
|
||||
(use-package elscreen-buffer-group :defer t)
|
||||
|
||||
(provide 'siren-elscreen)
|
||||
;;; siren-elscreen.el ends here
|
||||
54
modules/workspaces/siren-escreen.el
Normal file
54
modules/workspaces/siren-escreen.el
Normal file
@@ -0,0 +1,54 @@
|
||||
;;; siren-escreen.el --- jimeh's Emacs Siren: escreen configuration.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Basic configuration for escreen.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(use-package escreen
|
||||
:ensure nil ;; loaded from vendor
|
||||
:demand
|
||||
|
||||
:bind (("s-}" . escreen-goto-next-screen)
|
||||
("s-{" . escreen-goto-prev-screen)
|
||||
:map escreen-map
|
||||
("C-z" . escreen-goto-last-screen)
|
||||
("l" . escreen-goto-last-screen)
|
||||
("C-l" . escreen-goto-last-screen)
|
||||
(";" . siren-escreen-get-active-screen)
|
||||
("C-;" . siren-escreen-get-active-screen)
|
||||
("C-c" . escreen-create-screen)
|
||||
("C-g" . escreen-goto-screen)
|
||||
("C-k" . escreen-kill-screen)
|
||||
("C-n" . escreen-goto-next-screen)
|
||||
("C-p" . escreen-goto-prev-screen))
|
||||
|
||||
:hook
|
||||
(escreen-goto-screen . siren-escreen-get-active-screen)
|
||||
|
||||
:init
|
||||
(defun siren-escreen-get-active-screen ()
|
||||
"what the name says"
|
||||
(interactive)
|
||||
(let ((escreens (escreen-get-active-screen-numbers))
|
||||
(emphased ""))
|
||||
(dolist (s escreens)
|
||||
(setq emphased
|
||||
(concat emphased (if (= escreen-current-screen-number s)
|
||||
(propertize (number-to-string s)
|
||||
;;'face 'custom-variable-tag) " ")
|
||||
;;'face 'info-title-3)
|
||||
'face 'font-lock-warning-face)
|
||||
;;'face 'secondary-selection)
|
||||
(number-to-string s))
|
||||
" ")))
|
||||
(message "escreen: active screens: %s" emphased)))
|
||||
|
||||
:config
|
||||
(escreen-install)
|
||||
(setq escreen-prefix-char (kbd "C-z"))
|
||||
(global-set-key escreen-prefix-char 'escreen-prefix))
|
||||
|
||||
(provide 'siren-escreen)
|
||||
;;; siren-escreen.el ends here
|
||||
52
modules/workspaces/siren-eyebrowse.el
Normal file
52
modules/workspaces/siren-eyebrowse.el
Normal file
@@ -0,0 +1,52 @@
|
||||
;;; siren-eyebrowse.el --- jimeh's Emacs Siren: eyebrowse configuration.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Basic configuration for eyebrowse.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(use-package eyebrowse
|
||||
:init
|
||||
;; Fix side-window issue: https://github.com/wasamasa/eyebrowse/issues/52
|
||||
(add-to-list 'window-persistent-parameters '(window-side . writable))
|
||||
(add-to-list 'window-persistent-parameters '(window-slot . writable))
|
||||
|
||||
:config
|
||||
(setq eyebrowse-default-workspace-slot 0
|
||||
eyebrowse-keymap-prefix ""
|
||||
eyebrowse-mode-line-style 'always
|
||||
eyebrowse-new-workspace t
|
||||
eyebrowse-wrap-around t)
|
||||
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(define-key map (kbd "c") 'eyebrowse-create-window-config)
|
||||
(define-key map (kbd "C-c") 'eyebrowse-create-window-config)
|
||||
(define-key map (kbd "k") 'eyebrowse-close-window-config)
|
||||
(define-key map (kbd "C-k") 'eyebrowse-close-window-config)
|
||||
(define-key map (kbd "n") 'eyebrowse-next-window-config)
|
||||
(define-key map (kbd "C-n") 'eyebrowse-next-window-config)
|
||||
(define-key map (kbd "p") 'eyebrowse-prev-window-config)
|
||||
(define-key map (kbd "C-p") 'eyebrowse-prev-window-config)
|
||||
(define-key map (kbd "l") 'eyebrowse-last-window-config)
|
||||
(define-key map (kbd "C-l") 'eyebrowse-last-window-config)
|
||||
(define-key map (kbd ",") 'eyebrowse-rename-window-config)
|
||||
(define-key map (kbd "C-,") 'eyebrowse-rename-window-config)
|
||||
(define-key map (kbd ";") 'eyebrowse-switch-to-window-config)
|
||||
(define-key map (kbd "C-;") 'eyebrowse-switch-to-window-config)
|
||||
(define-key map (kbd "0") 'eyebrowse-switch-to-window-config-0)
|
||||
(define-key map (kbd "1") 'eyebrowse-switch-to-window-config-1)
|
||||
(define-key map (kbd "2") 'eyebrowse-switch-to-window-config-2)
|
||||
(define-key map (kbd "3") 'eyebrowse-switch-to-window-config-3)
|
||||
(define-key map (kbd "4") 'eyebrowse-switch-to-window-config-4)
|
||||
(define-key map (kbd "5") 'eyebrowse-switch-to-window-config-5)
|
||||
(define-key map (kbd "6") 'eyebrowse-switch-to-window-config-6)
|
||||
(define-key map (kbd "7") 'eyebrowse-switch-to-window-config-7)
|
||||
(define-key map (kbd "8") 'eyebrowse-switch-to-window-config-8)
|
||||
(define-key map (kbd "9") 'eyebrowse-switch-to-window-config-9)
|
||||
(define-key eyebrowse-mode-map eyebrowse-keymap-prefix map))
|
||||
|
||||
(eyebrowse-mode t)
|
||||
|
||||
(provide 'siren-eyebrowse))
|
||||
;;; siren-eyebrowse.el ends here
|
||||
48
modules/workspaces/siren-perspective.el
Normal file
48
modules/workspaces/siren-perspective.el
Normal file
@@ -0,0 +1,48 @@
|
||||
;;; siren-perspective.el --- jimeh's Emacs Siren: perspective configuration.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Basic configuration for perspective.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(use-package perspective
|
||||
:demand
|
||||
:bind (:map persp-mode-map
|
||||
("C-z z" . persp-switch)
|
||||
("C-z C-z" . persp-switch)
|
||||
("C-z c" . persp-switch)
|
||||
("C-z C-c" . persp-switch)
|
||||
("C-z s" . persp-switch)
|
||||
("C-z C-s" . persp-switch)
|
||||
("C-z b" . persp-switch)
|
||||
("C-z C-b" . persp-switch)
|
||||
("C-z l" . persp-switch-last)
|
||||
("C-z C-l" . persp-switch-last)
|
||||
("C-z c" . persp-remove-buffer)
|
||||
("C-z C-c" . persp-remove-buffer)
|
||||
("C-z k" . persp-kill)
|
||||
("C-z C-k" . persp-kill)
|
||||
("C-z r" . persp-rename)
|
||||
("C-z C-r" . persp-rename)
|
||||
("C-z a" . persp-add-buffer)
|
||||
("C-z C-a" . persp-add-buffer)
|
||||
("C-z i" . persp-import)
|
||||
("C-z C-i" . persp-import)
|
||||
("C-z n" . persp-next)
|
||||
("C-z C-n" . persp-next)
|
||||
("C-z p" . persp-prev)
|
||||
("C-z C-p" . persp-prev))
|
||||
:config
|
||||
(setq persp-mode-prefix-key ""
|
||||
persp-initial-frame-name "0:main")
|
||||
|
||||
(define-key persp-mode-map (kbd "C-z") perspective-map)
|
||||
(persp-mode)
|
||||
|
||||
;; (custom-set-faces
|
||||
;; '(persp-selected-face ((t (:foreground "#d97a35" :weight bold)))))
|
||||
)
|
||||
|
||||
(provide 'siren-perspective)
|
||||
;;; siren-perspective.el ends here
|
||||
14
modules/workspaces/siren-workgroups2.el
Normal file
14
modules/workspaces/siren-workgroups2.el
Normal file
@@ -0,0 +1,14 @@
|
||||
;;; siren-workgroups2.el --- jimeh's Emacs Siren: workgroups2 configuration.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Basic configuration for workgroups2.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(use-package workgroups2
|
||||
:config
|
||||
(setq wg-prefix-key (kbd "C-z")))
|
||||
|
||||
(provide 'siren-workgroups2)
|
||||
;;; siren-workgroups2.el ends here
|
||||
Reference in New Issue
Block a user