eamcs - tidy up code

[dotfiles.git] / emacs.d / config.org

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 8c3ff22..20becc7 100644 (file)
--- 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
@@ -1249,29 +1252,21 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex
 #+END_SRC
 
 ** Line Number
-
 Enable linum mode on programming modes
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (add-hook 'prog-mode-hook 'linum-mode)
-  ;; (add-hook 'prog-mode-hook (lambda ()
-  ;;                             (setq-default indicate-empty-lines t)))
 #+END_SRC
 
 Fix the font size of line number
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (defun fix-linum-size ()
-       (interactive)
-       (set-face-attribute 'linum nil :height 110))
+    (interactive)
+    (set-face-attribute 'linum nil :height 110))
 
   (add-hook 'linum-mode-hook 'fix-linum-size)
-
 #+END_SRC
 
 I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like the =set relativenumber= on =vim=
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (use-package linum-relative
     :ensure t
@@ -1294,14 +1289,11 @@ I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like
 #+END_SRC
 
 ** Save File Position
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (require 'saveplace)
   (setq-default save-place t)
   (setq save-place-forget-unreadable-files t)
   (setq save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|/[0-9]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)")
-
 #+END_SRC
 
 ** Multi-term
@@ -1424,11 +1416,7 @@ When see function by =C-h f=, and visit the source code, I would like the buffer
     (unless (equal major-mode 'Info-mode)
       (unless (> (length (window-list)) 1)
         (split-window-right))
-      (other-window 1)
-      ;; (info)
-      ))
-
-  ;; (global-set-key (kbd "C-h i") 'sd/info-mode)
+      (other-window 1)))
 
   ;; open Info buffer in other window instead of current window
   (defadvice info (before my-info (&optional file buf) activate)
@@ -1440,13 +1428,8 @@ When see function by =C-h f=, and visit the source code, I would like the buffer
 
 ** Demo It
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  ;; (el-get-bundle howardabrams/demo-it)
-
   (use-package org-tree-slide
     :ensure t)
-
-  ;; (use-package yasnippet
-  ;;   :ensure t)
 #+END_SRC
 
 ** Presentation
@@ -2708,11 +2691,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 +2700,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 +3308,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 +3320,7 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828
 #+END_SRC
 
 
+
 * TODO todolist
 ** rucket
 ** player video on iphone for