completion nits (liking mct)

2 files changed, 9 insertions, 2 deletions

diff --git a/completion.org b/completion.org
index 5d71e9e..f266c49 100644
--- a/completion.org
+++ b/completion.org
@@ -33,7 +33,7 @@
             orderless-skip-highlighting nil
             orderless-component-separator "[ -/]+"
             orderless-matching-styles
-            '(orderless-literal orderless-regexp orderless-initialism)))
+            '(orderless-literal orderless-initialism orderless-regexp)))
   #+end_src
 * corfu
   #+begin_src emacs-lisp
@@ -50,6 +50,11 @@
                   corfu-min-width 20
                   corfu-max-width 100)
       :config
+
+      ;; show eldoc string immediately after accepted completion too
+      (with-eval-after-load "eldoc"
+        (eldoc-add-command-completions "corfu-"))
+
       (defun jao-corfu-enable-no-auto ()
         (setq-local corfu-auto nil)
         (corfu-mode 1))
@@ -70,7 +75,7 @@
 
   #+end_src
 * vertico
-  #+begin_src emacs-lisp
+  #+begin_src emacs-lisp :tangle no
     (jao-load-path "vertico/extensions")
     (use-package vertico-directory
       :after vertico)
diff --git a/init.org b/init.org
index ba9d3da..19d08d7 100644
--- a/init.org
+++ b/init.org
@@ -651,6 +651,7 @@
           (jao-notify msg "" (jao-data-file "clock-world-icon.png"))))
 
       (defun jao-time-to-epoch (&optional s)
+        "Transform a time string to an epoch integer in milliseconds."
         (interactive)
         (let ((s (or s (read-string "Time string: " (thing-at-point 'string)))))
           (message "%s = %s"
@@ -658,6 +659,7 @@
                    (round (* 1000 (time-to-seconds (parse-time-string s)))))))
 
       (defun jao-epoch-to-time (&optional v)
+        "Transform an epoch, given in milliseconds, to a time string."
         (interactive)
         (let ((v (or v (read-number "Milliseconds: " (thing-at-point 'number)))))
           (message "%s = %s" v