1 files changed, 58 insertions, 0 deletions
diff --git a/modules/system-lib.el b/modules/system-lib.el
index 333c15ee2..49bb6cd1a 100644
--- a/modules/system-lib.el
+++ b/modules/system-lib.el
@@ -130,5 +130,63 @@ Callers that must have a secret layer their own error on top."
          (secret (plist-get (car (apply #'auth-source-search spec)) :secret)))
     (if (functionp secret) (funcall secret) secret)))
 
+;; ---------------------------- Strong Confirmation ----------------------------
+
+(defun cj/confirm-strong (prompt)
+  "Ask PROMPT, requiring a full typed \"yes\" or \"no\" answer.
+For irreversible actions -- file destruction, overwrites, power-off.  The
+global default makes `yes-or-no-p' a single keystroke (`use-short-answers'
+is t); this binds it to nil for the one call so the prompt demands the
+long-form answer, keeping a stray RET or space from confirming."
+  (let ((use-short-answers nil))
+    (yes-or-no-p prompt)))
+
+(defun cj/--font-lock-global-modes-excluding (current mode)
+  "Return CURRENT `font-lock-global-modes' with MODE added to the exclusion.
+CURRENT has one of three shapes: t (font-lock on in all modes), a
+\(not M...) exclusion list, or an (M...) inclusion list.  Pure: returns
+the new value and mutates nothing."
+  (cond
+   ((eq current t) (list 'not mode))
+   ((and (consp current) (eq (car current) 'not))
+    (if (memq mode (cdr current)) current
+      (cons 'not (cons mode (cdr current)))))
+   ((consp current) (delq mode (copy-sequence current)))
+   (t current)))
+
+(defun cj/exclude-from-global-font-lock (&rest modes)
+  "Exclude MODES from `global-font-lock-mode'.
+Some major modes (dashboard, mu4e) paint their buffers with manual `face'
+text properties; global font-lock then strips those, leaving the buffer
+unthemed.  Excluding the mode keeps its faces.  Additive, so each caller
+contributes its own modes regardless of load order."
+  (dolist (mode modes)
+    (setq font-lock-global-modes
+          (cj/--font-lock-global-modes-excluding font-lock-global-modes mode))))
+
+(defun cj/format-region-with-program (program &rest args)
+  "Replace the current buffer with PROGRAM ARGS run over its contents, via argv.
+Runs PROGRAM (with ARGS) on the whole buffer through `call-process-region'
+-- no shell, so no quoting or word-splitting.  The buffer is replaced only
+when PROGRAM exits zero; on a non-zero exit the buffer is left untouched and
+a `user-error' is signalled with the program's stderr text.  Point is
+preserved as closely as the reformatted size allows.  Returns t on success."
+  (let* ((point (point))
+         (src (current-buffer))
+         (out (generate-new-buffer " *format-out*"))
+         (status (apply #'call-process-region
+                        (point-min) (point-max) program
+                        nil out nil args)))
+    (unwind-protect
+        (if (and (integerp status) (zerop status))
+            (progn
+              (with-current-buffer src
+                (replace-buffer-contents out)
+                (goto-char (min point (point-max))))
+              t)
+          (user-error "%s failed: %s" program
+                      (string-trim (with-current-buffer out (buffer-string)))))
+      (kill-buffer out))))
+
 (provide 'system-lib)
 ;;; system-lib.el ends here