- (font-lock-add-keywords 'perl-mode '(("\\(|\\w+?\\(,\\w+?\\)?|\\)" 1 'py-builtins-face)))
-#+END_SRC
-
-* TODO jump last change point
-* TODO emms mode-line
-
-* =C-u C-h a= search funtions
-=apropos-command=
-
-* key
-- passion
-- vision
-- mission
-
-* M prefix
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
- ;; M-h - mark-paragraph
- ;; M-j - new line indent
- ;; M-k - kill-sentence
- ;; M-l - downcase words ====== goto-line
- ;; M-; - comments
- ;; M-'- abbrev-prefix-mark =======
- ;; M-RET none ======
-
- ;; M-y - yank
- ;; M-u - upcase word
- ;; M-i - ====== imenu
- ;; M-o ====== prefix
- ;; M-p
- ;; M-[ =====
- ;; M-] ========
- ;; M-\ deleter horizontal space =====
-
- ;; M-n
- ;; M-m ---- indent
- ;; M-, --- mark stack====== =
- ;; M-. lisp-goto-symboo, find definitation
-
- ;; M-a
- ;; M-s =====
- ;; M-d
- ;; M-f
- ;; M-g - prefix
-
- ;; M-q - lisp fill, fill paragraph
- ;; M-w
- ;; M-e
- ;; M-r - rePositioning
- ;; M-t transpose word
-
- ;; M-z zap-to-char
- ;; M-x
- ;; M-c capitalize-word
- ;; M-v
- ;; M-b
+ (defun sd/kill-region-or-backward-kill-word ()
+ (interactive)
+ (if (region-active-p)
+ (kill-region (point) (mark))
+ (backward-kill-word 1)))
+
+ (global-set-key (kbd "C-w") 'sd/kill-region-or-backward-kill-word)
+#+END_SRC
+
+
+
+* TODO todolist
+** rucket
+** player video on iphone for
+** SICP
+** music searcher
+search music on some music web site
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-Source Code Pro-*-*-*-*-12-*-*-*-*-*-fontset-Source Code Pro,
+ ;; ascii:-*-Source Code Pro-normal-normal-normal-*-23-*-*-*-m-0-iso10646-1,
+ ;; latin-iso8859-1:-*-Source Code Pro-normal-normal-normal-*-17-*-*-*-m-0-iso10646-1,
+ ;; latin-iso8859-15:-*-Source Code Pro-normal-normal-normal-*-17-*-*-*-m-0-iso10646-1,
+ ;; chinese-gb2312:-*-STHeiti-*-*-*-*-14-*-*-*-c-*-*-*,
+ ;; han:-*-STHeiti-*-*-*-*-14-*-*-*-c-*-*-*")
+
+
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-Courier New-normal-r-*-*-14-*-*-*-c-*-fontset-myfixwidth,
+ ;; ascii:-*-Courier New-normal-normal-normal-*-17-*-*-*-m-0-iso10646-1,
+ ;; kana:-*-STFangsong-normal-r-*-*-16-*-*-*-c-*-*-*,
+ ;; han:-*-STFangsong-normal-r-*-*-16-*-*-*-c-*-*-*,
+ ;; symbol:-*-STFangsong-normal-r-*-*-16-*-*-*-c-*-*-*,
+ ;; cjk-misc:-*-STFangsong-normal-r-*-*-16-*-*-*-c-*-*-*,
+ ;; bopomofo:-*-STFangsong-normal-r-*-*-16-*-*-*-c-*-*-*" t)
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-Courier New-normal-r-*-*-14-*-*-*-c-*-fontset-myfixwidth,
+ ;; ascii:-*-Courier New-normal-normal-normal-*-17-*-*-*-m-0-iso10646-1")
+
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-Source Code Pro-normal-normal-normal-*-12-*-*-*-*-*-fontset-osaka12")
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-Source Code Pro-normal-normal-normal-*-12-*-*-*-*-*-fontset-osaka13")
+
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-consolas-*-*-*-*-12-*-*-*-*-*-fontset-consolas,
+ ;; ascii:-*-consolas-*-*-*-*-12-*-*-*-*-*-iso8859-1,
+ ;; latin-iso8859-1:-*-consolas-*-*-*-*-12-*-*-*-*-*-iso8859-1,
+ ;; latin-iso8859-15:-*-consolas-*-*-*-*-12-*-*-*-*-*-iso8859-15")
+
+ ;; (setq default-frame-alist '(;; (width . 100)
+
+ ;; ;; (height . 44)
+
+ ;; ;; (top . 50)
+ ;; ;pixels
+ ;; ;; (left . 50)
+ ;; ;pixels
+ ;; (font . "fontset-my-private")
+ ;; ))
+ ;; (with-eval-after-load "org"
+ ;; (set-face-attribute 'org-code nil :family "fontset-myfixwidth")
+ ;; (set-face-attribute 'org-block nil :family "fontset-myfixwidth")
+ ;; (set-face-attribute 'org-table nil :family "fontset-myfixwidth")
+ ;; (set-face-attribute 'org-block-background nil :family "fontset-myfixwidth"))
+ ;; (setq default-frame-alist
+ ;; (append
+ ;; '((font . "fontset-osaka13")) default-frame-alist))
+
+
+ ;; (set-fontset-font
+ ;; "fontset-default" nil
+ ;; "-*-stheiti-*-*-*-*-14-*-*-*-*-*-gb2312.1980-*" nil 'prepend)
+ ;; (set-fontset-font
+ ;; "fontset-osaka12" 'kana
+ ;; "-*-stheiti-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
+ ;; (set-fontset-font
+ ;; "fontset-osaka12" 'han
+ ;; "-*-stheiti-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
+ ;; (set-fontset-font
+ ;; "fontset-osaka12" 'cjk-misc
+ ;; "-*-stheiti-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
+
+ (set-face-attribute 'variable-pitch nil :font "Calibri" :height 160)
+ (set-face-attribute 'fixed-pitch nil :font "Source Code Pro" :height 120)
+
+ (add-hook 'text-mode-hook 'variable-pitch-mode)
+
+ (with-eval-after-load "org"
+ (set-face-attribute 'org-code nil :inherit 'fixed-pitch)
+ (set-face-attribute 'org-block nil :inherit 'fixed-pitch)
+ (set-face-attribute 'org-table nil :family "Ubuntu Mono" :height 120)
+ (set-face-attribute 'org-block-background nil :inherit 'fixed-pitch))