X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=2b3175543b95cc4b5499cf7a5bed2ec1044657de;hb=906c4caf8d0f036f053e11c6a8310dc4f9ae3199;hp=8c3ff22c4cf864cc6e7e32fa648bc82e30cc026c;hpb=4c66b064da661bf1915cf487bf2fdf8fc477a21c;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 8c3ff22..2b31755 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -718,7 +718,10 @@ Always indents header, and hide header leading starts so that no need type =#+ST
     (setq org-startup-with-inline-images t)
     ;; latex preview
     (setq org-startup-with-latex-preview t)
-    (setq org-format-latex-options (plist-put org-format-latex-options :scale 1.2)))
+    (setq org-format-latex-options (plist-put org-format-latex-options :scale 1.2))
+    (require 'org-habit)
+    (add-to-list 'org-modules 'org-habit)
+    (setq org-habit-graph-column 50))
 
   (el-get-bundle hasu/emacs-ob-racket
     :features ob-racket)
@@ -944,9 +947,9 @@ Setting agenda files and the agenda view
                                  "~/org/work.org")))
 
   ;; only show today's tasks in agenda view
-  (setq org-agenda-span 'day)
+  ;; (setq org-agenda-span 'day)
   ;; Use current windows for agenda view
-  (setq org-agenda-window-setup 'current-window)
+  ;; (setq org-agenda-window-setup 'current-window)
 
   ;; show all feature entries for repeating tasks,
   ;; this is already setting by default
@@ -1428,8 +1431,6 @@ When see function by =C-h f=, and visit the source code, I would like the buffer
       ;; (info)
       ))
 
-  ;; (global-set-key (kbd "C-h i") 'sd/info-mode)
-
   ;; open Info buffer in other window instead of current window
   (defadvice info (before my-info (&optional file buf) activate)
     (sd/info-mode))
@@ -2708,11 +2709,6 @@ Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g=
     (:map projectile-mode-map
           ("s-t" . projectile-persp-switch-project)))
 
-  ;; (defun sd/change-default-directory (buffer dir)
-  ;;   "change defafult directory of buffer to dir"
-  ;;   (with-current-buffer buffer
-  ;;     (cd dir)))
-
   ;; change default-directory of scratch buffer to projectile-project-root 
   (defun sd/project-switch-action ()
     "Change default-directory of scratch buffer to current projectile-project-root directory"
@@ -2722,9 +2718,7 @@ Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g=
                         (buffer-name buffer))
           (let ((root (projectile-project-root)))
             (with-current-buffer buffer
-              (cd root)))
-        ;; (sd/change-default-directory buffer (projectile-project-root))
-        )))
+              (cd root))))))
 #+END_SRC
 
 *** project config =super= keybindings
@@ -3332,6 +3326,7 @@ stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9d
 *** TODO make expand-region hydra work with lispy selected
 ** =C-w= delete backward word
 Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba8281255a594/setup/.emacs.d/loader-init/_90-kill-region-or-backward-kill-word.el][kill-region-or-backward-kill-word]]
+
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (defun sd/kill-region-or-backward-kill-word ()
     (interactive)
@@ -3343,6 +3338,7 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828
 #+END_SRC
 
 
+
 * TODO todolist
 ** rucket
 ** player video on iphone for