#+END_SRC
** Smart Comments
-
[[https://github.com/paldepind/smart-comment][smart-comments]]
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(use-package smart-comment
:ensure t
:bind ("M-;" . smart-conmment))
-
#+END_SRC
** Font Setting
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
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
(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)
*** variable-pitch-mode and fixed-pitch-mode
[[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 140)
- (set-face-attribute 'fixed-pitch nil :font "Source Code Pro" :height 120)
+ (set-face-attribute 'variable-pitch nil :font "Calibri" :height 160)
+ (set-face-attribute 'fixed-pitch nil :font "Source Code Pro" :height (face-attribute 'default :height))
(add-hook 'text-mode-hook 'variable-pitch-mode)
#+END_SRC
*** Org-head face
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (with-eval-after-load "org"
+ (let* ((base-height (face-attribute 'variable-pitch :height))
+ (base-font-color (face-foreground 'default nil 'default)))
+ (set-face-attribute 'org-document-title nil :weight 'bold :height (+ 60 base-height))
+ (set-face-attribute 'org-level-1 nil :weight 'bold :height (+ 40 base-height))
+ (set-face-attribute 'org-level-2 nil :weight 'bold :height (+ 30 base-height))
+ (set-face-attribute 'org-level-3 nil :weight 'bold :height (+ 20 base-height))
+ (set-face-attribute 'org-level-4 nil :weight 'bold :height (+ 10 base-height))
+ (set-face-attribute 'org-level-5 nil :weight 'bold)
+ (set-face-attribute 'org-level-6 nil :weight 'bold)
+ (set-face-attribute 'org-level-7 nil :weight 'bold)
+ (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]]
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (require 'ox-publish)
+ ;; Refer https://ogbe.net/emacsconfig.html
+ (setq my-blog-extra-head
+ (concat
+ "<link rel='stylesheet' href='./css/worg.css' />"))
+
+ (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-link-home "/"
+ :html-head nil ;
+ :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.
(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
#+END_SRC
* TODO todolist
-** rucket
+** Rucket
** player video on iphone for
** SICP
** music searcher
search music on some music web site
+
+