sakamon - Unix/emacs/設定

Unix/emacs/設定

.emacs の設定

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

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

日本語設定

(set-language-environment "Japanese")

ctrl-hのbackspace化

(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)))
  )

load-pathの追加

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

指定のパス(/usr/local/site-lisp)を追加

(add-to-list 'load-path "/usr/local/site-lisp")      ;; load-pathリストに /usr/local/site-lisp を追加

または

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

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

.emacs

(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)))

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

subdirs.el

;(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)

印刷設定

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 印刷設定
;; 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

---
^{update at 2024/09/30 08:39:29}

^{※注：当サイトは特定環境において確認できた事象のみを記述しています。他の環境での動作は一切保証しません。}