1 files changed, 7 insertions, 12 deletions

@@ -1059,6 +1059,7 @@ specific to most general, they are these:
             #'enable-circe-new-day-notifier
             #'circe-chat@set-prompt
             #'topsy-mode))
+    (:bind "C-c C-s" #'circe-command-SLAP))
 
   (autoload 'circe-nick-color-reset "circe-color-nicks")
   (add-hook 'modus-themes-after-load-theme-hook
@@ -1759,6 +1760,9 @@ browser defined in `browse-url-secondary-browser-function'."
   
   (:option (append completion-styles) 'orderless
            orderless-component-separator #'orderless-escapable-split-on-space
+           orderless-matching-styles '(orderless-literal
+                                       orderless-regexp
+                                       orderless-flex)
            orderless-style-dispatchers '(acdw/orderless-dispatch))
 
   (:advise orderless-regexp :filter-args
@@ -2156,7 +2160,7 @@ the default is \"/\"."
 
 (setup (:straight super-save)
   (:option auto-save-default nil
-           super-save-auto-save-when-idle t
+           super-save-auto-save-when-idle nil
            super-save-exclude '(".gpg")
            super-save-remote-files nil)
   (auto-save-visited-mode -1)
@@ -2315,17 +2319,8 @@ If used with a numeric prefix argument N, N backticks will be inserted."
                      (executable-find "mpv"))
   ;; This might need to be changed depending on whether the instance goes down.
   (:option ytel-invidious-api-url "https://invidious.snopyta.org")
-  (:bind "y"
-         (defun ytel-watch ()           ; This could possibly use `browse-url'.
-           "Stream video at point in mpv."
-           (interactive)
-           (let* ((video (ytel-get-current-video))
-                  (id (ytel-video-id video)))
-             (start-process "ytel mpv" nil
-                            "mpv"
-                            (concat "https://www.youtube.com/watch?v=" id)
-                            "--ytdl-format=bestvideo[height<=?720]+bestaudio/best")
-             (message "Starting streaming...")))))
+  (:bind "v" #'acdw/ytel-current-video-link
+         "w" #'acdw/ytel-copy-link))
 
 (setup (:straight zzz-to-char)