diff --git a/custom-variables.el b/custom-variables.el index 4e03745..6160922 100644 --- a/custom-variables.el +++ b/custom-variables.el @@ -100,6 +100,8 @@ ("Note" 110 "** %? " "~/.org-files/notes.org" "Notes")))) '(org-reverse-note-order t) + '(persp-modestring-dividers (quote (" [" "]" "|"))) + '(persp-show-modestring t) '(php-mode-dot-property-warning t) '(projectile-completion-system (quote grizzl)) '(projectile-enable-caching nil) @@ -135,4 +137,5 @@ '(mumamo-background-chunk-submode1 ((t nil)) t) '(mumamo-background-chunk-submode2 ((t nil)) t) '(mumamo-background-chunk-submode3 ((t nil)) t) - '(mumamo-background-chunk-submode4 ((t nil)) t)) + '(mumamo-background-chunk-submode4 ((t nil)) t) + '(persp-selected-face ((t (:foreground "royal blue" :weight bold))))) diff --git a/keybindings.el b/keybindings.el index ce8e484..0e39bda 100644 --- a/keybindings.el +++ b/keybindings.el @@ -193,6 +193,7 @@ ;; ElScreen related shortcuts (when (require 'elscreen nil 'noerror) + (define-key elscreen-map (kbd "C-z") elscreen-map) ;; Goto screens. (global-set-key (kbd "s-}") 'elscreen-next) @@ -210,6 +211,35 @@ (define-key elscreen-map (kbd ";") 'elscreen-display-screen-name-list) (define-key elscreen-map (kbd "C-;") 'elscreen-display-screen-name-list)) +(when (require 'perspective nil 'noerror) + (define-key persp-mode-map (kbd "C-z") perspective-map) + + (define-key persp-mode-map (kbd "C-z s") 'persp-switch) + (define-key persp-mode-map (kbd "C-z C-s") 'persp-switch) + (define-key persp-mode-map (kbd "C-z b") 'persp-switch) + (define-key persp-mode-map (kbd "C-z C-b") 'persp-switch) + + (define-key persp-mode-map (kbd "C-z c") 'persp-remove-buffer) + (define-key persp-mode-map (kbd "C-z C-c") 'persp-remove-buffer) + + (define-key persp-mode-map (kbd "C-z k") 'persp-kill) + (define-key persp-mode-map (kbd "C-z C-k") 'persp-kill) + + (define-key persp-mode-map (kbd "C-z r") 'persp-rename) + (define-key persp-mode-map (kbd "C-z C-r") 'persp-rename) + + (define-key persp-mode-map (kbd "C-z a") 'persp-add-buffer) + (define-key persp-mode-map (kbd "C-z C-a") 'persp-add-buffer) + + (define-key persp-mode-map (kbd "C-z i") 'persp-import) + (define-key persp-mode-map (kbd "C-z C-i") 'persp-import) + + (define-key persp-mode-map (kbd "C-z n") 'persp-next) + (define-key persp-mode-map (kbd "C-z C-n") 'persp-next) + (define-key persp-mode-map (kbd "C-z p") 'persp-prev) + (define-key persp-mode-map (kbd "C-z C-p") 'persp-prev) +) + ;; Escreen customizations (via helpers.el). (when (require 'escreen nil 'noerror)