3 files changed, 51 insertions, 13 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)
 
@@ -9,6 +9,7 @@
 (require 'circe)
 
 ;;; Chat commands
+
 (defun circe-command-SHORTEN (url)
   "Shorten URL using `0x0-shorten-uri'."
   (interactive "sURL to shorten: ")
@@ -17,11 +18,18 @@
   (let ((short-url (0x0-shorten-uri (0x0--choose-server) url)))
     (circe-command-SAY short-url)))
 
+(defun circe-command-SLAP (nick)
+  "Slap NICK around a bit with a large trout."
+  (interactive "sWho we slappin' today, boss? ")
+  (circe-command-ME (concat "slaps "
+                            (string-trim nick)
+                            " around a bit with a large trout")))
+
 ;;; Hooks
 
 (defun circe-chat@set-prompt ()
   "Set the prompt to the buffer name, shortening it."
-  (interactive) ; set interactive to unfuck the prompt when need be
+  (interactive)             ; set interactive to unfuck the prompt when need be
   (lui-set-prompt
    (propertize
     (concat
@@ -0,0 +1,35 @@
+;;; acdw-ytel.el --- bespoke functions for ytel -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;; Extra code for the ytel package:
+;; https://github.com/gRastello/ytel
+
+;;; Code:
+
+(require 'ytel)
+
+(defun acdw/ytel-current-video-link ()
+  "Get the link of the video at point."
+  (let* ((video (ytel-get-current-video))
+        (id (ytel-video-id video)))
+    (concat "https://www.youtube.com/watch?v=" id)))
+
+(defun acdw/ytel-watch ()                    ; This could possibly use `browse-url'.
+  "Stream video at point in mpv."
+  (interactive)
+  (start-process "ytel mpv" nil
+                 "mpv"
+                 (acdw/ytel-current-video-link)
+                 "--ytdl-format=bestvideo[height<=?720]+bestaudio/best")
+  (message "Starting streaming..."))
+
+(defun acdw/ytel-copy-link ()
+  "Copy link of the video at point."
+  (interactive)
+  (let ((link (acdw/ytel-current-video-link)))
+    (kill-new link)
+    (message "Copied %s to kill-ring" link)))
+
+(provide 'acdw-ytel)
+;;; acdw-ytel.el ends here