X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=9d7b6cef14ee17a856a617aaf2cbe93834e4b64c;hb=844e2389fcec27c0bb41f129b4cc1070f0c2b80d;hp=9c1ade440ff9c50f9e9ab26b481f20e5feeb861e;hpb=2122f5e2cc9db2e106e70d1b3d47e698436ad303;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 9c1ade4..9d7b6ce 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -1706,23 +1706,23 @@ as a http download client tool
 ** Elscreen
 Fix one elscreen issue when startup emacs https://github.com/knu/elscreen/issues/6
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (use-package elscreen
-    :ensure t
-    :init
-    (setq elscreen-tab-display-control nil)
-    :config
-    ;; (elscreen-start)
-    (set-face-attribute 'elscreen-tab-current-screen-face nil :foreground "black" :background "yellow")
-    (set-face-attribute 'elscreen-tab-other-screen-face nil :foreground "black" :background "disabledControlTextColor" :underline nil)
-    ;; (global-unset-key (kbd)); M-TAB switch screen
-    ;; (global-set-key (kbd "s-`") '(lambda () (interactive) (elscreen-goto 0)))
-    ;; (dotimes (i 8)
-    ;;   (global-set-key (kbd (concat "s-" (number-to-string (+ i 1))))
-    ;;                   `(lambda () (interactive) (elscreen-goto ,(+ i 1)))))
-    ;; (global-set-key (kbd "s-t") 'elscreen-create)
-    ;; (global-set-key (kbd "s-n") 'elscreen-next)
-    ;; (global-set-key (kbd "s-p") 'elscreen-previous)
-    )
+  ;; (use-package elscreen
+  ;;   :ensure t
+  ;;   :init
+  ;;   (setq elscreen-tab-display-control nil)
+  ;;   :config
+  ;;   ;; (elscreen-start)
+  ;;   (set-face-attribute 'elscreen-tab-current-screen-face nil :foreground "black" :background "yellow")
+  ;;   (set-face-attribute 'elscreen-tab-other-screen-face nil :foreground "black" :background "disabledControlTextColor" :underline nil)
+  ;;   ;; (global-unset-key (kbd)); M-TAB switch screen
+  ;;   ;; (global-set-key (kbd "s-`") '(lambda () (interactive) (elscreen-goto 0)))
+  ;;   ;; (dotimes (i 8)
+  ;;   ;;   (global-set-key (kbd (concat "s-" (number-to-string (+ i 1))))
+  ;;   ;;                   `(lambda () (interactive) (elscreen-goto ,(+ i 1)))))
+  ;;   ;; (global-set-key (kbd "s-t") 'elscreen-create)
+  ;;   ;; (global-set-key (kbd "s-n") 'elscreen-next)
+  ;;   ;; (global-set-key (kbd "s-p") 'elscreen-previous)
+  ;;   )
 #+END_SRC
 
 * Dired
@@ -2907,14 +2907,14 @@ Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g=
     (add-to-list 'projectile-globally-ignored-files "GTAGS")
     (projectile-global-mode t))
 
-  (use-package persp-projectile
-    :ensure t
-    :config
-    (persp-mode)
-    :bind
-    ;; (:map projectile-mode-map
-    ;;       ("s-t" . projectile-persp-switch-project))
-    )
+  ;; (use-package persp-projectile
+  ;;   :ensure t
+  ;;   :config
+  ;;   (persp-mode)
+  ;;   :bind
+  ;;   ;; (:map projectile-mode-map
+  ;;   ;;       ("s-t" . projectile-persp-switch-project))
+  ;;   )
 
   ;; change default-directory of scratch buffer to projectile-project-root 
   (defun sd/project-switch-action ()
@@ -3021,8 +3021,8 @@ Most use =C-o C-o= to switch buffers; =C-o x, v= to split window; =C-o o= to del
     ("C-b" ido-switch-buffer nil :exit t)
     ("C-f" projectile-find-file nil :exit t)
     ("C-r" ivy-recentf nil :exit t)
-    ("C-p" persp-switch nil :exit t)
-    ("C-t" projectile-persp-switch-project nil :exit t)
+    ;; ("C-p" persp-switch nil :exit t)
+    ;; ("C-t" projectile-persp-switch-project nil :exit t)
 
     ;; other special buffers
     ("d" sd/project-or-dired-jump nil :exit t)
@@ -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