はじめに

ここのところ、わたくしのemacsはconsult + corfu + vertico + marginalia + orderless + embark + recentfという安定の補完環境で絶賛稼働中です。
いずれのパッケージもgithubでのスター数が1,200前後なので、これらの組み合わせが2025年のメインストリームなのでしょうね（anythingやhelmの時代から大きく進化しました。あとは本家のeglot/tree-sitterの挙動がもう少し安定してくれれば文句がないのですが）。

さて、春の訪れにあわせて、しばらく放置していたライティング環境を整備してみました。
具体的には、辞書と翻訳、それに対話型llmクライアントです。一連のパッケージに必要なAPIについては、いずれも無料のものを使用しました。無料APIなので、キーはinit.elに直接記載してあります（文中ではhoge-fugaと表記）。

環境はArch Linux(6.13.5-2) + Xfce4(4.20) + emacs(30.1-3)です。

辞書

sdcv

前提

sdcvおよび辞書をインストール済みで、コンソール上で安定動作していること
melpaからsdcv.elを導入してください
使用する辞書のpathは各自の環境に合わせてください（サンプルでは英和および日本語辞書を設定）

my init.el

init.el

;; == sdcv ==
(require 'sdcv)
(require 'posframe)
(setq sdcv-dictionary-data-dir "~/.stardict/dic")
(setq sdcv-dictionary-complete-list
      '("EIJIRO v106"
        "新明解国語辞典"
        "広辞苑　第六版"))
(global-set-key (kbd "C-c j") 'sdcv-search-pointer)
(global-set-key (kbd "C-c J") 'sdcv-search-input)
(setq sdcv-word-pronounce -1)

使用方法

Ctrl-c jでカーソル位置の単語を検索
Ctrl-c Jで検索したい単語を入力

goldendict

前提

goldendictにはたくさんのforkがあって、どれがベストなのかよくわかりません
わたくしはaur/goldendict-ng-git 24.11.0.r5693.15207cf4-1を使用中です
goldendictアプリを導入済みで、デスクトップで安定動作していること
パッケージの導入は不要です（下記の関数で呼び出します）

my init.el

init.el

;; == goldendict ==
(defun look-up-dict (word)
  (start-process "goldendict" nil "goldendict" word))

(defun look-up-dict-marked ()
  (interactive)
  (let ((word ""))
    (if (equal major-mode 'pdf-view-mode)
        (setq word (car (pdf-view-active-region-text)))
      (setq word  (buffer-substring (mark) (point))))
    (look-up-dict word)))

(global-set-key (kbd "C-; w") 'look-up-dict-marked)

使用方法

検索したい単語を領域選択後、Ctrl-; wでpopupの検索結果が開きます

翻訳

DeepL

前提

様々な実装を試してみましたが、"EmacsからDeepLのAPIを叩くコマンドを実装する"がわたくしのスタイルに最も合致していました
コード本体とインストール方法については、上記ページをご参照ください

my init.el

init.el

;; == DeepL EN ==
(use-package request)
(load-file "~/.emacs.d/mypac/deepl.el")
(global-set-key (kbd "C-c q") 'deepl-translate)
(setq deepl-auth-key "hoge-fuga")

使用方法

検索したい文章を領域選択後、Ctrl-c qでミニバッファに翻訳結果が表示され、同時にクリップボードにもコピーされます

DeepL ブラウザ版

前提

こちらは検索結果がブラウザ上で開きます
melpaからurl-utilパッケージを導入してください

my init.el

init.el

;; == DeepL without API ==
(require 'url-util)
(defun deepl-noapi (&optional string)
  "DeepL browser version"
  (interactive)
  (setq string
        (cond ((stringp string) string)
              ((use-region-p)
               (buffer-substring (region-beginning) (region-end)))
              (t
               (save-excursion
                 (let (s)
                   (forward-char 1)
                   (backward-sentence)
                   (setq s (point))
                   (forward-sentence)
                   (buffer-substring s (point)))))))
  (run-at-time 0.1 nil 'deactivate-mark)
  (browse-url
   (concat
    "https://www.deepl.com/translator#en/ja/"
    (url-hexify-string string)
    )))
(global-set-key (kbd "C-; y") 'deepl-noapi)

使用方法

検索したい文章を領域選択後、Ctrl-; yでブラウザの新規タブが開き、結果が表示されます

go-translate

前提

著名なgo-translateです
複数言語を複数エンジンで同時に翻訳し、別バッファに結果を表示してくれます
melpaからgo-translate.elを導入してください

my init.el

init.el

;; == go-translate ==
(use-package go-translate
  :ensure t
  :bind ("C-c t" . gt-do-translate)
  :config
  (setq gt-langs '(ja en it)) 
  (setq gt-default-translator
      (gt-translator
       :taker   (gt-taker :text 'buffer :pick 'paragraph)
       :engines (list
                 (gt-google-engine)
                 (gt-bing-engine)
                 (gt-deepl-engine :key "hoge-fuga" :pro nil)
                 )
       :render  (gt-buffer-render))))

使用方法

検索したい文章を領域選択後、Ctrl-c tで新規バッファが開き、結果が表示されます
バッファ上でtを押すと翻訳方向が切り替わります（サンプルでは[en]->[ja] ⇒ [en]->[it] ⇒ [it]->[ja] ⇒ [it]->[en]のサイクル）

llmクライアント

ライティング環境で気軽に利用できる対話型のクライアントとして、現時点ではgptelがわたくしには最適です。

gptel

前提

活発に開発が続いており、メジャーなllmのほとんどに対応しています
テキストやコーディング環境だけでなく、org-modeからも、別バッファを開くことなくシームレスにllmエンジンを呼び出すことが可能です
サンプルでは3つのllm（いずれも無料APIを利用)を登録しています。詳しい設定についてはgptelをご参照ください
melpaからgptel.elを導入してください

my init.el

init.el

;; == gptel ==
(require 'gptel)
(setq gptel-default-mode 'org-mode)
(global-set-key (kbd "C-c g") 'gptel-mode)
(global-set-key (kbd "C-c G") 'gptel-menu)

;; Github as default
(setq gptel-model  'gpt-4o
      gptel-backend
      (gptel-make-openai "Github Models"
        :host "models.inference.ai.azure.com"
        :endpoint "/chat/completions?api-version=2024-05-01-preview"
        :stream t
        :key "hoge-fuga"
        :models '(gpt-4o)))

;; Gemini as option
(gptel-make-gemini "Gemini" :key "hoge-fuga" :stream t)

;; Groq as option
(gptel-make-openai "Groq"
  :host "api.groq.com"
  :endpoint "/openai/v1/chat/completions"
  :stream t
  :key "hoge-fuga"
  :models '(llama-3.1-70b-versatile
            llama-3.1-8b-instant
            llama3-70b-8192
            llama3-8b-8192
            mixtral-8x7b-32768
            gemma-7b-it))

使用方法

たとえば、org-modeでファイルを編集中にCtrl-c gを押すと、同一バッファ上でGptelのminor modeが起動します
Ctrl-c <Enter>で質問内容をllmに送ると、回答が表示されます

Ctrl-c Gを押すと、ミニバッファーでメニューが開き、別エンジンの選択や表示形式の変更などが可能になります

おまけ

radio.el

radio.elは、emacs上でmpvを介してstreamingラジオを聞くためのシンプルなパッケージです。
一ヶ月前、melpaに登録されてすぐに使い始めました。
直近のバージョンが不安定だったので、いまはmelpaを使わず、ver 0.2.1のコードを直接loadしています。ラジオ局の選択と切断だけのミニマルな環境が心地良いです。

前提

melpaからradio.elパッケージを導入するか、作者のgithubにある適当なソース（サンプルではver 0.2.1）をローカルに保存します
mpvアプリが機能していること
たとえばmpv https://live.amperwave.net/direct/ppm-jazz24mp3-ibc1で音が出ることを確認してください
あとはinit.elにお気に入りのラジオ局を追加してください

my init.el

init.el

;; == radio ==
(load-file "~/.emacs.d/mypac/radio.el")
(customize-set-variable
 'radio-command
 '("mpv" "--terminal=no" "--video=no" ":url"))

(customize-set-variable
 'radio-stations-alist
 '(
   ("Ambiente" . "http://uk2.internet-radio.com:8171/listen.pls")
   ("Jazz 24" . "https://live.amperwave.net/direct/ppm-jazz24mp3-ibc1")
   ("Lounge" . "http://stream.klassikradio.de/lounge-beat/mp3-128/")
   ("ESTILO LEBLON" . "http://us4.internet-radio.com:8193/")
   ("BBC 1" . "http://as-hls-ww-live.akamaized.net/pool_01505109/live/ww/bbc_radio_one/bbc_radio_one.isml/bbc_radio_one-audio%3d96000.norewind.m3u8")
   ))

(global-set-key (kbd "C-c r") 'radio)
(global-set-key (kbd "C-c R") 'radio-stop)

使用方法

Ctrl-c rで聴きたいラジオ局を選択します
Ctrl-c Rで放送を切断します

以上、お役に立てば幸いです。