Add functions and shit

1 files changed, 18 insertions, 0 deletions

@@ -66,6 +66,11 @@ ARG).  When called with multiple arguments or a list, it returns
         file
       nil)))
 
+;; Why isn't this a thing???
+(defmacro fbound-and-true-p (func)
+  "Return the value of function FUNC if it is bound, else nil."
+  `(and (fboundp ,func) ,func))
+
 (defun kill-region-or-backward-word (arg)
   "Kill region if active, or backward word if not."
   (interactive "p")
@@ -509,6 +514,11 @@ It's called 'require-private' for historical reasons."
   "A mode for reading."
   :init-value nil
   :lighter " Read"
+  :keymap (let ((map (make-sparse-keymap)))
+            (when-let ((link-cmd (or (fbound-and-true-p #'ace-link)
+                                     (fbound-and-true-p #'link-hint-open-link))))
+              (define-key map (kbd "o") link-cmd))
+            map)
   (if acdw/reading-mode
       (progn ;; turn on
         ;; settings
@@ -592,5 +602,13 @@ It's called 'require-private' for historical reasons."
             secret))
       (message "Password not found for %S" params))))
 
+
+;;; Paren annoyances
+(defun acdw/stop-paren-annoyances (&optional buffer)
+  "Locally turn off paren-checking functions in BUFFER."
+  (with-current-buffer (or buffer (current-buffer))
+    (setq-local blink-matching-paren nil
+                show-paren-mode nil)))
+
 (provide 'acdw)
 ;;; acdw.el ends here