X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=17d7b026cf9c2929999dc01d4eb89698c1ee37b1;hb=b71d4ea6df03a59907e9a0ca42c6075890809822;hp=25136a4ea5b3bf2db10f4329fb0476ab59ba6cb6;hpb=c61cd65419d3e3eedd1d147495a68edc680ecc85;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index 25136a4..17d7b02 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -28,14 +28,20 @@ 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 - (scroll-bar-mode 0) - (tool-bar-mode 0) - - (if window-system - (menu-bar-mode 1) + (if (display-graphic-p) + (progn + (scroll-bar-mode 0) + (tool-bar-mode 0) + (menu-bar-mode 1)) (menu-bar-mode 0)) (setq debug-on-error t) @@ -1181,41 +1187,23 @@ Also correct the face of =org-meta-line= in =org-table= #+END_SRC ** Org Blog -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]] +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 + +Load #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (require 'ox-publish) - - (setq org-publish-project-alist - `( - ("org-notes" - :base-directory "~/Private/blog/" - :base-extension "org" - :publishing-directory "~/Private/publish_html" - :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 "" - :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 "~/Private/publish_html" - :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]] @@ -1226,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 @@ -2533,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 @@ -2836,6 +2824,15 @@ config from [[http://www.kirang.in/2014/11/13/emacs-as-email-client-with-offline (add-hook 'ediff-suspend-hook 'ediff-toggle-wide-display)) #+END_SRC +* Modes +** Yaml-mode +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package yaml-mode + :ensure t + :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 @@ -3499,6 +3496,7 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828 (global-set-key (kbd "C-w") 'sd/kill-region-or-backward-kill-word) #+END_SRC + * Developing ** perspeen #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -3527,6 +3525,7 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828 (define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab) (define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab)) #+END_SRC + * TODO todolist ** Rucket ** player video on iphone for