Add perspeen config

[dotfiles.git] / emacs.d / config.org

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 285493a..8222e4b 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -3495,8 +3495,9 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (el-get-bundle seudut/perspeen
     :features perspeen
-    ;; (perspeen-mode)
-    )
+    (setq perspeen-use-tab t)
+    (perspeen-mode))
+
   ;; super-i to switch to ith workspace
 
   (defmacro sd/define-keys (map key func &rest args)
@@ -3507,7 +3508,12 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828
   (with-eval-after-load "perspeen"
     (dotimes (ii 9)
       (sd/define-keys perspeen-mode-map (kbd (concat "s-" (number-to-string (+ ii 1))))
-                           perspeen-goto-ws (+ ii 1))))
+                      perspeen-goto-ws (+ ii 1)))
+    (define-key perspeen-mode-map (kbd "s-c") 'perspeen-create-ws)
+    (define-key perspeen-mode-map (kbd "s-n") 'perspeen-next-ws)
+    (define-key perspeen-mode-map (kbd "s-p") 'perspeen-previous-ws)
+    (define-key perspeen-mode-map (kbd "s-'") 'perspeen-last-ws)
+    (define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab))
 #+END_SRC
 * TODO todolist
 ** Rucket