diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/init.el b/init.el index 366f0f1..7e517d6 100644 --- a/init.el +++ b/init.el | |||
@@ -1059,6 +1059,7 @@ specific to most general, they are these: | |||
1059 | #'enable-circe-new-day-notifier | 1059 | #'enable-circe-new-day-notifier |
1060 | #'circe-chat@set-prompt | 1060 | #'circe-chat@set-prompt |
1061 | #'topsy-mode)) | 1061 | #'topsy-mode)) |
1062 | (:bind "C-c C-s" #'circe-command-SLAP)) | ||
1062 | 1063 | ||
1063 | (autoload 'circe-nick-color-reset "circe-color-nicks") | 1064 | (autoload 'circe-nick-color-reset "circe-color-nicks") |
1064 | (add-hook 'modus-themes-after-load-theme-hook | 1065 | (add-hook 'modus-themes-after-load-theme-hook |
@@ -1759,6 +1760,9 @@ browser defined in `browse-url-secondary-browser-function'." | |||
1759 | 1760 | ||
1760 | (:option (append completion-styles) 'orderless | 1761 | (:option (append completion-styles) 'orderless |
1761 | orderless-component-separator #'orderless-escapable-split-on-space | 1762 | orderless-component-separator #'orderless-escapable-split-on-space |
1763 | orderless-matching-styles '(orderless-literal | ||
1764 | orderless-regexp | ||
1765 | orderless-flex) | ||
1762 | orderless-style-dispatchers '(acdw/orderless-dispatch)) | 1766 | orderless-style-dispatchers '(acdw/orderless-dispatch)) |
1763 | 1767 | ||
1764 | (:advise orderless-regexp :filter-args | 1768 | (:advise orderless-regexp :filter-args |
@@ -2156,7 +2160,7 @@ the default is \"/\"." | |||
2156 | 2160 | ||
2157 | (setup (:straight super-save) | 2161 | (setup (:straight super-save) |
2158 | (:option auto-save-default nil | 2162 | (:option auto-save-default nil |
2159 | super-save-auto-save-when-idle t | 2163 | super-save-auto-save-when-idle nil |
2160 | super-save-exclude '(".gpg") | 2164 | super-save-exclude '(".gpg") |
2161 | super-save-remote-files nil) | 2165 | super-save-remote-files nil) |
2162 | (auto-save-visited-mode -1) | 2166 | (auto-save-visited-mode -1) |
@@ -2315,17 +2319,8 @@ If used with a numeric prefix argument N, N backticks will be inserted." | |||
2315 | (executable-find "mpv")) | 2319 | (executable-find "mpv")) |
2316 | ;; This might need to be changed depending on whether the instance goes down. | 2320 | ;; This might need to be changed depending on whether the instance goes down. |
2317 | (:option ytel-invidious-api-url "https://invidious.snopyta.org") | 2321 | (:option ytel-invidious-api-url "https://invidious.snopyta.org") |
2318 | (:bind "y" | 2322 | (:bind "v" #'acdw/ytel-current-video-link |
2319 | (defun ytel-watch () ; This could possibly use `browse-url'. | 2323 | "w" #'acdw/ytel-copy-link)) |
2320 | "Stream video at point in mpv." | ||
2321 | (interactive) | ||
2322 | (let* ((video (ytel-get-current-video)) | ||
2323 | (id (ytel-video-id video))) | ||
2324 | (start-process "ytel mpv" nil | ||
2325 | "mpv" | ||
2326 | (concat "https://www.youtube.com/watch?v=" id) | ||
2327 | "--ytdl-format=bestvideo[height<=?720]+bestaudio/best") | ||
2328 | (message "Starting streaming..."))))) | ||
2329 | 2324 | ||
2330 | (setup (:straight zzz-to-char) | 2325 | (setup (:straight zzz-to-char) |
2331 | 2326 | ||