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:
2018-05-20 17:31:11 +01:00
parent 3b07c4cfbf
commit 87a86191db
118 changed files with 592 additions and 463 deletions

View 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

View 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

View 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

View 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

View 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