X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=1182d1a732f7b57bf6831b1b343ce53154c6cfb0;hb=1c1836a96464e92e5b70924a116a949573294310;hp=285493af83fcd1e4d86241503cb7c6f719b7f1c3;hpb=3873955a78d6e1cf59f184a17c8f986136e75f93;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 285493a..1182d1a 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
@@ -2554,6 +2554,13 @@ Emacs lisp auto-insert, based on the default module in =autoinsert.el=, but repl
            ("\\.md\\'" . markdown-mode)
            ("\\.markdown\\'" . markdown-mode))
     :init (setq markdown-command "multimarkdown"))
+
+  (add-hook 'gfm-mode-hook (lambda ()
+                             (set-face-attribute 'markdown-inline-code-face nil :inherit 'fixed-pitch)
+                             (set-face-attribute 'markdown-pre-face nil :inherit 'fixed-pitch)))
+  (with-eval-after-load "gfm-mode"
+    (set-face-attribute 'markdown-inline-code-face nil :inherit 'fixed-pitch)
+    (set-face-attribute 'markdown-pre-face nil :inherit 'fixed-pitch))
 #+END_SRC
 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
@@ -2907,14 +2914,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 +3028,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)
@@ -3495,8 +3502,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 +3515,13 @@ 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)
+    (define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab))
 #+END_SRC
 * TODO todolist
 ** Rucket