Changes

4 files changed, 25 insertions, 2 deletions

@@ -0,0 +1,17 @@
+;;; +Info.el                                         -*- lexical-binding: t; -*-
+
+;;Copyright (C) 2022 Case Duckworth
+
+;;; Code:
+
+(require 'info)
+
+(defun +Info-copy-current-node-name (&optional arg)
+  "Put the name of the current Info invocation intothe kill ring.
+This is the same as `Info-copy-current-node-name', but with the
+arg reversed."
+  (interactive "P" Info-mode)
+  (Info-copy-current-node-name (unless arg 0)))
+
+(provide '+Info)
+;;; +Info.el ends here
@@ -6,7 +6,7 @@
   (interactive)
   (if (region-active-p)
       (eval-region (region-beginning) (region-end))
-    (eval-buffer)))
+    (+eval-region@pulse (lambda (_ _) (eval-buffer)) (point-min) (point-max))))
 
 ;; Should I move this to `+pulse' ?
 (defun +eval-region@pulse (advised beg end &rest args)
@@ -91,7 +91,8 @@ This function makes a lambda, so you can throw it straight into
           (propertize (+string-truncate (format-mode-line mode-name) 12)
                       'face 'bold
                       'keymap mode-line-major-mode-keymap
-                      'help-echo (concat mode-name " mode\nmouse-1: show menu.")
+                      'help-echo (concat (format-mode-line mode-name)
+                                         " mode\nmouse-1: show menu.")
                       'mouse-face 'mode-line-highlight)))
 
 (defcustom +modeline-modified-icon-alist '((ephemeral . "*")
@@ -3,6 +3,7 @@
 ;;; Code:
 
 (require 'cl-lib)
+(require 'acdw)
 ;; We don't require `org-capture' here because I'll have to require this library
 ;; to init.el /before/ org-capture is fully needed.  But I do need to declare
 ;; `org-capture-templates'.
@@ -39,6 +40,10 @@ LIST is a symbol and defaults to `org-capture-templates'."
   (set list (sort (symbol-value list) (lambda (a b)
                                         (string< (car a) (car b))))))
 
+(defun +org-capture-sort-after-init (&optional list)
+  "Sort LIST with `+org-capture-sort' after Emacs init."
+  (+ensure-after-init #'+org-capture-sort))
+
 ;;;###autoload
 (defun +org-capture-templates-setf (key value &optional list sort-after)
   "Add KEY to LIST, using `setf'.