diff options
| author | bdunahu <bdunahu@operationnull.com> | 2026-01-04 13:13:39 -0700 |
|---|---|---|
| committer | bdunahu <bdunahu@operationnull.com> | 2026-01-04 13:13:39 -0700 |
| commit | c2b706ff2f3aa42d58a03febad1d1b8f8d5a1142 (patch) | |
| tree | d6786f531f02717472abdc992cc6c6ef81e660b3 /guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--emms.el | |
| parent | c4ca05231236c7e9bdf5304275eadde954acf588 (diff) | |
remove unnecessary nested guix dir
Diffstat (limited to 'guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--emms.el')
| -rw-r--r-- | guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--emms.el | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--emms.el b/guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--emms.el deleted file mode 100644 index f4e5064..0000000 --- a/guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--emms.el +++ /dev/null @@ -1,68 +0,0 @@ -;;; -*- lexical-binding: t; -*- -;;; Commentary: -;;; Code: - - -(use-package emms - :bind (("C-z C-s" . #'emms-quickstart) - ("C-z C-m" . #'switch-to-emms) - :map emms-playlist-mode-map - ("q" . #'quit-window)) - :config - (emms-all) - - (defun emms-quickstart () - "Queues a shuffled playlist and starts -playback." - (interactive) - (emms-stop) - (when (bufferp emms-playlist-buffer-name) - (kill-buffer emms-playlist-buffer-name)) - (emms-play-directory-tree (expand-file-name "~/ik/")) - (emms-shuffle)) - (defun switch-to-emms () - (interactive) - - (if (get-buffer emms-playlist-buffer-name) - (emms-playlist-mode-go) - (message "The Ainur cannot hear you..."))) - - (add-to-list 'emms-player-list 'emms-player-mpv) - (emms-playing-time-disable-display) - (setq-default emms-playlist-default-major-mode 'emms-playlist-mode - - emms-player-list '(emms-player-mpv) - emms-player-mpv-environment '("PULSE_PROP_media.role=music") - emms-player-mpv-parameters '("--quiet" "--really-quiet" "--no-audio-display" "--force-window=no" "--vo=null")) - (setopt - emms-track-description-function - '(lambda (track) - (let ((artist (emms-track-get track 'info-artist)) - (title (emms-track-get track 'info-title))) - (cond - ((and artist title) - (concat artist " - " title)) - (title - title) - (t - (emms-track-simple-description track)))))) - (setopt emms-source-file-default-directory (expand-file-name "~/ik/playlists/") - emms-info-report-each-num-tracks 2000 - emms-playlist-buffer-name "*Playlist*" - emms-mode-line-icon-enabled-p nil - emms-mode-line-length-limit 35 - emms-mode-line-format " [%s] " - emms-repeat-playlist t - emms-info-functions '(emms-info-native - emms-info-exiftool)) - (add-to-list 'display-buffer-alist - '((major-mode . emms-playlist-mode) - (display-buffer-in-side-window) - (side . left) - (slot . 0) - (width . 0.2) - (post-command-select-window t)))) - - -(provide 'bd--emms) -;;; bd--emms.el ends here |
