Work on trusted-dirs.el

init.el

@@ -1,8 +1,8 @@
 ;;; init.el --- Configuration entry point -*- lexical-binding: t -*-
 ;;; Commentary:
 ;;; Code:
-
 (require 'cl-lib)
+(require 'xdg)
 
 ;; Some other config files
 (cl-eval-when (compile load eval)
@@ -354,8 +354,7 @@ PRED is nil, the value of `my/kill-some-buffers-default-pred' is used."
       (dolist (buffer ask-again-buffers)
         (act-on (ask-about buffer nil) buffer nil))
       ;; Do this last so that tty frames don't auto-close half way through
-      (dolist (buffer to-kill)
-        (kill-buffer buffer)))))
+      (mapc 'kill-buffer to-kill))))
 (keymap-global-set "C-x K" 'my/kill-some-buffers)
 
 (use-package tab-bar
@@ -371,7 +370,23 @@ PRED is nil, the value of `my/kill-some-buffers-default-pred' is used."
   :hook (emacs-startup . global-jinx-mode)
   :config
   (evil-define-key 'normal 'global
-    "z=" #'jinx-correct))
+    "z=" #'jinx-correct)
+  (defun my/jinx-visit-dictionary (language &optional other-window)
+    "Visit the dictionary file for LANGUAGE in another window.
+With OTHER-WINDOW, visit the file in another window.  Interactively, use the
+current buffer's language, prompting if there is more than one.  OTHER-WINDOW is
+t with a prefix argument."
+    (interactive (list
+                  (let ((langs (split-string jinx-languages " ")))
+                    (if (length= langs 1)
+                        (car langs)
+                      (completing-read "Language: " langs nil t)))
+                  current-prefix-arg))
+    (let* ((config-dir (expand-file-name "enchant" (xdg-config-home)))
+           (dict-path (expand-file-name (concat language ".dic") config-dir)))
+      (if other-window
+          (find-file-other-window dict-path)
+        (find-file dict-path)))))
 
 ;; recentf
 (use-package recentf
@@ -899,9 +914,7 @@ visual states."
          ("M-g r" . consult-imenu-multi)
          :map help-map
          ("TAB". consult-info)
-         ("<tab>". consult-info)
-         ("C-m" . consult-man)
-         ("<return>". consult-info))
+         ("RET" . consult-man))
   :hook (minibuffer-setup . my/consult-setup-minibuffer-completion)
   :init
   (defun my/consult-setup-minibuffer-completion ()