From: Peng Li <seudut@gmail.com>
Date: Fri, 23 Dec 2016 13:23:15 +0000 (+0800)
Subject: Add perspeen config
X-Git-Url: http://47.100.26.94:8080/?a=commitdiff_plain;h=39970212ea20c2a50fd6b004e41ddd81a2d7295b;hp=2122f5e2cc9db2e106e70d1b3d47e698436ad303;p=dotfiles.git

Add perspeen config
---

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 9c1ade4..8222e4b 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -3497,6 +3497,7 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828
     :features perspeen
     (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