X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=a7152e1f28a1fb296de8dbdcc797734ffa2d703a;hb=9366b055650a7a033d67a8f155be4e35143a004e;hp=07f2af1f4ba2b53bd4266edb053d9cdcec244d51;hpb=5b52a9f32b6f618fb03a59abb29fd3f8c67b2b55;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index 07f2af1..a7152e1 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -181,11 +181,11 @@ Check out [[http://tapoueh.org/emacs/el-get.html][el-get]]. Setting the fonts alignment issue #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (if window-system - (when sd/fixed-font-family - (set-frame-font sd/fixed-font-family) - (set-face-attribute 'default nil :font sd/fixed-font-family :height 120) - (set-face-font 'default sd/fixed-font-family))) + (if window-system + (when sd/fixed-font-family + (set-frame-font sd/fixed-font-family) + (set-face-attribute 'default nil :font sd/fixed-font-family :height 140) + (set-face-font 'default sd/fixed-font-family))) #+END_SRC *** Chinese fonts @@ -582,13 +582,13 @@ Fix the issue in mode line when showing triangle set height in mode line #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (set-variable 'powerline-height 14) - (set-variable 'powerline-text-scale-factor (/ (float 100) 140)) - ;; (custom-set-variables - ;; '(powerline-height 14) - ;; '(powerline-text-scale-factor (/ (float 100) 140))) - ;; 100/140;0.8 - (set-face-attribute 'mode-line nil :height 100) + (with-eval-after-load "powerline" + (let* ((base-font-size (face-attribute 'default :height))) + ;; 100/140;0.8 + (set-variable 'powerline-height (/ base-font-size 10)) + (set-variable 'powerline-text-scale-factor (/ (float 100) base-font-size))) + (set-face-attribute 'mode-line nil :height 100) + (set-face-attribute 'mode-line-inactive nil :height 100)) #+END_SRC * IDO & SMEX @@ -731,7 +731,8 @@ Always indents header, and hide header leading starts so that no need type =#+ST (require 'org-habit) (add-to-list 'org-modules 'org-habit) (setq org-habit-graph-column 50) - (setq org-hide-emphasis-markers t)) + (setq org-hide-emphasis-markers t) + (setq org-html-validation-link nil)) (el-get-bundle hasu/emacs-ob-racket :features ob-racket) @@ -1086,7 +1087,7 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em [[https://yoo2080.wordpress.com/2013/05/30/monospace-font-in-tables-and-source-code-blocks-in-org-mode-proportional-font-in-other-parts/][monospace font in tables and source code blocks in org-mode, proportional font in other parts]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent (set-face-attribute 'variable-pitch nil :font "Calibri" :height 160) - (set-face-attribute 'fixed-pitch nil :font "Source Code Pro" :height 120) + (set-face-attribute 'fixed-pitch nil :font "Source Code Pro" :height (face-attribute 'default :height)) (add-hook 'text-mode-hook 'variable-pitch-mode) @@ -1125,6 +1126,42 @@ Also correct the face of =org-meta-line= in =org-table= (set-face-attribute 'org-level-8 nil :weight 'bold))) #+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]] +#+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" + + :table-of-contents nil + :html-postamble nil ;dont export creator auto validation info in html postamble div + :html-link-home "/" + :html-head "" + ;; :html-head-extra ,my-blog-extra-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) + ("org" :components ("org-notes" "org-static")))) +#+END_SRC + * 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]] @@ -1595,6 +1632,23 @@ as a http download client tool (car (last (split-string url "/" t)))))))))) #+END_SRC +** Elscreen +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package elscreen + :ensure t + :init + (setq elscreen-tab-display-control nil) + :config + (elscreen-start) + (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))) + (dotimes (i 8) + (global-set-key (kbd (concat "s-" (number-to-string (+ i 1)))) + `(lambda () (interactive) (elscreen-goto ,(+ i 1)))))) +#+END_SRC + * Dired ** Dired bindings =C-o= is defined as a global key for window operation, here unset it in dired mode @@ -1809,7 +1863,7 @@ here on Mac, just use "open" commands to pen =.pdf=, =.html= and image files (define-key company-active-map [tab] #'company-complete-selection) (global-company-mode) ;; magig-commit is text-modeh - (setq company-global-modes '(not org-mode magit-status-mode text-mode))) + (setq company-global-modes '(not org-mode magit-status-mode text-mode eshell-mode))) (use-package company-statistics :ensure t @@ -3382,3 +3436,4 @@ search music on some music web site +** Need separate the Key-bindings and package-initialization