projects / dotfiles.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
emacs tidy up code
[dotfiles.git] / emacs.d / config.org
diff --git a/emacs.d/config.org b/emacs.d/config.org
index cabe148..2a9eb56 100644 (file)
--- 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)
@@ -252,8 +247,8 @@ Fix the font alignment issue when both Chinese and English hybird in org-mode ta
   ;; Setup font size based on emacs-font-size-pair
   (set-font emacs-english-font emacs-cjk-font '(13 . 16))
 
-  (global-set-key (kbd "s-=") 'increase-emacs-font-size)
-  (global-set-key (kbd "s--") 'decrease-emacs-font-size)
+  ;; (global-set-key (kbd "s-=") 'increase-emacs-font-size)
+  ;; (global-set-key (kbd "s--") 'decrease-emacs-font-size)
 
 #+END_SRC
 
@@ -721,14 +716,12 @@ Always indents header, and hide header leading starts so that no need type =#+ST
     (setq org-use-speed-commands t)
     (setq org-completion-use-ido t)
     (setq org-startup-with-inline-images t)
-    ;; (setq org-emphasis-regexp-components
-    ;;       ;; markup 记号前后允许中文
-    ;;       (list (concat " \t('\"{" "[:nonascii:]")
-    ;;             (concat "- \t.,:!?;'\")}\\[" "[:nonascii:]")
-    ;;             " \t\r\n,\"'"
-    ;;             "."
-    ;;             1))
-    )
+    ;; latex preview
+    (setq org-startup-with-latex-preview t)
+    (setq org-format-latex-options (plist-put org-format-latex-options :scale 1.2)))
+
+  (el-get-bundle hasu/emacs-ob-racket
+    :features ob-racket)
 
   (org-babel-do-load-languages
    'org-babel-load-languages
@@ -742,6 +735,7 @@ Always indents header, and hide header leading starts so that no need type =#+ST
      (lua . t)
      (lisp . t)
      (scheme . t)
+     (racket . t)
      (sh . t)
      (sqlite . t)
      (js . t)
@@ -1047,19 +1041,32 @@ Install MacTex-basic [[http://www.tug.org/mactex/morepackages.html][MacTex-basic
 
 #+END_SRC
 
+** Export Html
+Color higlight the source code block in exported html, [[http://stackoverflow.com/questions/24082430/org-mode-no-syntax-highlighting-in-exported-html-page][org-mode-no-syntax-highlighting-in-exported-html-page]]
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (use-package htmlize
+    :ensure t)
+#+END_SRC
+
 ** Org structure template
 extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-emacs/#orgheadline94][Extend org-modes' esay templates]]
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-    (add-to-list 'org-structure-template-alist
-                 '("E" "#+BEGIN_SRC emacs-lisp :tangle yes :results silent\n?\n#+END_SRC"))
-    (add-to-list 'org-structure-template-alist
-                 '("S" "#+BEGIN_SRC sh :results output replace\n?\n#+END_SRC"))
-    (add-to-list 'org-structure-template-alist
-                 '("p" "#+BEGIN_SRC plantuml :file uml.png \n?\n#+END_SRC"))
-    (add-to-list 'org-structure-template-alist
-                 '("P" "#+BEGIN_SRC perl \n?\n#+END_SRC"))
-    (add-to-list 'org-structure-template-alist
-                 '("f" "#+BEGIN_SRC fundamental :tangle ?\n\n#+END_SRC"))
+  (add-to-list 'org-structure-template-alist
+               '("E" "#+BEGIN_SRC emacs-lisp :tangle yes :results silent\n?\n#+END_SRC"))
+  (add-to-list 'org-structure-template-alist
+               '("R" "#+BEGIN_SRC racket :tangle no :results output replace\n?\n#+END_SRC"))
+  (add-to-list 'org-structure-template-alist
+               '("S" "#+BEGIN_SRC sh :results output replace\n?\n#+END_SRC"))
+  (add-to-list 'org-structure-template-alist
+               '("p" "#+BEGIN_SRC plantuml :file uml.png \n?\n#+END_SRC"))
+  (add-to-list 'org-structure-template-alist
+               '("P" "#+BEGIN_SRC perl \n?\n#+END_SRC"))
+  (add-to-list 'org-structure-template-alist
+               '("f" "#+BEGIN_SRC fundamental :tangle ?\n\n#+END_SRC"))
+  (add-to-list 'org-structure-template-alist
+               '("C" "#+BEGIN_SRC c :tangle ?\n\n#+END_SRC"))
+  (add-to-list 'org-structure-template-alist
+               '("m" "\\begin{equation}\n?\n\\end{equation}"))
 #+END_SRC
 
 * Magit
@@ -1145,21 +1152,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
 
@@ -1434,8 +1428,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))
@@ -1690,7 +1682,7 @@ here on Mac, just use "open" commands to pen =.pdf=,  =.html= and image files
           ("\\.\\(?:xcf\\)\\'" "gimp")
           ("\\.csv\\'" "libreoffice")
           ("\\.tex\\'" "pdflatex" "latex")
-          ("\\.\\(?:mp4\\|mkv\\|avi\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'" "mplayer")
+          ("\\.\\(?:mp4\\|mkv\\|avi\\|rmvb\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'" "mplayer")
           ("\\.\\(?:mp3\\|flac\\)\\'" "rhythmbox")
           ("\\.html?\\'" "open")
           ("\\.dmg\\'" "open")
@@ -2714,11 +2706,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"
@@ -2728,9 +2715,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
@@ -2752,8 +2737,8 @@ Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g=
   (global-set-key (kbd "s-p") 'persp-prev)
   (global-set-key (kbd "s-;") 'persp-switch-last)
 
-  ;; (global-set-key (kbd "s-=") 'text-scale-increase)
-  ;; (global-set-key (kbd "s--") 'text-scale-decrease)
+  (global-set-key (kbd "s-=") 'text-scale-increase)
+  (global-set-key (kbd "s--") 'text-scale-decrease)
 
   ;; (global-set-key (kbd "s-u") 'undo-tree-visualize)
 
@@ -2875,7 +2860,7 @@ Most use =C-o C-o= to switch buffers; =C-o x, v= to split window; =C-o o= to del
     ;; Windows undo - redo
     ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo")
     ("r" (progn (winner-redo) (setq this-command 'winner-redo)) "redo")
-    
+
     ;; ibuffer, dired, eshell, bookmarks
     ;; ("C-i" other-window nil :exit t)
     ("C-b" ido-switch-buffer nil :exit t)
@@ -2895,10 +2880,10 @@ Most use =C-o C-o= to switch buffers; =C-o x, v= to split window; =C-o o= to del
     ;; quit
     ("q" nil "cancel")
     ("<ESC>" nil)
-    ("C-h" nil nil :exit t)
-    ("C-j" nil nil :exit t)
-    ;; ("C-k" nil :exit t)
-    ("C-l" nil nil :exit t)
+    ("C-h" windmove-left nil :exit t)
+    ("C-j" windmove-down nil :exit t)
+    ("C-k" windmove-up :exit t)
+    ("C-l" windmove-right nil :exit t)
     ("C-;" nil nil :exit t)
     ("n" nil nil :exit t)
     ("[" nil nil :exit t)
@@ -3338,6 +3323,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)
@@ -3348,10 +3334,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
My dot rc files(emacs, vim, tmux, zsh, ...)