ほほほのほ - userapps

Emacs

anonymous@undisclosed.example.com (Anonymous) — Tue, 27 Jan 2026 23:31:02 +0000

Emacs

まくら　

Emacsはとても古いEditor実装である。自分がEmacsを利用し始めたのは、高校生の時代にX68000を使っていた頃のはず。PC8801-mk2SRの次に入手したのがX68000だったとおもう。

それまでもPCは使っていた。88の頃は主にゲームばかり。X68000を手に入れてパソコン通信のChatにはまり、PC9801LVを入手してBBSサーバーにしたりはしていたが、普段使いのComputerはX68000だったと思う。

プログラムを書くようになって最初に手に馴染んだEditorはμEmacsだった。X68000でmicro Emacsを使い始めたのが最初だったと思う。そこからNEmacsに移り、Muleに移り、icam版GNU Emacsに移っていった。当時、TeXにがっつりハマり、pTeX(pLaTeXではない)で縦書き３段組の同人誌を作ったりもしていた。EmacsでTeX modeが非常に便利だったことを覚えている。

それ以来EditorといえばEmacs系のものを利用している。浪人時代に、中古で買ったSony NEWS(NEWS 1250, NEWS830, NEWS 3860)でThin EthernetでNetworkを組み、X68000をSerial Terminal にしてみたり、大学でSun MicrosystemsのSPARCstation 5, 10, IPC, IPX あたりを利用していたが、その時もEditorは常にEmacsだった。

大学時代から、Unix System管理者としては、当然にed, ex, viを「最小限」使っていた。「viはEmacsをCompileするためのpatch適用のためのEditorでしょ」なんてイキがっていたこともあった。要するに、EmacsのKey Bindingsに体が馴染んでおり、他のEditorに引っ越すことができなかっただけだろう。当然、秀丸、Vzなど様々なEditorを触ってきたし、なんとなれば EcripsやVisualStudioなどのIDEも利用したことはあるが、やはりEmacsに戻ってきてしまった。

社会人になっても、Reportや提出書類の大半はTeXを利用していた(WYSIWYGなんて面倒で不便と思っていた。今でもそう思うことは多い)ので、2000年代前半まではEmacs/TeXでほとんどの文書を処理していたし、WordやExcelを使わざるを得ない場合は、同僚のPCで処理させてもらうという悪逆非道なことをしていた。しかし、仕事の関係でどうしてもExcelやPowerPoint/KeyNoteを利用することがメインになったため、しばらく(15年くらい)ほとんどEmacsを利用していなかった。

最近またEmacsに戻ってきたので、備忘録も兼ねてEmacsの設定などを記載することにした。

マクラが長い。しかも割と黒歴史だったorz...

