emacs - plantuml

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

diff --git a/emacs.d/config.org b/emacs.d/config.org
index a7152e1..14e81af 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -753,7 +753,8 @@ Always indents header, and hide header leading starts so that no need type =#+ST
                                  (sqlite . t)
                                  (js . t)
                                  (gnuplot . t)
-                                 (ditaa . t)))
+                                 (ditaa . t)
+                                 (plantuml . t)))
 
   ;; use current window for org source buffer editting
   (setq org-src-window-setup 'current-window )
@@ -773,6 +774,24 @@ Always indents header, and hide header leading starts so that no need type =#+ST
     :ensure t)
 #+END_SRC
 
+*** plantUML
+[[http://eschulte.github.io/babel-dev/DONE-integrate-plantuml-support.html][DONE-integrate-plantuml-support]]
+#+BEGIN_SRC sh
+  ## support plantuml
+  brew install plantuml
+#+END_SRC
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (use-package plantuml
+    :ensure t)
+
+  (setq org-plantuml-jar-path
+        (expand-file-name "/usr/local/Cellar/plantuml/8041/plantuml.8041.jar"))
+
+  (set-variable 'plantuml-jar-path
+                (expand-file-name "/usr/local/Cellar/plantuml/8041/plantuml.8041.jar"))
+#+END_SRC
+
 ** Org-bullets
 use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 charactes
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
@@ -786,7 +805,7 @@ use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8
   (setq org-bullets-bullet-list '("⦿" "✪" "◉" "○" "►" "◆"))
 
   ;; increase font size when enter org-src-mode
-  (add-hook 'org-src-mode-hook (lambda () (text-scale-increase 2)))
+  ;; (add-hook 'org-src-mode-hook (lambda () (text-scale-increase 2)))
 #+END_SRC
 
 ** Worf Mode
@@ -1080,6 +1099,11 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em
                '("C" "#+BEGIN_SRC c :tangle ?\n\n#+END_SRC"))
   (add-to-list 'org-structure-template-alist
                '("m" "\\begin{equation}\n?\n\\end{equation}"))
+
+  (add-to-list 'org-structure-template-alist
+               '("b" "#+STARTUP: showall
+  ,#+STARTUP: inlineimages
+  ,#+OPTIONS: toc:nil\n"))
 #+END_SRC
 
 ** Org theme
@@ -1146,11 +1170,10 @@ Refer to [[http://orgmode.org/worg/org-tutorials/org-publish-html-tutorial.html]
            :sitemap-filename "sitemap.org" ;... call it sitemap.org (it's the default )...
            :sitemap-title "Sitemap"
 
-           :table-of-contents nil
-           :html-postamble nil            ;dont export creator auto validation info in html postamble div
+           :html-table-of-contents nil
+           :html-postamble nil ;dont export creator auto validation info in html postamble div
            :html-link-home "/"
-           :html-head "<link rel='stylesheet' href='./css/worg_old.css' />"
-           ;; :html-head-extra ,my-blog-extra-head
+           :html-head "<link rel='stylesheet' href='./css/worg.css' />"
            :html-head-include-default-style nil
            :html-head-include-scripts nil)
           ("org-static"
@@ -1158,7 +1181,8 @@ Refer to [[http://orgmode.org/worg/org-tutorials/org-publish-html-tutorial.html]
            :base-extension "css\\|js\\|png\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
            :publishing-directory "~/Private/publish_html"
            :recursive t
-           :publishing-function org-publish-attachment)
+           :publishing-function org-publish-attachment
+           :table-of-contents nil)
           ("org" :components ("org-notes" "org-static"))))
 #+END_SRC
 
@@ -1643,7 +1667,7 @@ as a http download client tool
     (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)))
+    (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))))))