X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=60afe0b2acf5a5778d35a882262491e748393b67;hb=1c282fe29001f942bd32ff822b8d2dbe1db717f2;hp=455ef2126077955cd1ff12e65d960f04555978eb;hpb=9a66b3e20587e2ee46bf920d9e1217a2993dab33;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 455ef21..60afe0b 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -3490,7 +3490,20 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828
 ** perspeen
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (el-get-bundle seudut/perspeen
-    :features perspeen)
+    :features perspeen
+    ;; (perspeen-mode)
+    )
+  ;; super-i to switch to ith workspace
+
+  (defmacro sd/define-keys (map key func &rest args)
+    "A macro to define multi keys "
+    `(define-key ,map ,key (lambda () (interactive) (,func ,@args))))
+
+
+  (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))))
 #+END_SRC
 * TODO todolist
 ** Rucket