sluchin

;; ロード履歴の表示
(defun print-load ()
  "Print load-history."
  (interactive)
  (let ((all 0))
    (dolist (lst load-history)
      (let* ((file (car lst))
             (bytes (nth 7 (file-attributes file))))
        (message "%-8s %s" bytes file)
        (setq all (+ all bytes))))

sluchin

;; (install-elisp-from-emacswiki "anything-match-plugin.el")
;; (install-elisp-from-emacswiki "anything-config.el")
(when (and (locate-library "anything")
           (locate-library "anything-config"))
  (autoload 'anything "anything"
    "Main function to execute anything sources." t)
  (when (boundp 'anything-for-document-sources)
    (setq anything-for-document-sources
          '(anything-c-source-man-pages
            anything-c-source-info-cl

sluchin

;; 日本語で検索するための設定
(when (locate-library "skk-isearch")
  (autoload 'skk-isearch-mode-setup "skk-isearch"
    "Hook function called when skk isearch begin." t)
  (autoload 'skk-isearch-mode-cleanup "skk-isearch"
    "Hook function called when skk isearch is done." t)
  (add-hook 'isearch-mode-hook 'skk-isearch-mode-setup)
  (add-hook 'isearch-mode-end-hook 'skk-isearch-mode-cleanup)

  (eval-after-load "skk-isearch"

sluchin

(defvar syslog-overlay-list nil)

(defun syslog-highlight ()
  " Highlight syslog."
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (let (bop eop string lst ol)
      (while (not (eobp))
        (move-beginning-of-line nil)

sluchin

# .zshrc

[[ -f $HOME/.zshenv ]] && source $HOME/.zshenv

stty stop undef
bindkey -e

# autoload
autoload -Uz run-help
autoload -Uz zmv