3 files changed, 21 insertions, 3 deletions

@@ -6,7 +6,7 @@
   "Arguments to pass to mpv in `browse-url-mpv'.")
 
 (defun browse-url-mpv (url &optional new-window)
-  "Play `URL' in mpv."
+  "Play URL in mpv."
   (interactive (browse-url-interactive-arg "Video URL: "))
   (ignore new-window) ;; mpv always opens a new window
   (let* ((url (browse-url-encode-url url))
@@ -112,6 +112,13 @@ Then, build `browse-url-button-regexp' with the new protocol."
 
 ;;; Browse-URL tweaks
 
+;; convert reddit.com to teddit
+(defun acdw/eww-browse-reddit-url (url &rest args)
+  "Browse a Reddit.com URL using Teddit."
+  (let* ((teddit "teddit.com")
+         (url (replace-regexp-in-string "reddit\\.com" teddit url)))
+    (eww-browse-url url args)))
+
 ;; convert twitter.com to nitter
 (defun acdw/eww-browse-twitter-url (url &rest args)
   "Browse a Twitter.com URL using Nitter."
@@ -288,7 +288,7 @@ instead of the true count."
                                                        desc "\\W")))))))
                    (goto-char (match-end 0)))
                   ;; Ignore source blocks
-                  ((org-in-src-block-p) (foreward-line))
+                  ((org-in-src-block-p) (forward-line))
                   ;; Count everything else
                   (t
                    ;; ... unless it's in a few weird contexts
@@ -461,7 +461,7 @@ Prompt only if there are unsaved changes."
                                  (repeat 1 2 digit)
                                  (: (any ?a ?A ?p ?P) (any ?m ?M)))
                           (* nonl)))
-         (ss (sunrise-sunset))
+         (ss (acdw/supress-messages #'sunrise-sunset))
          (_m (string-match times-regex ss))
          (sunrise-time (match-string 1 ss))
          (sunset-time (match-string 2 ss)))
@@ -469,6 +469,17 @@ Prompt only if there are unsaved changes."
     (run-at-time sunset-time (* 60 60 24) sunset-command)
     (run-at-time "12:00am" (* 60 60 24) sunset-command)))
 
+(defun acdw/supress-messages (oldfn &rest args) ; from pkal
+  "Advice wrapper for suppressing `message'.
+OLDFN is the wrapped function, that is passed the arguments
+ARGS."
+  (let ((msg (current-message)))
+    (prog1
+        (let ((inhibit-message t))
+          (apply oldfn args))
+      (when msg
+        (message "%s" msg)))))
+
 (defun acdw/setup-fringes ()
   "Set up fringes how I likes 'em."
   (define-fringe-bitmap 'left-curly-arrow