From fc1eed6875d00f77d6753b514c9664f3edee9682 Mon Sep 17 00:00:00 2001 From: Jim Myhrberg Date: Sat, 16 Dec 2017 17:42:42 +0000 Subject: [PATCH] Fix siren-perspective module --- modules/siren-perspective.el | 77 ++++++++++++++++++------------------ 1 file changed, 39 insertions(+), 38 deletions(-) diff --git a/modules/siren-perspective.el b/modules/siren-perspective.el index bb131b7..09c7857 100644 --- a/modules/siren-perspective.el +++ b/modules/siren-perspective.el @@ -7,48 +7,49 @@ ;;; Code: (use-package perspective - :bind - ("C-z" . perspective-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 "" + (setq persp-mode-prefix-key "" persp-initial-frame-name "0:main") + (define-key persp-mode-map (kbd "C-z") perspective-map) + + (define-key persp-mode-map (kbd "C-z z") 'persp-switch) + (define-key persp-mode-map (kbd "C-z C-z") 'persp-switch) + (define-key persp-mode-map (kbd "C-z c") 'persp-switch) + (define-key persp-mode-map (kbd "C-z C-c") 'persp-switch) + (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 l") 'persp-switch-last) + (define-key persp-mode-map (kbd "C-z C-l") 'persp-switch-last) + + (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) + (persp-mode) - (custom-set-faces - '(persp-selected-face ((t (:foreground "#d97a35" :weight bold)))))) + + ;; (custom-set-faces + ;; '(persp-selected-face ((t (:foreground "#d97a35" :weight bold))))) + ) (provide 'siren-perspective) ;;; siren-perspective.el ends here