sakamon - Unix/emacs/設定(Edit)

Unix/emacs/設定

.emacs の設定

<<メニュー／ツールバーの表示>>

8<
(menu-bar-mode  1)    ; メニュー表示
(tool-bar-mode -1)    ; ツールバー非表示
>8

<<日本語設定>>

<pre>
(set-language-environment "Japanese")
</pre>

<<ctrl-hのbackspace化>>

8<
(cond
  ((>= emacs-major-version 23)         ;version 23以降
   (keyboard-translate ?\C-h ?\C-?))
  ((>= emacs-major-version 22)         ;version 22以降
   (progn
     (load-library "obsolete/keyswap")
     (define-key function-key-map [delete] [8])
     (put 'delete 'ascii-character 8)))
  (t
   (progn
     (load-library "term/keyswap")
     (define-key function-key-map [delete] [8])
     (put 'delete 'ascii-character 8)))
  )
>8

<<load-pathの追加>>

elispファイルが保存されているディレクトリをload-pathとして登録しておくと、elispプログラムを簡単に起動できるようになる。

((br))

<<<指定のパス(/usr/local/site-lisp)を追加>>>
<pre>
(add-to-list 'load-path "/usr/local/site-lisp")      ;; load-pathリストに /usr/local/site-lisp を追加
</pre>

または

<pre>
(setq load-path
      (cons "/usr/local/site-lisp" load-path))       ;;
</pre>

((br))

<<<指定のパス(~/site-lisp)以下にあるサブディレクトリを再帰的に追加>>>

:.emacs

<pre>
(let ((dir (expand-file-name "~/site-lisp")))
  (setq load-path (cons dir load-path))
  (let ((default-directory dir))
    (load (expand-file-name "subdirs.el") t t t)))
</pre>

指定のパス(~/site-lisp)に下記ファイルを置いておく

:subdirs.el

<pre>
;(if (fboundp 'normal-top-level-add-subdirs-to-load-path)
;    (normal-top-level-add-subdirs-to-load-path))
(normal-top-level-add-subdirs-to-load-path)

</pre>

<<印刷設定>>

<pre>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 印刷設定
;; command: ps-print-buffer

(require 'ps-print)
(require 'time-stamp)

(setq
 ps-print-color-p nil               ;; nil/(t)/black-white
 ps-paper-type 'a4                  ;; a4/a3/(letter)/legal/executive/a4small/b4/b5
 ps-multibyte-buffer 'non-latin-printer
                                    ;; マルチバイト対応プリンタ
 ps-landscape-mode nil              ;; 横印刷: (nil)/t
 ps-n-up-printing 2                 ;; Nアップ: 1
 ps-spool-duplex t                  ;; 両面印刷: (nil)/t
 ps-spool-tumble t                  ;; 見開き: (nil:左右)/t(上下)
 ps-spool-config nil                ;; 用紙設定(lpr-switches/setpagedevice/nil)
 ps-lpr-command "/usr/bin/lpr"      ;; 印刷コマンド: command-path
 ps-lpr-switches nil                ;; オプション:
 ps-printer-name nil                ;; プリンタの指定: デフォルト
 ps-print-header t                  ;; ヘッダ: nil/(t)
 ps-print-only-one-header nil       ;; 最初のページだけ: (nil)/t
 ps-show-n-of-n t                   ;; ページ番号: nil/(t)
 ps-line-number nil                 ;; 行番号: (nil)/t
 ps-print-footer nil                ;; フッター: (nil)/t
 )

;; ヘッダー
;; ディレクトリ表示を消す
;(setq ps-left-header '('ps-get-buffer-name nil))
;; 日時をyyyy/mm/ddに固定
;(setq ps-right-header
;      '("/pagenumberstring load"
;       'time-stamp-yyyy/mm/dd 'time-stamp-hh:mm:ss))

;; キーアサイン
(define-key ctl-x-map "p" 'ps-print-buffer)
                                    ;; C-x p - ps-print-buffer
</pre>

Sign: freeze sage

Attachment

New: Sign:

Edit

Unix/emacs/設定

Attachment

Rename