;; -*- coding: utf-8 -*-
;; emacs customization for command aliases
;; 
;; Xah Lee ; 2007-06
;;  http://xahlee.org/emacs/xah_emacs_abbr.el

(defalias 'man 'woman)

; shortening of often used commands
(defalias 'g 'grep)
(defalias 'gf 'grep-find)
(defalias 'fd 'find-dired)
(defalias 'dml 'delete-matching-lines)
(defalias 'dnml 'delete-non-matching-lines)
(defalias 'sl 'sort-lines)
(defalias 'dtw 'delete-trailing-whitespace)
(defalias 'lcd 'list-colors-display)
(defalias 'rb 'revert-buffer)
(defalias 'rs 'replace-string)
(defalias 'rr 'reverse-region)
(defalias 'tc 'toggle-case-fold-search)

(defalias 'sh 'shell)
(defalias 'ps 'powershell)
(defalias 'fb 'flyspell-buffer)
(defalias 'sbc 'set-background-color)
(defalias 'cc 'calc)
(defalias 'rof 'recentf-open-files)
(defalias 'hp 'highlight-phrase)

; elisp
(defalias 'eb 'eval-buffer)
(defalias 'er 'eval-region)
(defalias 'ee 'eval-expression)
(defalias 'ed 'eval-defun)
(defalias 'eis 'elisp-index-search)
(defalias 'lf 'load-file)

; major modes
(defalias 'hm 'html-mode)
(defalias 'tm 'text-mode)
(defalias 'elm 'emacs-lisp-mode)
(defalias 'vbm 'visual-basic-mode)
(defalias 'om 'org-mode)
(defalias 'ssm 'shell-script-mode)
(defalias 'html6-mode 'xah-html6-mode)

; minor modes
(defalias 'wsm 'whitespace-mode)
(defalias 'gwsm 'global-whitespace-mode)
(defalias 'dsm 'desktop-save-mode)
(defalias 'acm 'auto-complete-mode)
(defalias 'vlm 'visual-line-mode)
(defalias 'glm 'global-linum-mode)
(defalias 'flm 'font-lock-mode)


;; § ----------------------------------------
;; xah personal

(defalias '\(1\) 'xah-fix-number-items-block)
(defalias '& 'replace-html-characters)
(defalias '＆ 'replace-html-characters-to-unicode)
(defalias '\\ 'escape-quotes)
(defalias '\" 'replace-straight-quotes)
(defalias '\[ 'remove-square-brackets)
(defalias '~ 'make-backup)

(defalias '8w 'xwe-new-word-entry)
(defalias '8d 'xwe-add-definition)
(defalias '8s 'xwe-add-source)
(defalias '8c 'xwe-add-comment)

(defalias 'c 'xah-cite)
(defalias 'cr 'compact-region)
(defalias 'db 'dehtmlize-pre-block)
(defalias 'dsc 'delete-secondlife-cache)
(defalias 'dss 'desktop-settings-setup)
(defalias 'dstp 'xah-fix-dstp)
(defalias 'e2w 'emacs-to-windows-kbd-notation)
(defalias 'fs 'full-size-img-linkify)
(defalias 'ft 'fix-timestamp)
(defalias 'ht 'htmlize-text)
(defalias 'il 'image-linkify)
(defalias 'irh 'insert-random-hex)
(defalias 'irs 'insert-random-string)
(defalias 'k 'htmlize-keyboard-shortcut-notation)
(defalias 'l 'xah-file-linkify)
(defalias 'lb 'listify-block)
(defalias 'mb 'make-blogger-entry)
(defalias 'mc 'make-citation)
(defalias 'p 'add-paragraph-tag)
(defalias 'uuid 'insert-random-uuid)
(defalias 'wc 'count-words-region-or-line)
(defalias 'wl 'wikipedia-linkify)
(defalias 'mht 'make-html-table)
;; (defalias 'cp 'copy-to-register-1)
;; (defalias 'pt 'insert-register-content-1)
(defalias 'tb 'title-bracket-to-html-tag)
(defalias 'tls 'toggle-line-spacing)
(defalias 'u 'mark-unicode)
(defalias 'xmae 'xah-make-atom-entry)
(defalias 'z 'amazon-linkify)
(defalias 'wu 'wrap-url)

(defun i1 ()
  "Set input method to chinese-py."
  (interactive)
  (set-input-method 'chinese-py)
)

(defun i2 ()
  "Set input method to chinese-py-b5."
  (interactive)
  (set-input-method 'chinese-py-b5)
)