;-*- coding: utf-8 -*-
; emacs customization for command aliases

; Xah Lee
; 2007-06
; ∑ http://xahlee.org/

;(defalias 'undo 'undo-only) ; stop emacs “undo undos”
(defalias 'yes-or-no-p 'y-or-n-p); get rid of yes-or-no questions. y or n is enough
(defalias 'center-line 'isearch-forward) ; center-line is bound to M-s. html mode and Text mode seems to redifine the M-s. Easier to just alias the center-line instead of hook on each mode.

; shortening of often used commands
(defalias 'ddfmf 'dired-do-find-marked-files) ; open all marked files
(defalias 'rn 'wdired-change-to-wdired-mode) ; rename file in dired

(defalias 'gf 'grep-find)
(defalias 'fd 'find-dired)
(defalias 'sh 'shell)
(defalias 'ntr 'narrow-to-region)
(defalias 'lml 'list-matching-lines)
(defalias 'dml 'delete-matching-lines)
(defalias 'snf 'sort-numeric-fields)
(defalias 'sl 'sort-lines)
(defalias 'qr 'query-replace)
(defalias 'qrr 'query-replace-regexp)

(defalias 'rof 'recentf-open-files)

(defalias 'iw 'ispell-word)

(defalias 'ee 'eval-expression)
(defalias 'eb 'eval-buffer)
(defalias 'er 'eval-region)
(defalias 'eis 'elisp-index-search)

; modes
(defalias 'spm 'speck-mode)
(defalias 'hm 'html-mode)
(defalias 'elm 'emacs-lisp-mode)
(defalias 'fs 'flyspell-mode)
(defalias 'fsb 'flyspell-buffer)

(defalias 'rs 'replace-string)

;-------------------------
;; personal

; insert text
(defalias 'ixu 'insert-xah-url)
(defalias 'ixs 'insert-xahs-ig)
(defalias 'd 'insert-date)
(defalias 'dtag 'insert-date-tag)
(defalias 'dtime 'insert-date-time)
(defalias 'icmt 'insert-cmt)
(defalias 'iwe 'insert-word-entry)
(defalias 'def 'insert-definition-entry)
(defalias 'mb 'make-backup)
(defalias 'ih4 'insert-dtd-html4s)

(defalias 'cp1 'copy-to-register-1)
(defalias 'cp2 'copy-to-register-2)
(defalias 'pst1 'insert-register-content-1)
(defalias 'pst2 'insert-register-content-2)

; text replace
(defalias '_ 'replace-underscore-space-toggle)
(defalias '_2s 'underscore2space-region)
(defalias 's2_ 'space2underscore-region) 
(defalias 'r\" 'replace-straight-quotes-region)
(defalias 'rhc 'replace-html-chars)
(defalias 'l 'xah-file-linkify)
(defalias 'xc 'xah-cite)
(defalias 'lb 'listify-block)
(defalias 'hb 'htmlize-block)

(defalias '2html4s 'xah-fix-to-html4strict)

; open with other
(defalias 'lg 'lookup-google)
(defalias 'o 'open-with-finder)
(defalias 'o2 'open-with-textwrangler)

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

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

(defun i0 ()
  "Set input method to latin-1-prefix."
  (interactive)
  (set-input-method 'latin-1-prefix)
)