emacs の補完フレームワーク vertico に移行した

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

;; --- Vertico プロンプト上部へのカーソル位置の候補の全文表示機能 ---

(defvar-local my-vertico-top-overlay nil
  "最上部に表示するためのオーバーレイ")

(defun my-vertico-wrap-string (string width)
  "文字列を指定された幅(width)で強制的に折り返す。"
  (with-temp-buffer
    (insert string)
    (goto-char (point-min))
    (let ((col 0))
      (while (not (eobp))
        (let ((char-w (char-width (char-after))))
          ;; 次の文字を入れると幅を超える場合、先に改行を入れる
          (if (> (+ col char-w) width)
              (progn
                (insert "\n")
                (setq col char-w))
            (setq col (+ col char-w)))
          (forward-char 1))))
    (buffer-string)))
			

(defun my-vertico-update-top-header ()
  "現在の候補を取得して最上部ヘッダーを更新する"
  (when (and my-vertico-top-overlay vertico--input)
    (let* ((cand (vertico--candidate))
	   (prefix "cur: ")
           (win-width (window-width))
	   (selected (my-vertico-wrap-string (concat prefix cand) win-width))
           (display-string
            (if cand
                (concat
                 (propertize prefix 'face 'default)
		 
                 ;; ★ここがポイント: 表示文字列の最後に改行(\n)を入れる
                 (propertize (substring selected (length prefix))
                             'face 'font-lock-doc-face) ;; 色はお好みで変更可
                 "\n" 
                 ;; 区切り線を入れたい場合は以下のように追加
                 ;; (propertize (make-string win-width ?\-) 'face 'shadow) "\n"
                 )
              ""))) ; 候補がない場合は空にする
      
      ;; オーバーレイの before-string プロパティを使って「前」に挿入する
      (overlay-put my-vertico-top-overlay 'before-string display-string))))

(defun my-vertico-setup-top-header ()
  "ミニバッファ起動時にオーバーレイをセットアップする"
  ;; ★ポイント: バッファの先頭(point-min)にオーバーレイを作成
  (setq my-vertico-top-overlay (make-overlay (point-min) (point-min)))
  ;; カーソル移動のたびに更新
  (add-hook 'post-command-hook #'my-vertico-update-top-header nil 'local))

;; フックに登録
(add-hook 'minibuffer-setup-hook #'my-vertico-setup-top-header)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

;;; 自分用の consult-recentf
;; 特定のディレクトリで始まるパスは、ディレクトリ部分を別文字列に置き換える

;; 1. 置換ルールの定義
(defvar my/consult-recentf-rewrite-rules
  '(("/dir/path0000000000000000000000000/hogehoge/" . "[hogehoge]/")
    ("/dir/path0000000000000000000000000/ageage/" . "[ageage]/")))

;; 2. パスを (表示名 . 実パス) のペアに変換する関数
(defun my/consult-recentf-transformer (path)
  (let ((display-path path))
    (dolist (rule my/consult-recentf-rewrite-rules)
      (when (string-prefix-p (car rule) path)
        (setq display-path 
              (concat (cdr rule) 
                      (substring path (length (car rule)))))))
    ;; ここが変更点: 文字列ではなく (表示用 . 実パス) のペアを返す
    (cons display-path path)))

;; 3. カスタムソースの定義
(defvar my/consult-source-recent-file
  (list :name     "Recent Files (Custom)"
        :narrow   ?f
        :category 'file
        :face     'consult-file
        :history  'file-name-history
        
        ;; items でペアのリストを作成する
        :items    (lambda ()
                    (mapcar #'my/consult-recentf-transformer recentf-list))
        
        ;; ペアの cdr (実パス) が自動的に渡されるため、そのまま find-file でOK
        :action   #'find-file
        
        ;; プレビューも実パスが渡されるため、標準関数がそのまま使える
        :state    #'consult--file-state))

;; 4. 設定の適用
(with-eval-after-load 'consult
  ;; デフォルトの recentf を削除して、カスタム版を追加
  (setq consult-buffer-sources 
        (remove 'consult-source-recent-file consult-buffer-sources))
  (add-to-list 'consult-buffer-sources 'my/consult-source-recent-file 'append))