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