diff options
| -rw-r--r-- | bard-elisp/bard-videos.el | 118 | ||||
| -rw-r--r-- | bard-emacs-modules/bard-emacs-emms.el | 52 | ||||
| -rw-r--r-- | bard-emacs-modules/bard-emacs-media.el | 56 | ||||
| -rw-r--r-- | bard-emacs-modules/bard-emacs-writing.el | 6 |
4 files changed, 174 insertions, 58 deletions
diff --git a/bard-elisp/bard-videos.el b/bard-elisp/bard-videos.el new file mode 100644 index 0000000..721d9e3 --- /dev/null +++ b/bard-elisp/bard-videos.el @@ -0,0 +1,118 @@ +(require 'cl-lib) +(require 'seq) + +(defun bard/play-youtube-video () + "Prompt for a YouTube URL and play it in mpv." + (interactive) + (let ((url (read-string "Enter YouTube URL: "))) + (if (and url (string-match-p "https?://\\(www\\.\\)?youtube\\.com\\|youtu\\.be" url)) + (async-shell-command (format "mpv '%s'" url)) + (message "The URL is not a valid YouTube link: %s" url)))) + +;; (defun bard/add-mpv-log-video-emms-queue (file) +;; "Play the URL or file path of the entry at point in mpv log file. Add it to EMMS queue." +;; (interactive "fLog file: ") +;; (let ((history '()) ;; Store video candidates +;; (max-candidates 10)) ;; Limit to the most recent 10 candidates +;; (with-temp-buffer +;; (insert-file-contents file) +;; (goto-char (point-min)) +;; ;; Loop through each line of the log +;; (while (re-search-forward +;; "^\\[.*\\] \\(.*\\)\\(?: \\|$\\)" nil t) +;; (let ((candidate (match-string 1))) +;; ;; If it's a URL or file path, add it to the history list +;; (when (or (string-match-p "https?://" candidate) +;; (file-exists-p candidate)) +;; (push candidate history)))) +;; ;; Remove duplicates +;; (setq history (delete-dups history)) +;; ;; Limit the history to the most recent ones +;; (setq history (cl-subseq history 0 (min max-candidates (length history)))) +;; ;; Select the most recent URL or file path +;; (if history +;; (let* ((chosen (completing-read "Select video: " history nil t))) +;; (if (string-match-p "https?://" chosen) +;; (let* ((playlist-name "Watch Later") +;; (playlist-buffer (get-buffer (format " *%s*" playlist-name)))) +;; (unless playlist-buffer +;; (setq playlist-buffer (emms-playlist-new (format " *%s*" playlist-name)))) +;; (emms-playlist-set-playlist-buffer playlist-buffer) +;; (emms-add-url chosen) +;; (message "Added YouTube video to EMMS playlist: %s" chosen)) +;; (let* ((playlist-name "Watch Later") +;; (playlist-buffer (get-buffer (format " *%s*" playlist-name)))) +;; (unless playlist-buffer +;; (setq playlist-buffer (emms-playlist-new (format " *%s*" playlist-name)))) +;; (emms-playlist-set-playlist-buffer playlist-buffer) +;; (emms-add-file chosen) +;; (message "Added video file to EMMS playlist: %s" chosen))) +;; (message "No recent videos found in the log.")))))) + + + +;; (defun bard/classify-content (input) +;; "Classify INPUT as a URL, a file path, or neither." +;; (cond +;; ((let ((parsed-url (url-generic-parse-url input))) +;; (and (url-type parsed-url) +;; (url-host parsed-url))) +;; 'url) + +;; ((file-name-absolute-p input) +;; (if (file-exists-p input) +;; 'existing-file +;; 'potential-file)) +;; (t 'neither))) + +;; (defun bard/play-video-url (url) +;; (let* ((playlist-name "Watch Later") +;; (playlist-buffer (get-buffer (format " *%s*" playlist-name)))) +;; (unless playlist-buffer +;; (setq playlist-buffer (emms-playlist-new (format " *%s*" playlist-name)))) +;; (emms-playlist-set-playlist-buffer playlist-buffer) +;; (emms-add-url url) +;; (message "Added YouTube video to EMMS playlist: %s" url))) + +;; (defun bard/play-video-file (file) +;; (let* ((playlist-name "Watch Later") +;; (playlist-buffer (get-buffer (format " *%s*" playlist-name)))) +;; (unless playlist-buffer +;; (setq playlist-buffer (emms-playlist-new (format " *%s*" playlist-name)))) +;; (emms-playlist-set-playlist-buffer playlist-buffer) +;; (emms-add-file url) +;; (message "Added video file to EMMS playlist: %s" url))) + +;; ;; TODO: extract url/filepath into bard/classify-content +;; ;; then to case/switch with symbols returned by ^^^ to determine which play function to use (both written above) +;; (defun bard/play-vid-from-history (history-file) +;; "Read the mpv log HISTORY-FILE, and let the user select and play a video." +;; (interactive "fSelect MPV log file: ") +;; (let ((history '()) +;; (max-candidates 10)) +;; (with-temp-buffer +;; (insert-file-contents history-file) +;; (goto-char (point-min)) +;; ;; Loop through each line of the log +;; (while (not (eobp)) +;; (let* ((log-line (buffer-substring-no-properties +;; (line-beginning-position) (line-end-position))) +;; ) +;; (push log-line history) +;; ;; Add extracted content to the history +;; (forward-line 1)) +;; ;; Remove duplicates and limit the history size +;; (setq history (delete-dups history)) +;; (setq history (cl-subseq history 0 (min max-candidates (length history))))) +;; ;; Select an item from the history +;; (if history +;; (let* ((chosen (completing-read "Select video: " history nil t)) +;; (content-type (bard/classify-content chosen))) +;; ;; Handle different content types +;; (extract-file-path chosen)) +;; (error "No valid history found"))))) + +;; (setq bard/mpv-history-log "~/.config/mpv/mpvHistory.log") +;; (bard/play-vid-from-history bard/mpv-history-log) + +(provide 'bard-videos.el) diff --git a/bard-emacs-modules/bard-emacs-emms.el b/bard-emacs-modules/bard-emacs-emms.el index fd9dfa9..e69de29 100644 --- a/bard-emacs-modules/bard-emacs-emms.el +++ b/bard-emacs-modules/bard-emacs-emms.el @@ -1,52 +0,0 @@ -;; |------------------------------------| -;; | EMMS | -;; |------------------------------------| - -;; (require 'emms) -;; (require 'emms-setup) -;; (require 'emms-mpris) -;; (require 'emms-mode-line-icon) - -(use-package emms - :ensure t - ;; :demand t - :bind - (:map emms-playlist-mode-map - ("A" . emms-add-directory) - ("l" . emms-add-playlist) - ("T" . emms-add-directory-tree) - ("F" . emms-add-file) - ("U" . emms-add-url) - ("L" . emms-toggle-repeat-track) - ("<mouse-3>" . emms-pause) - ("<SPC>" . emms-pause) - ("c" . bard/emms-recenter) - ("P" . emms-playlist-mode-shift-track-up) - ("N" . emms-playlist-mode-shift-track-down)) - :bind (("<f8>" . emms) - ("M-<f8>" . emms-browser)) - :hook - (emms-playlist-mode . hl-line-mode) - :config - (emms-all) - (emms-default-players) - (emms-mpris-enable) - (setq emms-player-list '(emms-player-mpv)) - ;; emms-info-functions '(emms-info-native) - - ;; (setq emms-browser-covers 'emms-browser-cache-thumbnail) - - (setq emms-volume-amixer-card 0) - - ;; center line function - (defun bard/emms-recenter () - (interactive) - (recenter-top-bottom) - (emms-playlist-mode-center-current)) - - ;; modeline - (emms-mode-line-disable) - (emms-playing-time-disable-display) - ) - -(provide 'bard-emacs-emms) diff --git a/bard-emacs-modules/bard-emacs-media.el b/bard-emacs-modules/bard-emacs-media.el new file mode 100644 index 0000000..d1b82db --- /dev/null +++ b/bard-emacs-modules/bard-emacs-media.el @@ -0,0 +1,56 @@ +;;;; EMMS +(use-package emms + :ensure t + ;; :demand t + :bind + (:map emms-playlist-mode-map + ("A" . emms-add-directory) + ("l" . emms-add-playlist) + ("T" . emms-add-directory-tree) + ("F" . emms-add-file) + ("U" . emms-add-url) + ("L" . emms-toggle-repeat-track) + ("<mouse-3>" . emms-pause) + ("<SPC>" . emms-pause) + ("c" . bard/emms-recenter) + ("P" . emms-playlist-mode-shift-track-up) + ("N" . emms-playlist-mode-shift-track-down)) + :bind (("<f8>" . emms) + ("M-<f8>" . emms-browser)) + :hook + (emms-playlist-mode . hl-line-mode) + :config + (emms-all) + (emms-default-players) + (emms-mpris-enable) + (setq emms-player-list '(emms-player-mpv)) + ;; emms-info-functions '(emms-info-native) + + ;; (setq emms-browser-covers 'emms-browser-cache-thumbnail) + + (setq emms-volume-amixer-card 0) + + ;; center line function + (defun bard/emms-recenter () + (interactive) + (recenter-top-bottom) + (emms-playlist-mode-center-current)) + + ;; modeline + (emms-mode-line-disable) + (emms-playing-time-disable-display) + ) + +;;;; Youtube +(use-package yeetube + :ensure t + ) + +;;;; PDFS +(use-package pdf-tools + :ensure t + :config + (pdf-tools-install) + (add-to-list 'pdf-tools-enabled-modes #'pdf-view-themed-minor-mode)) + +(provide 'bard-emacs-media) diff --git a/bard-emacs-modules/bard-emacs-writing.el b/bard-emacs-modules/bard-emacs-writing.el index 1dfff9e..3ae3c6a 100644 --- a/bard-emacs-modules/bard-emacs-writing.el +++ b/bard-emacs-modules/bard-emacs-writing.el @@ -202,10 +202,4 @@ ("<f9>" . logos-focus-mode) ("C-x n n" . logos-narrow-dwim))) -(use-package pdf-tools - :ensure t - :config - (pdf-tools-install) - (add-to-list 'pdf-tools-enabled-modes #'pdf-view-themed-minor-mode)) - (provide 'bard-emacs-writing) |