2024/11/07
- Updated for emacs-plus@31
- Remove poll(Removed from emacs-plus because poll causes problem
- install after commandline, add sign.

環境とInstall

2024年現在、メイン端末はMacBookProで、管理しているサーバーは大半がFreeBSD(一部NetBSD, OpenBSD, AlmaLinux, Debian GNU Linux, Ubuntu, Windows11がある)である。したがって、最も利用する端末であるMacBookProにEmacsを導入しており、その他の環境では原則としてvi系のSystem標準Editorを利用している。

環境

年代	端末	CPU	Memory	OS
2024年	MacBookPro 16“ 2019	Intel Core-i9	64G	macOS Sonoma/14.6.1
2024年	VM(XCP-ng)	AMD Ryzen7 3700X	4G	FreeBSD 14.1

Install

昔はSource Codeを持ってきてCompileしていたが現在では流石にBinary Packageを利用している。

macOS

MacOSの場合、IMEのInline patchを当てないとMetaコマンド系を入力する際にM-あなどとなって少し（というかだいぶ）不便なので、patchを適用する。そのため、少し面倒な対応が必要になる。

[参考]

macOSに HomeBrew を導入し、以下の一連の流れでInstallした。

$ mkdir ~/.config/emacs-plus
$ vi ~/.config/emacs-plus/build.yml
icon: modern-pen
patches:
  - aggressive-read-buffering
  - frame-transparency
  - mac-font-use-typo-metrics
$ brew tap d12frosted/emacs-plus	# Emacs-plusのtapを追加 brew tapで取り込んでいるTapを確認できる
$ brew edit emacs-plus@31		# Emacs-plus@30 (2024年8月現在のHead) のConfigを修正
.... configuration ....
  #
  # Patches
  #

  opoo "The option --with-imagemagick is deprecated and will be removed in a future version. Modern Emacs has native support for most image formats (SVG via librsvg, WebP, PNG, JPEG, GIF). If you rely on ImageMagick, please open an issue describing your use case." if build.with? "imagemagick"
  local_patch "system-appearance", sha: "53283503db5ed2887e9d733baaaf80f2c810e668e782e988bda5855a0b1ebeb4"
  local_patch "round-undecorated-frame", sha: "26947b6724fc29fadd44889808c5cf0b4ce6278cf04f46086a21df50c8c4151d"
  # Added by seirios
  patch do
    url "https://raw.githubusercontent.com/takaxp/ns-inline-patch/master/emacs-head-inline.patch"
  end

  #
  # Install
  #
.... configuration ....
$ brew install --formula d12frosted/emacs-plus/emacs-plus@31 --with-mailutils
$ osascript -e 'tell application "Finder" to make alias file to posix file "/opt/homebrew/opt/emacs-plus@31/Emacs.app" at POSIX file "/Applications" with properties {name:"Emacs.app"}'
$ sudo codesign --force --deep --sign - /opt/homebrew/opt/emacs-plus@31/Emacs.app
$ brew services start d12frosted/emacs-plus/emacs-plus@31

ここまでを実行すると、

/Applications FolderにEmacs.appが作成される
LaunchPad にEmacsアイコンが追加され、
起動項目にemacsが追加され、
BackgroundでEmacsが起動

される。一応 Inline-patch を確認するために、一度Emacsを起動し、

M-x mac-ime-toggle
M-x mac-ime-activate
M-x mac-ime-deactivate

が動作するかを確認しておく。

なお、自明だが、ImageMagickやDBUSを利用する場合には、brew install imagemagick dbusを実行しておくこと。

このIME用 Inline-Patchを適用した場合、init.elに以下のelisp codeを追加しておくと良い。

(when (and (memq window-system '(ns nil))
           (fboundp 'mac-get-current-input-source))
  (when (version< "27.0" emacs-version)
    ;; Required for some cases when auto detection is failed or the locale is "en".
    (custom-set-variables
     '(mac-default-input-source "com.google.inputmethod.Japanese.base")))
  (mac-input-method-mode 1))

Emacs install時の引数に –with-x11 を追加すると、Compileに失敗した(@2024/08/15)

–with-imagemagickをつけてCompile/Installすると、mu4eを利用している時に画像などが綺麗に出力されるので、余裕があるなら入れておくほうが良い。
~~–with-dbusをつけてCompile/Installすると、Process間通信のMessage BUSとしてDBUSを利用する。~~　Obsolate.

https://github.com/d12frosted/homebrew-emacs-plus/issues/742
ここにあるように、macOS Sequoiaにおいて、Xcode commandline tools を最新にすると、Emacs.appを実行できない。
sudo codesign –force –deep –sign - /usr/local/opt/emacs-plus@31/Emacs.app
によってApp FileをSignすると実行できるようになる。注意すること

Reading directory: Operation not permitted エラーが出て、Emacsからフォルダが開けない場合
macOS SequoiaでEmacsをInstallした後、どうしてもDesktop FolderをEmacsから開けなかった。
こういう時は、一度フルディスクアクセス設定を削除したのち、もう一度フルディスクアクセス設定を行うことで回避できる可能性がある。
Commandlineから sudo tccutil reset All org.gnu.Emacs を実行し、システム環境設定からセキュリティ→フルディスクアクセスに移動し、左下の「＋」からEmacs.appを追加。その後、Emacs.appを再度起動すると、Desktopフォルダにアクセスできるようになった。

FreeBSD

自分はFreeBSDをサーバーとして利用しており、GUIを利用していない。そのため、EmacsをX11経由ではなくConsoleから利用している。ほとんどの接続がssh経由だからこれでよい。

したがって、EmacsのInstallは

$ doas pkg install emacs-nox		# sudoでもよい

で終わりである。

初期設定

Emacsはそれ単体では最小限のことしかできない。しかし、Emacs-Lispを組み込み、設定を行うことで色々なことができるようになる。これを称して、昔は、「EmacsはEditorではない。Environmentである」などとも言われていた。

以下、個人の設定。 (2024/08/26)

ここで、Packageごとの設定など、細かいことを説明すればいいんだろうけど、かなり面倒なので、コメントで勘弁して。

このinit.elは、byte-compileするとgo-translate関連の変数が未定義扱いになる。本来は:customで設定すべきなんだろうと思うがうまく行かなかったので、とりあえずは:configで逃げてある。

early-init.el

;;; -*- lexical-binding: t; -*-
;;; ~/.config/emacs/early-init.el --- Early initialization
;;;
;;; last updated: 2026/01/02
;;; Author: HEO SeonMeyong <seirios@seirios.org>
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; log
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 2026/01/02	Refactoring by Microsoft Copilot.
 
;; 起動直後は GC を後ろ倒し（起動後に元へ戻す）
(setq gc-cons-threshold most-positive-fixnum)
(add-hook 'emacs-startup-hook (lambda () (setq gc-cons-threshold 134217728)))
 
;; package.el は自動では有効化しない（init.el側で initialize）
(setq package-enable-at-startup nil)
 
;; フレームの暗黙のリサイズ抑制（ちらつき防止）
(setq frame-inhibit-implied-resize t)
 
;; 早期に不要なUIをオフ
(push '(tool-bar-lines . 0)   default-frame-alist)
(push '(menu-bar-lines . 1)   default-frame-alist)
(push '(vertical-scroll-bars) default-frame-alist)
 
(provide 'early-init)
;;; early-init.el ends here

init.el

;;; -*- lexical-binding: t; -*-
;;; ~/.config/emacs/init.el --- Refactored init.el (Intel macOS)
;;;
;;; last updated: 2026/01/02
;;; Author: HEO SeonMeyong <seirios@seirios.org>
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Tips
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; emacs -nw -q --batch --eval '(message system-configuration-options)'	; Emacs compile option(Commandline)
;; emacs --batch -f batch-byte-compile init.el				; init.elの文法チェック(init.elcは削除すること)
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Prefix keys memo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; C-? : Control+?
;; M-? : Meta(ESC)+?
;; s-? : Super(command)+?
;; S-? : Shift+?	(本当？)
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; コメント定義
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; セミコロン 3 つは段落コメント
;; セミコロン 2 つはコードブロックコメント
;; セミコロン 1 つは、行コメント
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Reference site
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; https://emacs-jp.github.io						; 日本のEmacsユーザーのためのハブサイト
;;   https://emacs-jp.github.io/tips/emacs-in-2020			; * 2020年代のEmacs入門
;; https://qiita.com/conao3/items/347d7e472afd0c58fbd7			; * Emacs入門から始めるleaf.el入門
;; https://qiita.com/conao3/items/dc88bdadb0523ef95878			; * leaf.elで「init.el」をクリーンにする
;; https://uwabami.github.io/cc-env/Emacs.html				; Emacs の設定
;; https://zenn.dev/zenwerk/scraps/b1280f66c8d11a			; Emacs設定記 2021
;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Find-Init.html	; Emacs Manual
;; https://github.com/purcell/exec-path-from-shell			; Macでshellから環境変数を取り込む
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; log
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 2026/01/02	Refactoring by Microsoft Copilot.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Path & package bootstrap
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 追加の elisp を load-path に加える（存在チェック付き）
(let ((extra-paths '("/usr/local/share/emacs/site-lisp"
                     "~/.config/emacs/elisp/")))
  (dolist (p extra-paths)
    (let ((abs (expand-file-name p)))
      (when (file-directory-p abs)
        (add-to-list 'load-path abs)))))
 
;; Info の追加ディレクトリ（Homebrew等）
(dolist (info-dir '("/usr/local/share/info/"))
  (when (file-directory-p info-dir)
    (add-to-list 'Info-default-directory-list info-dir)))
 
;; package.el の初期化（early-init.el で package-enable-at-startup を nil にしている前提）
(require 'package)
(custom-set-variables
 '(package-archives '(("gnu"   . "https://elpa.gnu.org/packages/")
                      ("melpa" . "https://melpa.org/packages/")
                      ("org"   . "https://orgmode.org/elpa/")))
 '(package-gnupghome-dir (expand-file-name ".gnupg" (getenv "HOME"))))
(package-initialize)
 
;; leaf を未導入なら取得
(unless (package-installed-p 'leaf)
  (package-refresh-contents)
  (package-install 'leaf))
 
(leaf leaf-keywords
  :ensure t
  :config (leaf-keywords-init))
 
;; customize の書き込み先を分離
(setq custom-file (expand-file-name "~/.config/emacs/custom.el"))
(when (file-exists-p custom-file)
  (load custom-file))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; macOS: シェルの環境変数を取り込む（GUI起動でも PATH 等を揃える）
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf exec-path-from-shell
  :ensure t
  :require t
  :when (memq window-system '(mac ns x))
  :config
  (dolist (var '("PATH" "MANPATH" "LD_LIBRARY_PATH" "LIBRARY_PATH"))
    (add-to-list 'exec-path-from-shell-variables var))
  (exec-path-from-shell-initialize))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 基本設定（UI/操作系）
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf cus-start
  :doc "Builtins のカスタマイズをまとめる"
  :bind (("M-%"      . replace-regexp)
         ("C-c M-%"  . query-replace-regexp)
         ("C-%"      . replace-string)
         ("C-c C-%"  . query-replace)
         ("C-z"      . undo)
         ("C-x c"    . browse-url-at-point)
         ("C-h"      . delete-backward-char)
         ("C-c C-l"  . toggle-truncate-lines)
         ("C-c /"    . comment-or-uncomment-region)
         ("C-c l"    . display-line-numbers-mode)
         ("C-s"      . isearch-forward)
         ;; mu4e ランチャー
         ("C-x m"    . mu4e)
         ;; Tab-bar 操作（mac風）
         ("s-}"      . tab-bar-switch-to-next-tab)
         ("s-{"      . tab-bar-switch-to-prev-tab)
         ("s-T"      . tab-new)
         ("s-w"      . tab-close))
  :hook ((minibuffer-setup-hook . shrink-window-if-larger-than-buffer))
  :custom '((create-lockfiles . nil)                 ; lockfile を作らない
            (debug-on-error . t)                     ; エラー時 backtrace
            (frame-resize-pixelwise . t)
            (enable-recursive-minibuffers . t)
            (history-length . 1000)
            (history-delete-duplicates . t)
            (scroll-preserve-screen-position . t)
            (scroll-conservatively . 10000)
            (scroll-step . 1)
            (scroll-margin . 2)
            (visible-bell . t)
            (text-quoting-style . 'straight)
            (truncate-lines . nil)                   ; 折り返し表示
            (tab-width . 8)
            (line-number-display-limit-width . 10000)
            (resize-mini-windows . t)
            (max-mini-window-height . 0.1)
            (indicate-empty-lines . t)
            (indicate-buffer-boundaries . 'left)
            (gc-cons-percentage . 0.2)
            (gc-cons-threshold . 134217728)         ; 128MB
            (menu-bar-mode . t)
            (tool-bar-mode . nil)
            (scroll-bar-mode . nil)
            (indent-tabs-mode . nil)
            (transient-mark-mode . t)
            (tab-bar-mode . t))
  :config
  ;; yes-or-no を y/n に短縮
  (defalias 'yes-or-no-p 'y-or-n-p)
  ;; 改行のバックスラッシュを非表示
  (set-display-table-slot standard-display-table 0 ?\ )
  (set-display-table-slot standard-display-table 'wrap ?\ )
  ;; macOS 固有
  (leaf cus-start-mac
    :when (eq system-type 'darwin)
    :custom ((ns-alternate-modifier . 'meta)
             (ns-use-srgb-colorspace . t)))
             ;; Frame Transparency (for emacs-plus@31)
             ;; (set-frame-parameter nil 'ns-alpha-elements nil)	; Not use Transparency
             (set-frame-parameter nil 'ns-alpha-elements '(ns-alpha-all))
             ;; Choose elements:
             ;; - Full list: ns-alpha-default (default face/background)
             ;;              ns-alpha-fringe (fringes + internal border clears)
             ;;              ns-alpha-box (boxed face outlines)
             ;;              ns-alpha-stipple (stipple mask background clears)
             ;;              ns-alpha-relief (3D relief/shadow lines)
             ;;              ns-alpha-glyphs (glyph background fills like hl-line/region)
             (set-frame-parameter nil 'ns-alpha-elements
                 '(ns-alpha-default ns-alpha-fringe ns-alpha-glyphs))
             (set-frame-parameter nil 'alpha-background 0.8)
             (set-frame-parameter nil 'ns-background-blur 20)
)
 
;; dired のショートカット
(leaf dired :bind ((:dired-mode-map ("u" . dired-up-directory))))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 多言語環境（mule）
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf mule
  :config
  (set-language-environment 'Japanese)
  (set-terminal-coding-system 'utf-8)
  (set-keyboard-coding-system 'utf-8)
  (set-buffer-file-coding-system 'utf-8)
  (set-file-name-coding-system 'utf-8)
  (set-clipboard-coding-system 'utf-8)
  (prefer-coding-system 'utf-8)
  (set-default-coding-systems 'utf-8)
  (when (eq system-type 'darwin)
    (customize-set-variable 'default-input-method "macOS")))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; GUI/フォント
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(when (memq window-system '(x mac ns))
  (defvar my-frame-parameters
    '((height . 45) (width . 188)
      (top . 20) (left . 20)
      (line-spacing . 0)
      (left-fringe . 12) (right-fringe . 12)
      (cursor-type . box)
      (alpha . 95)
      (foreground-color . "#F2F2F2")
      (background-color . "#000040")
      (cursor-color . "#C0C000")
      (mouse-color . "#8D8D8D")))
  (setq default-frame-alist my-frame-parameters)
  (setq frame-title-format '(multiple-frames "%b" ("" invocation-name)))
  (setq blink-cursor-mode t)
  (setq frame-inherited-parameters '(font tool-bar-lines))
  (setq ns-pop-up-frames nil)
  ;; mac/ns フォント
  (when (memq window-system '(mac ns))
    (global-set-key [s-mouse-1] 'browse-url-at-mouse)
    (let* ((size 16)
           (jpfont "PlemolJP")
           (asciifont "PlemolJP")
           (h (* size 10)))
      (set-face-attribute 'default nil :family asciifont :height h)
      (set-fontset-font t 'katakana-jisx0201 jpfont)
      (set-fontset-font t 'japanese-jisx0208 jpfont)
      (set-fontset-font t 'japanese-jisx0212 jpfont)
      (set-fontset-font t 'japanese-jisx0213-1 jpfont)
      (set-fontset-font t 'japanese-jisx0213-2 jpfont)
      (set-fontset-font t '(#x0080 . #x024F) asciifont))
    (setq face-font-rescale-alist
          '(("^-apple-hiragino.*" . 1.2)
            (".*-Hiragino Maru Gothic ProN-.*" . 1.2)
            (".*osaka-bold.*" . 1.2)
            (".*osaka-medium.*" . 1.2)
            (".*courier-bold-.*-mac-roman" . 1.0)
            (".*monaco cy-bold-.*-mac-cyrillic" . 0.9)
            (".*monaco-bold-.*-mac-roman" . 0.9)
            ("-cdac$" . 1.3))))
  ;; マウス設定
  (setq mouse-drag-copy-region t)
  (setq mouse-wheel-scroll-amount '(1 ((shift) . 2) ((control))))
  (setq mouse-wheel-progressive-speed nil))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Builtins: modeline/time 等
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf which-function :custom '((which-function-mode . t)))
 
(leaf time
  :hook (emacs-startup-hook . display-time-mode)
  :custom '((display-time-interval . 1)
            (display-time-string-forms '((format "%s:%s:%s" 24-hours minutes seconds)))
            (display-time-day-and-date . t)))
 
(leaf browse-url
  :custom '((browse-url-browser-function . 'browse-url-generic))
  :config
  (when (eq system-type 'darwin)
    (customize-set-variable 'browse-url-generic-program "open")))
 
(leaf time-stamp
  :hook (before-save-hook . time-stamp)
  :custom '((time-stamp-active . t)
            (time-stamp-start . "last updated: ")
            (time-stamp-format . "%Y/%02m/%02d")
            (time-stamp-end . " \n$")))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 表示/編集補助
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
(setq-default display-line-numbers nil)			;; 行番号は基本オフ（必要なら C-c l で局所的にトグル）
(global-display-line-numbers-mode -1)			;; ← nil ではなく -1 で確実に OFF
(setq column-number-mode t)
(setq size-indication-mode t)
 
(leaf whitespace
  :require t
  :hook (find-file-hook . (lambda () (whitespace-mode 1)))
  :config
  (setq whitespace-style '(face trailing tabs empty spaces)
        ;; 全角スペースのみ可視化
        whitespace-space-regexp "\\(\\u3000+\\)")
  ;; フェイスは一度だけ設定
  (set-face-attribute 'whitespace-trailing nil
    :foreground "DeepPink" :background "Purple4" :underline t)
  (set-face-attribute 'whitespace-tab nil
    :foreground "RoyalBlue4" :background "gray20" :underline t)
  (set-face-attribute 'whitespace-space nil
    :background "blue3" :foreground "GreenYellow" :weight 'bold :underline t)
  (set-face-attribute 'whitespace-empty nil
    :foreground "MediumPurple4" :background "thistle4" :underline t)
  (global-whitespace-mode t))
 
(leaf paren
  :hook (emacs-startup-hook . show-paren-mode)
  :custom '((show-paren-delay . 0)
            (show-paren-style . 'mixed)))
 
(leaf simple
  :custom '((kill-ring-max . 100)
            (kill-read-only-ok . t)
            (kill-whole-line . nil)
            (eval-expression-print-length . nil)
            (eval-expression-print-level . nil)
            (indent-tabs-mode . nil)
            (mail-user-agent . 'mu4e-user-agent)))
 
(leaf files
  :custom '((make-backup-files . t)
            (backup-by-copying . t)
            (version-control . t)
            (kept-new-versions . 2)
            (kept-old-versions . 2)
            (delete-old-versions . t)
            (auto-save-timeout . 15)
            (auto-save-interval . 60)
            (delete-auto-save-files . t)))
 
(leaf startup
  :config
  (setq init-file-debug t
        auto-save-list-file-prefix (locate-user-emacs-file "backup/.saves-")
        inhibit-startup-screen t
        inhibit-startup-message t
        inhibit-startup-echo-area-message t
        initial-scratch-message ""))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 補完: company
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf company
  :ensure t
  :bind (("C-M-i" . company-complete)
         (:company-active-map
          ("C-n" . company-select-next)
          ("C-p" . company-select-previous)
          ("C-s" . company-filter-candidates)
          ("C-h" . nil)
          ("C-S-h" . company-show-doc-buffer)
          ("<tab>" . company-complete-common))
         (:company-search-map
          ("C-n" . company-select-next)
          ("C-p" . company-select-previous)))
  :custom '((company-idle-delay . 0.3)
            (company-minimum-prefix-length . 2)
            (company-transformers . '(company-sort-by-backend-importance))
            (company-auto-expand . t)
            (company-selection-wrap-around . t)
            (completion-ignore-case . t)
            (company-dabbrev-downcase . nil)
            (company-show-numbers . t)))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 言語モード
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf lua-mode
  :ensure t
  :mode ("\\.lua\\'" . lua-mode)
  :interpreter ("lua" . lua-mode)
  :custom '((lua-indent-level . 2)
            (lua-indent-string-contents . nil)
            (lua-indent-nested-block-content-align . t)
            (lua-indent-close-paren-align . t)
            (lua-default-application . "/usr/local/bin/lua")
            (lua-default-command-switches . "-i")
            (lua-always-show . t))
  :config (add-hook 'lua-mode-hook #'company-mode))
 
(leaf caddyfile-mode
  :ensure t
  :mode (("Caddyfile\\'" . caddyfile-mode)
         ("caddy\\.conf\\'" . caddyfile-mode))
  :hook (caddyfile-mode-hook . (lambda () (setq-local tab-width 4
                                                     indent-tabs-mode nil))))
 
(leaf nginx-mode
  :ensure t
  :mode (("nginx\\.conf\\'" . nginx-mode))
  :hook (nginx-mode-hook . company-mode))
 
(leaf w3m
  :ensure t
  :custom ((w3m-command . "/usr/local/bin/w3m")))
 
(leaf vc-fossil
  :ensure t
  :init (add-to-list 'vc-handled-backends 'Fossil t))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 翻訳: go-translate (鍵は環境変数/認証ストアから取得推奨)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf go-translate
  :ensure t
  :bind (("C-c t" . gt-do-translate))
  :custom '((gt-langs . '(en ja)))
  :config
  ;; DeepL API キーは環境変数 DEEPL_API_KEY から取得。未設定なら DeepL を使わず Google/Bing へフォールバック。
  (let ((deepl-key (getenv "DEEPL_API_KEY")))
    (setq gt-default-translator
          (gt-translator
           :taker (gt-taker :text 'buffer :pick 'paragraph)
           :engines (delq nil (list (gt-deepl-engine :key "d7b2482e-9a53-43a5-885d-bc511b7b0aad:fx" :pro nil)
                                    (gt-google-engine)
                                    (gt-bing-engine)))
           :render (gt-buffer-render)))))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; EasyPG (GPG)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf epa-file
  :require t
  :config
  (epa-file-enable)
  ;; pinentry-mode は epg-config の変数
  (with-eval-after-load 'epg-config
    (setq epg-pinentry-mode 'loopback)))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; mu4e 設定を分離ロード
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(load (expand-file-name "~/.config/emacs/mu4e-init.el") t)
 
(provide 'init)
;;; init.el ends here

screen

anonymous@undisclosed.example.com (Anonymous) — Tue, 03 Sep 2024 05:10:30 +0000

screen

GNUscreen 5.0.0が2024/08/28 UTCにReleaseされた。

筆者はTerminal multiplexerとしてscreenを補助的に使う生活を3年くらい前までしていた。要するにMultiplexerを使わずともTerminal Windowを複数立ち上げれば事足りた。

本格的にTerminal Multiplexerを利用するようになったのは、2021年ごろに海外の仕事を受けた際だったとおもう。業務上、remoteの環境を操作する必要があったのだが、回線状況が悪いため、しばしばconnectionが切断される羽目に陥った。おかげで、日本にいる時は海外側の機器の操作にストレスが溜まり、海外で作業している時は「誤家庭のサーバー環境」の保守もできなくなった。

というわけで、さすがにTerminal Multiplexerを使うしかなくなったタイミングで色々調べた上でtmuxを利用し始めた。

なぜscreenではなくtmuxにしたかというと、tmuxでは複数painに対して同時にキー入力を行うことができたから。 sshで接続している複数のVMに同じコマンドをバラバラに打つのは面倒である。特にOSのUpdateの時などは、対象の台数が多く同時に９台の更新を行うこともあるので、painを移動しながら9回同じコマンドを入力するのは辛かった。当時のscreen(4.8.0かな)ではこの問題を解決できなかったので、tmuxを選択した。

しかし、筆者には、tmuxを使うようになってもscreenを使わざるを得ない状況が残っていた。それがserial console経由での機器設定である。 MacからUSB serial cableやBluetooth serial adapterを利用してシリアルコンソール経由で機器設定する際にscreenが便利だったのだ。しかし、tmuxのpainの中でscreenを起動すれば、手が迷ってしまう。特にlog取得や(screen側の)region移動と(tmux側の)pain移動など、command側に何かさせようとしたら手が迷って失敗も増えてしまった。もちろんserial制御にtipやcuなどの慣れている、古のcommandを利用することも十分に考慮の範囲だったのだが、macOS側の設定まで考えると設定の維持管理は面倒。 screenの保守と比べたら比較にならない。

というわけで、tmuxを使って手が慣れた今頃になって、screenが20年ぶりのMajor Version Upし、そこにmultiinputが入ったというアナウンスがあった。（なお、screenのMinor Version Upは年1回程度続いており、BugFixなどは継続して行われている。）

tmuxとscreenの同時併用に面倒な思いをしていた筆者は、multiinputに期待しscreenに一本化できることを期待して、screenを再度一から設定しようと考えたのであった。

（マクラが長い…しかも単にポエムになっている… orz）

Terminal Multiplexerの意味

TerminalをMultiplex(複合的な、多重送信→多重化)する(笑)というのは、直感的にはいわゆるTerminal Applications(xterm, Terminal.App, Console画面, WezTermなど)で動かしているshell下で、複数の「画面表示を要するApplication」を、Terminal画面を分割して自由に表示させる、というイメージになると思われる。画面分割などによる制御を手元のTerminal Appsで実行すると、Terminal Appsが死んだ時に動かしていたProcessが停止して困ったことになる。また、UNIXにおいてApplicationがつかんでいるptyを乗っ取ることはSecurityの観点などからよろしくないため、他のcommandsが握っているptyを乗っ取ることは原則としてしない。 (多くの人にとっては事実上できないと言えるだろう)

というわけで、手元、Remoteを問わず、screenを用いて踏み台単位でMultiplexすれば良いということになる。そうすれば、multiplexerがptyやconnectionを維持しつつ、Detachしてlogoutすることもできるし、次回loginした時に、再度Attachして制御を取り戻すこともできる。

この制御の継続性が、筆者がTerminal Multiplexerを利用する意味である。（この意味はあくまでも筆者にとってなので、そうでない人が多数いるだろうことは自明である。為念)

screenとtmux

screenとtmuxはTerminal Multiplexerに分類されるtool/commandだが、用語や管理モデルが大きく異なっているように見える。単に使う分には慣れの問題だが、凝ったことをしようとすると、用語と管理モデルの違いを認識しないと迷ってしまうことになる。

用語の違い

大きな違いとして、Session, Window, Pain, Layoutがある。

Screen KeyBind

screenにおけるKeyBind表

Key	raw	Sft	Ctl	raw	Ctl
a	meta	tittle	other
b	break	pow_break	break
c	screen	clear	screen
d	detach	pow_detach –confirm	detach
e
f	flow	fit	flow
g		vbell
h	hardcopy	log	prev
i	info	focus
j
k	kill –confirm		kill –confirm
l	redisplay		redisplay
m	lastmsg	monitor	lastmsg
n	next	number	next
o
p			prev
q	xon	only	xon
r	wrap		wrap
s	xoff	spit	xoff
t
u	parent		parent
v	version	digraph
w	windows	width	windows
x	lockscreen	remove	lockscreen	meta	other
y
z	suspend	reset	suspend
0	select 0
1	select 1
2	select 2
3	select 3
4	select 4
5	select 5
6	select 6
7	select 7
8	select 8
9	select 9
[	copy		copy
]	paste .		paste .
<	readbuf
>	writebuf
{	history
}	history
.	dumptermcap
.	license
:	colon
*	displays
'	select
?	help
@			next
-	select -
=	removebuf
_	silence
\			quit –confirm
\|
“	windowlist -b
Tab	focus
Spc	next

History

— seirios 2024/09/02 02:12