2 files changed, 10 insertions, 7 deletions

@@ -813,8 +813,8 @@ like a dumbass."
 
 ;;; Packages
 
-(setup (:straight (0x0 :host nil
-                       :repo "https://git.sr.ht/~zge/nullpointer-emacs"))
+(setup (:straight (0x0 :host gitlab
+                       :repo "willvaughn/emacs-0x0"))
   (:option 0x0-default-host 'ttm))
 
 (setup (:straight (apheleia :host github
@@ -1061,6 +1061,8 @@ if ripgrep is installed, otherwise `consult-grep'."
                      ("WRKF: NPR for the Capital Region" .
                       ,(concat "https://playerservices.streamtheworld.com/"
                                "api/livestream-redirect/WRKFFM.mp3"))
+                     ("BadRadio: 24/7 PHONK" .
+                      "https://s2.radio.co/s2b2b68744/listen")
                      ("tilderadio" .
                       "https://radio.tildeverse.org/radio/8000/radio.ogg")
                      ("vantaradio" .
@@ -128,10 +128,11 @@ Otherwise, cdr should be a function that takes two points (see `count-words')."
 Uses `acdw-modeline/word-count-modes' to determine which function to use."
   (when-let ((modefun
               (assoc major-mode acdw-modeline/word-count-modes #'equal)))
-    (let ((fn (or (cdr modefun)
-                  #'count-words))
-          (min (if (region-active-p) (region-beginning) (point-min)))
-          (max (if (region-active-p) (region-end) (point-max))))
-      (format " %dW" (funcall fn min max)))))
+    (let* ((fn (or (cdr modefun)
+                   #'count-words))
+           (r (region-active-p))
+           (min (if r (region-beginning) (point-min)))
+           (max (if r (region-end) (point-max))))
+      (format " %s%dW" (if r "+" "") (funcall fn min max)))))
 
 (provide 'acdw-modeline)