Meadow
Meadow 設定メモ
ネット上からの拾い集めなので、コードの意味は理解しておりません・・・
;;******************************************************************************* ;; IME の設定 ;;******************************************************************************* (set-language-environment "Japanese") (setq default-input-method "MW32-IME") (mw32-ime-initialize) (w32-add-font "MS Gothic 13" '*1 *2 *3 *4 *5 ; IMEのフォントを設定。 (let *6 ) ;;******************************************************************************* ;; Frame Size の設定 ;;******************************************************************************* (setq default-frame-alist (append (list '(width . 150) '(height . 60) '(top . 5) '(left . 5)) default-frame-alist)) ;;******************************************************************************* ;; 色の設定 ;;******************************************************************************* (set-foreground-color "black") ;; Foreground (set-background-color "lemonchiffon1") ;; Background (set-cursor-color "black") ;; Cursor (set-mouse-color "white") ;; Mouse (set-border-color "white") ;; Frame ;;******************************************************************************* ;; 行番号の表示設定(setnu.elを使用) ;;******************************************************************************* (autoload 'setnu-mode "setnu" nil t) (global-set-key [f12] 'setnu-mode) ;;******************************************************************************* ;; Mode 設定(HTML/ASP) ;;******************************************************************************* ;; html-helper-mode の設定 (autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t) (autoload 'asp-helper-mode "html-helper-mode" "Yay HTML" t) ;; .html → html-helper-mode (setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist)) ;; .asp → html-helper-mode (setq auto-mode-alist (cons '("\\.asp$" . html-helper-mode) auto-mode-alist)) ;; html-helper-mode に色を設定 (add-hook 'html-helper-load-hook '(lambda () (require 'html-font)(font-lock-mode))) (add-hook 'html-helper-mode-hook '(lambda () (font-lock-fontify-buffer))) ;;******************************************************************************* ;; Mode 設定(JavaScript) ;;******************************************************************************* (autoload 'javascript-mode "javascript-mode" "JavaScript" t) (setq auto-mode-alist (cons '("\\.js$" . javascript-mode) auto-mode-alist)) ;;******************************************************************************* ;; 印刷設定 ;;******************************************************************************* ;; 印刷の設定 ;; この設定で M-x print-buffer RET などでの印刷ができるようになります ;; ;; notepad に与えるパラメータの形式の設定 (define-process-argument-editing "notepad" (lambda (x) (general-process-argument-editing-function x nil t))) (defun w32-print-region (start end &optional lpr-prog delete-text buf display &rest rest) (interactive) (let *7 (while (string-match "[/\\]" tmpfile) (setq tmpfile (replace-match "_" t nil tmpfile))) (setq tmpfile (expand-file-name (concat "_" tmpfile "_") temporary-file-directory)) (write-region start end tmpfile nil 'nomsg) (call-process "notepad" nil nil nil "/p" tmpfile) (and (file-readable-p tmpfile) (file-writable-p tmpfile) (delete-file tmpfile)))) (setq print-region-function 'w32-print-region) ;;******************************************************************************* ;; キルリング一覧 ;;******************************************************************************* (require 'browse-kill-ring) (global-set-key "\M-y" 'browse-kill-ring) (setq browse-kill-ring-display-style 'one-line) ;; 一行で表示 (setq browse-kill-ring-separator "-------") ;; 内容を表示する際の区切り (setq browse-kill-ring-highlight-current-entry t) ;; ハイライト ;;******************************************************************************* ;; 矩形選択のハイライトを上手く表示させる ;;******************************************************************************* (setq load-path (cons (expand-file-name "~/elisp") load-path)) (autoload 'sense-region-on "sense-region" "System to toggle region and rectangle." t nil) ;;******************************************************************************* (setq make-backup-files nil) ;; Back Up File を作らない設定 (setq next-line-add-newlines nil) ;; Scroll による改行を行わない設定 (show-paren-mode t) ;; 対応する括弧の色を反転 (setq transient-mark-mode t) ;; 選択範囲反転 (global-set-key "\C-h" 'delete-backward-char) ;; c-h をBackSpaceに設定 (setq indent-tabs-mode t) ;; 他のエディタとの連携の為設定 (display-time) ;; 時間設定 (setq-default tab-width 2) ;; Tab幅の設定 (global-set-key "\M-g" 'goto-line) ;; 指定行へ移動 (setq scroll-step 1) ;; 画面の上下の移動幅を1に設定 (global-set-key [f3] 'start-kbd-macro) ;; マクロの記録を開始 (global-set-key [f4] 'end-kbd-macro) ;; マクロの記録を終了 (global-set-key [f5] 'call-last-kbd-macro) ;; 記録したマクロを実行 (setq inhibit-startup-message t) ;; 起動時の画面を省略
<site-listフォルダ内>
html-font.el
html-helper-mode.el
setnu.el
subdirs.el
tempo.el
sense-region.el
browse-kill-ring.el
javascript-mode.el
*1:spec ((:char-spec ascii :height any) strict (w32-logfont "MS Gothic" 0 -13 400 0 nil nil nil 0 1 3 0
*2::char-spec ascii :height any :weight bold) strict (w32-logfont "MS Gothic" 0 -13 700 0 nil nil nil 0 1 3 0) ((spacing . -1))) ((:char-spec ascii :height any :slant italic) strict (w32-logfont "MS Gothic" 0 -13 400 0 t nil nil 0 1 3 0
*3::char-spec ascii :height any :weight bold :slant italic) strict (w32-logfont "MS Gothic" 0 -13 700 0 t nil nil 0 1 3 0) ((spacing . -1))) ((:char-spec japanese-jisx0208 :height any) strict (w32-logfont "MS Gothic" 0 -13 400 0 nil nil nil 128 1 3 0
*4::char-spec japanese-jisx0208 :height any :weight bold) strict (w32-logfont "MS Gothic" 0 -13 700 0 nil nil nil 128 1 3 0) ((spacing . -1))) ((:char-spec japanese-jisx0208 :height any :slant italic) strict (w32-logfont "MS Gothic" 0 -13 400 0 t nil nil 128 1 3 0
*5::char-spec japanese-jisx0208 :height any :weight bold :slant italic) strict (w32-logfont "MS Gothic" 0 -13 700 0 t nil nil 128 1 3 0) ((spacing . -1)))))) ; 起動時およびnew-frame時のフレーム(ウィンドウ)の設定。 (add-to-list 'default-frame-alist '(font . "MS Gothic 13"
*6:logfont '(w32-logfont "MS Gothic" 0 0 400 0 nil nil nil 128 1 3 0))) (modify-frame-parameters (selected-frame) (list (cons 'ime-font logfont))) (add-to-list 'default-frame-alist (cons 'ime-font logfont
*7:tmpfile (convert-standard-filename (buffer-name))) (w32-start-process-show-window t) ;; もし、dos 窓が見えていやな人は上記の `t' を `nil' にします ;; ただし、`nil' にすると Meadow が固まる環境もあるかもしれません (coding-system-for-write w32-system-coding-system