[EMMS] Silence some compiler warnings
This commit is contained in:
parent
3a556afca6
commit
0db33fb843
9
init.el
9
init.el
|
@ -977,21 +977,18 @@ Certificates are assumed to be of the form *.crt."
|
||||||
|
|
||||||
;; * Media
|
;; * Media
|
||||||
|
|
||||||
(use-package emms-setup
|
(use-package db-emms
|
||||||
:commands (db/play-playlist
|
:commands (db/play-playlist
|
||||||
emms-streams
|
emms-streams
|
||||||
emms-play-dired
|
emms-play-dired
|
||||||
emms-play-file
|
emms-play-file
|
||||||
emms-play-directory
|
emms-play-directory
|
||||||
emms-control/body)
|
emms-control/body))
|
||||||
:config (progn
|
|
||||||
(require 'db-emms)
|
|
||||||
(run-with-timer 0 3600 #'emms-cache-save)))
|
|
||||||
|
|
||||||
(use-package helm-emms
|
(use-package helm-emms
|
||||||
:commands (helm-emms)
|
:commands (helm-emms)
|
||||||
:config (progn
|
:config (progn
|
||||||
(require 'emms-setup)
|
(require 'db-emms)
|
||||||
(require 'helm-adaptive)
|
(require 'helm-adaptive)
|
||||||
(setq helm-emms-default-sources
|
(setq helm-emms-default-sources
|
||||||
'(helm-source-emms-streams
|
'(helm-source-emms-streams
|
||||||
|
|
|
@ -27,21 +27,29 @@
|
||||||
(declare-function emms-pause "emms")
|
(declare-function emms-pause "emms")
|
||||||
(declare-function emms-show "emms")
|
(declare-function emms-show "emms")
|
||||||
(declare-function emms "emms-playlist-mode")
|
(declare-function emms "emms-playlist-mode")
|
||||||
|
(declare-function emms-cache-save "emms-cache")
|
||||||
|
(declare-function string-remove-prefix "subr-x")
|
||||||
|
(declare-function emms-with-inhibit-read-only-t "emms")
|
||||||
|
|
||||||
|
|
||||||
;; Setup
|
;; Setup
|
||||||
|
|
||||||
|
(require 'emms)
|
||||||
(emms-all)
|
(emms-all)
|
||||||
(emms-default-players)
|
(emms-default-players)
|
||||||
|
|
||||||
|
|
||||||
;; Basic configuration
|
;; Basic configuration
|
||||||
|
|
||||||
|
(require 'emms-source-file)
|
||||||
|
(require 'emms-playlist-mode)
|
||||||
|
(require 'emms-info)
|
||||||
|
|
||||||
(setq emms-source-file-default-directory "~/Documents/media/audio/")
|
(setq emms-source-file-default-directory "~/Documents/media/audio/")
|
||||||
|
|
||||||
(advice-add 'emms-tag-editor-submit
|
(advice-add 'emms-tag-editor-submit
|
||||||
:after (lambda (&rest r)
|
:after (lambda (&rest r)
|
||||||
(declare (ignore r))
|
(ignore r)
|
||||||
(delete-window)))
|
(delete-window)))
|
||||||
|
|
||||||
(bind-key "S s" #'emms-shuffle emms-playlist-mode-map)
|
(bind-key "S s" #'emms-shuffle emms-playlist-mode-map)
|
||||||
|
@ -57,6 +65,8 @@
|
||||||
(when (require 'emms-info-mediainfo nil 'no-error)
|
(when (require 'emms-info-mediainfo nil 'no-error)
|
||||||
(setq emms-info-functions '(emms-info-mediainfo)))
|
(setq emms-info-functions '(emms-info-mediainfo)))
|
||||||
|
|
||||||
|
(run-with-timer 0 3600 #'emms-cache-save)
|
||||||
|
|
||||||
|
|
||||||
;; Custom playlist
|
;; Custom playlist
|
||||||
|
|
||||||
|
@ -102,7 +112,7 @@ that we also follow symbolic links."
|
||||||
(point-max))
|
(point-max))
|
||||||
"\n"))))
|
"\n"))))
|
||||||
|
|
||||||
(unless on-windows
|
(unless (eq system-type 'windows-nt)
|
||||||
(setq emms-source-file-directory-tree-function
|
(setq emms-source-file-directory-tree-function
|
||||||
#'db/emms-source-file-directory-tree-find))
|
#'db/emms-source-file-directory-tree-find))
|
||||||
|
|
||||||
|
@ -166,6 +176,7 @@ When NO-NEWLINE is non-nil, do not insert a newline after the track."
|
||||||
|
|
||||||
;; Streams
|
;; Streams
|
||||||
|
|
||||||
|
(require 'emms-streams)
|
||||||
(setq emms-stream-default-action "play")
|
(setq emms-stream-default-action "play")
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue