【備忘録】xyzzy の簡単お勧め設定

いつもありがたく使わせてもらっている xyzzy だが，最小限の設定を備忘録として置いておく．
(いろんなサイトからいただいたものが含まれている．)

siteinit.l に書き込んで，M-x byte-compile-file してから，xyzzy.wxp を削除して，xyzzy を再起動．

ライブラリで不足しているものがある場合

• javascript-mode
• php-mode
• html+-mode

(load-library "javascript-mode")
(load-library "php-mode")
(load-library "css-mode")
(load-library "html+-mode")
(global-set-key #\M-l 'goto-line) ;; 行番号ジャンプ

(global-set-key #\LBtnUp 'copy-selection-to-clipboard) ;; マウスドラッグでコピー

(defun mouse-right-press ()
  (interactive)
  (mouse-left-press)
  (paste-from-clipboard))
(global-set-key #\RBtnUp 'mouse-right-press) ;; マウスクリックでペースト

;; Javascript Mode
(setq *javascript-indent-level* 2)
(setq *javascript-indent-tabs-mode* nil)
(pushnew '("\\.js$" . javascript-mode) *auto-mode-alist* :test 'equal)

;; HTML+ Mode
(pushnew '("\\.s?html?$" . html+-mode) *auto-mode-alist* :test 'equal)
(setq html+-indent-level 2)

;; 一発インデント
(defun indent-current-buffer ()
  (interactive)
  (indent-region (point-min) (point-max))
  (message "indent buffer"))

;; indent-region
(defun html+-indent-region (from to)
  (interactive "*r")
  (narrow-to-region from to)
  (goto-char (point-min))
  (html+-indent-line)
  (while (forward-line 1)
    (html+-indent-line))
  (widen))
(setq *html+-indent-tabs-mode* nil)
(add-hook '*html+-mode-hook*
          #'(lambda ()(interactive)
              (define-key *html+-mode-map* #\M-i 'indent-current-buffer)))

; css-mode
(defvar *css-indent-level* 2)

; php-mode
(pushnew '("\\.php$" . php-mode) *auto-mode-alist*)