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

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 9f6337b..2b31755 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -17,11 +17,6 @@ Set system PATH and emacs exec path
   (setq exec-path (append exec-path '("/Library/TeX/texbin/")))
 #+END_SRC
 
-Set the emacs load path
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  ;; (add-to-list 'load-path "~/.emacs.d/elisp")
-#+END_SRC
-
 ** Package Initialization
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (require 'package)
@@ -723,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)
@@ -949,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
@@ -1157,21 +1155,8 @@ Toggle an eshell in split window below, refer [[http://www.howardism.org/Technic
         (other-window 1)
         (if (projectile-project-p)
             (projectile-run-eshell)
-          (eshell))
-        ;; (let ((dir default-directory))
-        
-        ;;   (split-window-vertically (- (/ (window-total-height) 3)))
-        ;;   (other-window 1)
-        ;;   (unless (and (boundp 'eshell-buffer-name) (get-buffer eshell-buffer-name))
-        ;;     (eshell))
-        ;;   (switch-to-buffer eshell-buffer-name)
-        ;;   (goto-char (point-max))
-        ;;   (eshell-kill-input)
-        ;;   (insert (format "cd %s" dir))
-        ;;   (eshell-send-input))
-        )))
-
-  ;; (global-unset-key (kbd "M-`"))
+          (eshell)))))
+
   (global-set-key (kbd "s-e") 'sd/toggle-project-eshell)
 #+END_SRC
 
@@ -1446,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))
@@ -2726,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"
@@ -2740,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
@@ -3350,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)
@@ -3360,10 +3337,7 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828
   (global-set-key (kbd "C-w") 'sd/kill-region-or-backward-kill-word)
 #+END_SRC
 
-* key
-- passion
-- vision
-- mission
+
 
 * TODO todolist
 ** rucket