diff options
Diffstat (limited to '.config/emacs/lisp/evil-collection/modes/lms')
| -rw-r--r-- | .config/emacs/lisp/evil-collection/modes/lms/evil-collection-lms.el | 404 |
1 files changed, 0 insertions, 404 deletions
diff --git a/.config/emacs/lisp/evil-collection/modes/lms/evil-collection-lms.el b/.config/emacs/lisp/evil-collection/modes/lms/evil-collection-lms.el deleted file mode 100644 index 19ebf37..0000000 --- a/.config/emacs/lisp/evil-collection/modes/lms/evil-collection-lms.el +++ /dev/null @@ -1,404 +0,0 @@ -;;; evil-collection-lms.el --- Evil bindings for lms.el -*- lexical-binding: t -*- -;; Copyright (C) 2021-2023 Edgar Vincent - -;; Author: Edgar Vincent <e-v@posteo.net> -;; URL: https://github.com/emacs-evil/evil-collection -;; Version: 0.0.1 -;; Package-Requires: ((emacs "25.1")) -;; Keywords: evil, multimedia, music, logitechmediaserver, squeezebox - -;; This file is not part of GNU Emacs. -;; -;; This file is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published -;; by the Free Software Foundation; either version 3, or (at your -;; option) any later version. -;; -;; This file is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. -;; -;; For a full copy of the GNU General Public License -;; see <http://www.gnu.org/licenses/>. - -;;; Commentary: -;; Evil bindings for lms.el. -;; -;;; Code: -(require 'lms nil t) -(require 'evil-collection) - -(defvar lms-ui-docs) -(defvar lms-ui-playing-now-mode-map) -(defvar lms-ui-players-mode-map) -(defvar lms-ui-playlist-mode-map) -(defvar lms-ui-track-info-mode-map) -(defvar lms-ui-tracks-list-mode-map) -(defvar lms--ui-editing-p) -(defvar lms--ui-pl-tracks) - -(declare-function lms-ui-playing-now-refresh "lms") - -(defconst evil-collection-lms-maps '(lms-ui-players-mode-map - lms-ui-playing-now-mode-map - lms-ui-playlist-mode-map - lms-ui-track-info-mode-map - lms-ui-tracks-list-mode-map - lms-ui-year-album-artist-list-mode-map)) - -(defconst evil-collection-lms-modes '(lms-players-mode - lms-ui-playing-now-mode - lms-ui-track-info-mode - lms-ui-players-mode - lms-ui-playlist-mode - lms-ui-tracks-list-mode - lms-ui-year-album-artist-list-mode)) - -(defun evil-collection-lms-ui-track-info-mode-quit () - "Exit `lms-ui-track-info-mode'." - (interactive) - (kill-buffer "*LMS: Track Information*") - (lms-ui-playing-now-refresh)) - -(defun evil-collection-lms-ui-players-mode-quit () - "Exit `lms-ui-players-mode'." - (interactive) - (kill-buffer (format "*LMS: Players*")) - (lms-ui-playing-now-refresh)) - -(defun evil-collection-lms-ui-playlist-mode-quit () - "Exit `lms-ui-playlist-mode'." - (interactive) - (kill-buffer (format "*LMS: Playlist [%d tracks]*" (length lms--ui-pl-tracks))) - (lms-ui-playing-now-refresh)) - -(defun evil-collection-lms-ui-tracks-list-mode-quit () - "Exit `lms-ui-tracks-list-mode'." - (interactive) - (kill-buffer) - (lms-ui-playing-now-refresh)) - -(defalias 'evil-collection-lms-ui-year-album-artist-list-mode-quit - 'evil-collection-lms-ui-tracks-list-mode-quit - "Exit lms-ui-tracks-list-mode.") - -(defun evil-collection-lms-goto-line (count) - "Move the point to line COUNT. By default the penultimate line." - (interactive "P") - (evil-goto-line count) - (unless count - (forward-line -1))) - -(defun evil-collection-lms-next-line () - "Move the point to the next line, except if it is at the end of the buffer." - (interactive) - (forward-line 1) - (when (eobp) (forward-line -1))) - -(defun evil-collection-lms-ui-playing-now () - "Modify the *LMS: Playing Now* buffer to reflect evil keybinding changes." - (setq-local buffer-read-only nil) - (setq lms--ui-editing-p t) - (while (search-forward-regexp "Press 'h' for help" nil 'noerror) - (replace-match "") - (insert (propertize "Press 'gh' or 'g?' for help" 'face '(variable-pitch (:height 0.85 :slant italic :foreground "gray40"))))) - (setq-local buffer-read-only t) - (setq lms--ui-editing-p nil)) - -(defvar evil-collection-lms-ui-docs - "#+TITLE: lms.el Documentation -#+AUTHOR: Iñigo Serna -#+DATE: 2020/06/14 - -* Introduction -This is an *emacs* frontend to interact with Squeezebox Server / Logitech Media Server. -Released under GPL version 3 license or later. - -It requires emacs version 25 or higher. - -More information on what a *squeezebox controller* is at https://inigo.katxi.org/blog/2017/07/31/lms_el.html. - -Quick instructions: customize some basic parameters such as 'lms-url' and run it with *lms* or *lms-ui*. -From there, you could read complete documentation after pressing *gh* or *g?*. -You can also run 'emacsclient -e \"(lms-float)\"' to display an independent small frame. - -Package should appear in [[https://melpa.org][MELPA repository]], and the code is in [[https://hg.serna.eu/emacs/lms][the code repository]] as well. - -* Features -This is Squeezebox controller, i.e. a program which can handle your local music library. - -Some of the features: -- Display song: title, artist, album, year, cover… -- Play, pause, stop, select next / previous song -- Control players: select player, power on/off, volume, repeat and shuffle modes -- Playlist control: list, select song, delete track, clear -- Show track information and change rating - -It is not aimed to be a complete controller, as it can't - and won't - manage external sources such us BBC, Deezer, Pandora, Spotify, or TuneIn Radio. - -* Configuration -There are some parameters you could customize: -|--------------------------+-----------------------------------------------+------------------------------------| -| Parameter | Description | Default | -|--------------------------+-----------------------------------------------+------------------------------------| -| lms-url | Logitech Media Server hostname or ip and port | http://lms_server:9000 | -| lms-default-player | Name of default player | nil (1) | -| lms-ui-cover-width | Cover image width | 500 (2) | -| lms-ui-update-interval | Time in seconds between UI updates | 1 (3) | -| lms-number-recent-albums | Number of recent albums to show | 25 | -| lms-number-random-albums | Number of random albums to show | 25 | -| lms-number-random-songs | Number of random songs to show | 50 | -| lms-set-rating-function | Function to use to set song rating | lms--set-rating-with-trackstat (4) | -|--------------------------+-----------------------------------------------+------------------------------------| -Notes: -(1) If *lms-default-player* is not defined or a player with that name does not exist, it will ask for one at start. -(2) It's recomendable not to change *lms-ui-cover-width*. -(3) Note that small values in *lms-ui-update-interval* could freeze your Emacs use while refreshing window. -(4) LMS does not have any means to set the rating of a song by itself, so it depends on an external plugin. - TrackStat (function *lms--set-rating-with-trackstat*) is a popular one, and RatingsLight (function *lms--set-rating-with-ratingslight*) is another option. -** Faces -The colors and font attributes of text can be customized in some views: -|----------------------------+-------------------------------+---------------------| -| Face name | Description | Default | -|----------------------------+-------------------------------+---------------------| -| lms-playing-face | Playing symbol | DarkTurquoise, bold | -| lms-title-face | Song title | SlateGray, italic | -| lms-artist-face | Artist | RosyBrown, bold | -| lms-year-face | Song year | SteelBlue | -| lms-album-face | Album | CadetBlue | -| lms-tracknum-face | Track number | gray40 | -| lms-duration-face | Song duration | gray60 | -| lms-players-selected-face | Selected icon in players list | SteelBlue | -| lms-players-isplaying-face | Isplaying in players list | RosyBrown | -| lms-players-name-face | Player name in players list | CadetBlue | -| lms-players-model-face | Player model in players list | SlateGray | -| lms-players-playerid-face | Player id in players list | gray60 | -| lms-players-ip-face | Player IP in players list | gray40 | -| lms-players-power-face | Ispower in players list | Maroon | -|----------------------------+-------------------------------+---------------------| - -* Playing now -Main window showing information about current track and player status. -The actions triggered by pressing keys refer to the current track. -** Key bindings -|-----------------+--------------------------------| -| Ctrl-p | select player | -| t | change player power state | -| R | change track rating | -| Ctrl-= | set volume | -| x, <enter> | toggle play/pause | -| p | play | -| s | stop playing | -| Ctrl-k, <left> | play previous song in playlist | -| Ctrl-j, <right> | play next song in playlist | -| m | toggle mute volume | -| +, = | volume up +5 | -| - | volume down -5 | -| r | cycle repeat mode | -| S | cycle shuffle mode | -| gr | update window contents | -| i | display track information | -| P | display playlist | -| T | show all albums by artist | -| L | show all tracks of album | -| Y | show all albums of this year | -| M | browse music libray | -| gh, g? | show this documentation | -| q | quit LMS | -|-----------------+--------------------------------| - -* Track information -Display track information. -Previous/next track only works when *Track information* window was called from a list, but not from *Playing now*. -** Key bindings -|-----------------+-------------------------| -| R | change track rating | -| Ctrl-k, <left> | show previous track | -| Ctrl-j, <right> | show next track | -| gh, g? | show this documentation | -| q | close window | -|-----------------+-------------------------| - -* Players list -Players list. -** Key bindings -|--------------------+--------------------------------| -| k, <up>, j, <down> | move cursor | -| <enter> | select player and close window | -| x | toggle player play/pause | -| t | toggle player power state | -| gh, g? | show this documentation | -| q | close window | -|--------------------+--------------------------------| - -* Playlist -Playlist view. -The actions triggered by pressing keys refer to the track under cursor. -** Key bindings -|--------------------+------------------------------------| -| k, <up>, j, <down> | move cursor | -| <enter> | play track | -| i | show track information | -| C | jump to current track | -| d, <delete> | remove track from playlist | -| c c | clear playlist | -| c u | remove tracks from start to cursor | -| c f | remove tracks from cursor to end | -| u | update window contents | -| A | show all albums by artist | -| T | show all tracks of album | -| Y | show all albums of this year | -| gh, g? | show this documentation | -| q | close window | -|--------------------+------------------------------------| - -* Year - Album - Artist list -View all albums of an artist, sorted by date/year. -The actions triggered by pressing keys refer to the album under cursor. -** Key bindings -|--------------------+------------------------------| -| k, <up>, j, <down> | move cursor | -| <enter>, a | show all tracks of album | -| A | show all albums by artist | -| Y | show all albums of this year | -| p | add album to playlist | -| gh, g? | show this documentation | -| q | close window | -|--------------------+------------------------------| - -* Tracks list -View list of tracks. -The actions triggered by pressing keys refer to the track under cursor. -** Key bindings -|--------------------+------------------------------| -| j, <up>, k, <down> | move cursor | -| <enter>, i | display track information | -| A | show all albums by artist | -| Y | show all albums of this year | -| p | add song to playlist | -| P | add all songs to playlist | -| gh, g? | show this documentation | -| q | close window | -|--------------------+------------------------------| -" - "LMS documentation.") - -;;;###autoload -(defun evil-collection-lms-setup () - "Set up `evil' bindings for `lms'." - - (dolist (map evil-collection-lms-maps) - (evil-collection-inhibit-insert-state map)) - - (dolist (mode evil-collection-lms-modes) - (evil-set-initial-state mode 'normal)) - - (evil-collection-define-key 'normal 'lms-ui-playing-now-mode-map - "t" 'lms-ui-playing-now-change-player-power-state - (kbd "C-p") 'lms-ui-playing-now-players-list - "R" 'lms-ui-playing-now-change-rating - (kbd "C-=") 'lms-ui-playing-now-set-volume - (kbd "RET") 'lms-ui-playing-now-play-pause - "x" 'lms-ui-playing-now-play-pause - "p" 'lms-ui-playing-now-play - "s" 'lms-ui-playing-now-stop - (kbd "C-j") 'lms-ui-playing-now-next - (kbd "<right>") 'lms-ui-playing-now-next - (kbd "C-k") 'lms-ui-playing-now-prev - (kbd "<left>") 'lms-ui-playing-now-prev - "+" 'lms-ui-playing-now-volume-up - "=" 'lms-ui-playing-now-volume-up - "-" 'lms-ui-playing-now-volume-down - "m" 'lms-ui-playing-now-volume-mute - "r" 'lms-ui-playing-now-cycle-repeat - "S" 'lms-ui-playing-now-cycle-shuffle - "gr" 'lms-ui-playing-now-refresh - "i" 'lms-ui-playing-now-show-track-info - "P" 'lms-ui-playing-now-show-playlist - "T" 'lms-ui-playing-now-album-tracks-list - "A" 'lms-ui-playing-now-artist-albums-list - "Y" 'lms-ui-playing-now-year-albums-list - "M" 'lms-ui-playing-now-browse-music-library - "g?" 'lms-ui-playing-now-help - "gh" 'lms-ui-playing-now-help - "q" 'lms-ui-playing-now-quit) - - (evil-collection-define-key 'normal 'lms-ui-track-info-mode-map - "R" 'lms-ui-track-info-change-rating - (kbd "C-k") 'lms-ui-track-info-prev - (kbd "<left>") 'lms-ui-track-info-prev - (kbd "C-j") 'lms-ui-track-info-next - (kbd "<right>") 'lms-ui-track-info-next - "g?" 'lms-ui-playing-now-help - "gh" 'lms-ui-playing-now-help - "q" 'evil-collection-lms-ui-track-info-mode-quit) - - (evil-collection-define-key 'normal 'lms-ui-players-mode-map - [remap evil-goto-line] 'evil-collection-lms-goto-line - [remap end-of-defun] 'evil-collection-lms-goto-line - [remap evil-forward-paragraph] 'evil-collection-lms-goto-line - [remap evil-next-line] 'evil-collection-lms-next-line - (kbd "RET") 'lms-ui-players-select - "x" 'lms-ui-players-playpause - "t" 'lms-ui-players-toggle-power - "g?" 'lms-ui-playing-now-help - "gh" 'lms-ui-playing-now-help - "q" 'evil-collection-lms-ui-players-mode-quit) - - (evil-collection-define-key 'normal 'lms-ui-playlist-mode-map - [remap evil-goto-line] 'evil-collection-lms-goto-line - [remap end-of-defun] 'evil-collection-lms-goto-line - [remap evil-forward-paragraph] 'evil-collection-lms-goto-line - [remap evil-next-line] 'evil-collection-lms-next-line - (kbd "RET") 'lms-ui-playlist-play - "i" 'lms-ui-playlist-track-info - "C" 'lms-ui-playlist-jump-to-current - "d" 'lms-ui-playlist-delete-track - (kbd "<delete>") 'lms-ui-playlist-delete-track - "cc" 'lms-ui-playlist-clear - "ct" 'lms-ui-playlist-clear-until-track - "cf" 'lms-ui-playlist-clear-from-track - "u" 'lms-ui-playlist - "A" 'lms-ui-playlist-artist-albums-list - "T" 'lms-ui-playlist-album-tracks-list - "Y" 'lms-ui-playlist-year-albums-list - "g?" 'lms-ui-playing-now-help - "gh" 'lms-ui-playing-now-help - "q" 'evil-collection-lms-ui-playlist-mode-quit) - - (evil-collection-define-key 'normal 'lms-ui-tracks-list-mode-map - [remap evil-goto-line] 'evil-collection-lms-goto-line - [remap end-of-defun] 'evil-collection-lms-goto-line - [remap evil-forward-paragraph] 'evil-collection-lms-goto-line - [remap evil-next-line] 'evil-collection-lms-next-line - "i" 'lms-ui-tl-track-info - (kbd "RET") 'lms-ui-tl-track-info - "p" 'lms-ui-tl-to-playlist - "P" 'lms-ui-tl-all-to-playlist - "Y" 'lms-ui-tl-by-year - "A" 'lms-ui-tl-by-artist - "g?" 'lms-ui-playing-now-help - "gh" 'lms-ui-playing-now-help - "q" 'evil-collection-lms-ui-tracks-list-mode-quit) - - (evil-collection-define-key 'normal 'lms-ui-year-album-artist-list-mode-map - [remap evil-goto-line] 'evil-collection-lms-goto-line - [remap end-of-defun] 'evil-collection-lms-goto-line - [remap evil-forward-paragraph] 'evil-collection-lms-goto-line - [remap evil-next-line] 'evil-collection-lms-next-line - "Y" 'lms-ui-yaal-by-year - "A" 'lms-ui-yaal-by-artist - (kbd "RET") 'lms-ui-yaal-by-album - "a" 'lms-ui-yaal-by-album - "p" 'lms-ui-yaal-to-playlist - "g?" 'lms-ui-playing-now-help - "gh" 'lms-ui-playing-now-help - "q" 'evil-collection-lms-ui-year-album-artist-list-mode-quit) - - ;; Reflect help keybinding changes in the lms.el UI. - (advice-add 'lms-ui-playing-now :after 'evil-collection-lms-ui-playing-now) - (setq lms-ui-docs evil-collection-lms-ui-docs)) - -(provide 'evil-collection-lms) -;;; evil-collection-lms.el ends here |