Xyzzy設定 (1)

~/.xyzzy

;;-------------------------------------------------------
;; バックアップファイルを他のところに取る
;;-------------------------------------------------------
(require "backup")
(setq *backup-directory* "~/backup-xyzzy-files/")
(setq *hierarchic-backup-directory* t)

;;-------------------------------------------------------
;; 補完機能
;;-------------------------------------------------------
(global-set-key #\C-j 'dabbrev-expand)

;;-------------------------------------------------------
;; 現在時刻をカーソル位置に挿入
;;-------------------------------------------------------
(defun insert-date()
  (interactive)
  (insert (format-date-string "%Y-%m-%d %H:%M:%S (%a)"))
)
(global-set-key '(#\C-x #\t) 'insert-date)