X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=17d7b026cf9c2929999dc01d4eb89698c1ee37b1;hb=9d9379e9edb9a1d7ec3ad25617c0bba6d4522921;hp=7a0fe063a2bb072d4acec39efb6b1b6717c9e17a;hpb=079a5db7d5f9c33620d67e189d9b88b4b0ee240b;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 7a0fe06..17d7b02 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -28,6 +28,12 @@ Set system PATH and emacs exec path
   (package-initialize)
 #+END_SRC       
 
+** My constant
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (defconst my-name "Peng Li")
+  (defconst my-email "seudut@gmail.com")
+#+END_SRC
+
 ** General Setting
 *** scroll bar, tool-bar and menu-bar
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
@@ -1181,58 +1187,23 @@ Also correct the face of  =org-meta-line= in =org-table=
 #+END_SRC
 
 ** Org Blog
-#+BEGIN_SRC perl 
-  print `curl https://raw.githubusercontent.com/seudut/blog/master/blog.el -o ./elisp/blog.el`;
+Fetch dependencies file, which is not in this repository.
+#+BEGIN_SRC perl :results silent :tangle yes
+  print `curl https://raw.githubusercontent.com/seudut/blog/master/my-publish.el -o ./elisp/my-publish.el`;
 #+END_SRC
 
-#+RESULTS:
-: 1
-
-Refer to [[http://orgmode.org/worg/org-tutorials/org-publish-html-tutorial.html][org-publish-html-tutorial]], and [[https://ogbe.net/blog/blogging_with_org.html][blogging_with_org]]
+Load 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  ;; (require 'ox-publish)
-
-  ;; ;; constants
-  ;; (defconst blog-dir "~/Private/blog/")
-  ;; ;; (defconst blog-dir (file-name-directory (or load-file-name buffer-file-name)))
-  ;; (defconst publish-dir (concat blog-dir "_site/"))
-  ;; (defconst css-file "../css/worg.css")
-  ;; ;; (defconst css-file (concat root-dir "css/worg.css"))
-
-  ;; ;; To prevent inline-css when exporting html. will use external css
-  ;; (setq org-html-htmlize-output-type 'css)
-
-  ;; (setq org-publish-project-alist
-  ;;       `(
-  ;;         ("org-notes"
-  ;;          :base-directory ,blog-dir
-  ;;          :base-extension "org"
-  ;;          :publishing-directory ,publish-dir
-  ;;          :recursive t
-  ;;          :publishing-function org-html-publish-to-html
-  ;;          :headline-levels 4
-  ;;          :section-numbers nil
-  ;;          :auto-preamble t
-  ;;          :auto-sitemap t          ;Generate sitmap.org automagicaly...
-  ;;          :sitemap-filename "sitemap.org" ;... call it sitemap.org (it's the default )...
-  ;;          :sitemap-title "Sitemap"
-
-  ;;          :html-table-of-contents nil
-  ;;          :html-postamble nil ;dont export creator auto validation info in html postamble div
-  ;;          :html-link-home "/"
-  ;;          :html-head ,(concat  "<link rel='stylesheet' href='" css-file "' />")
-  ;;          :html-head-include-default-style nil
-  ;;          :html-head-include-scripts nil)
-  ;;         ("org-static"
-  ;;          :base-directory "~/Private/blog/"
-  ;;          :base-extension "css\\|js\\|png\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
-  ;;          :publishing-directory ,publish-dir
-  ;;          :recursive t
-  ;;          :publishing-function org-publish-attachment
-  ;;          :table-of-contents nil)
-  ;;         ("org" :components ("org-notes" "org-static"))))
+  (add-to-list 'load-path "~/.emacs.d/elisp")
+
+  (when (file-exists-p "~/.emacs.d/elisp/my-publish.el")
+    (require 'my-publish)
+    (blog-setup-project-alist "~/Private/blog/"))
 #+END_SRC
 
+
+Refer to [[http://orgmode.org/worg/org-tutorials/org-publish-html-tutorial.html][org-publish-html-tutorial]], and [[https://ogbe.net/blog/blogging_with_org.html][blogging_with_org]]
+
 * Magit
 [[https://github.com/magit/magit][Magit]] is a very cool git interface on Emacs.
 and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github.com/abo-abo/oremacs/blob/c5cafdcebc88afe9e73cc8bd40c49b70675509c7/modes/ora-nextmagit.el][here]]
@@ -1243,7 +1214,7 @@ and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github
     ;; don't ask me to confirm the unsaved change 
     (setq magit-save-repository-buffers nil)
     ;; default is 50
-    (setq git-commit-summary-max-length 80)
+    (setq git-commit-summary-max-length 100)
     :commands magit-status magit-blame
     :config
     (dolist (map (list magit-status-mode-map
@@ -2550,16 +2521,16 @@ Emacs lisp auto-insert, based on the default module in =autoinsert.el=, but repl
 
 ** Org file template
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (eval-after-load 'autoinsert
-    '(define-auto-insert '("\\.\\(org\\)\\'" . "Org-mode skeleton")
-       '(
-         "title: "
-         "#+TITLE: " str (make-string 30 ?\s) > \n
-         "#+AUTHOR: Peng Li\n"
-         "#+EMAIL: seudut@gmail.com\n"
-         "#+DATE: " (shell-command-to-string "echo -n $(date +%Y-%m-%d)") > \n
-         > \n
-         > _)))
+  ;; (eval-after-load 'autoinsert
+  ;;   '(define-auto-insert '("\\.\\(org\\)\\'" . "Org-mode skeleton")
+  ;;      '(
+  ;;        "title: "
+  ;;        "#+TITLE: " str (make-string 30 ?\s) > \n
+  ;;        "#+AUTHOR: Peng Li\n"
+  ;;        "#+EMAIL: seudut@gmail.com\n"
+  ;;        "#+DATE: " (shell-command-to-string "echo -n $(date +%Y-%m-%d)") > \n
+  ;;        > \n
+  ;;        > _)))
 #+END_SRC
 
 * Markdown mode
@@ -2861,6 +2832,7 @@ config from [[http://www.kirang.in/2014/11/13/emacs-as-email-client-with-offline
     :init
     (add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode)))
 #+END_SRC
+
 * Entertainment
 ** GnuGo
 Play Go in Emacs, gnugo xpm refert [[https://github.com/okanotor/dotemacs/blob/f95b774cb292d1169748bc0a62ba647bbd8c0652/etc/my-inits/my-inits-gnugo.el][to here]]. start at image display mode and grid mode