[EMMS] Silence some compiler warnings

This commit is contained in:
Daniel - 2018-01-27 17:28:20 +01:00
parent 3a556afca6
commit 0db33fb843
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
2 changed files with 16 additions and 8 deletions

View File

@ -977,21 +977,18 @@ Certificates are assumed to be of the form *.crt."
;; * Media
(use-package emms-setup
(use-package db-emms
:commands (db/play-playlist
emms-streams
emms-play-dired
emms-play-file
emms-play-directory
emms-control/body)
:config (progn
(require 'db-emms)
(run-with-timer 0 3600 #'emms-cache-save)))
emms-control/body))
(use-package helm-emms
:commands (helm-emms)
:config (progn
(require 'emms-setup)
(require 'db-emms)
(require 'helm-adaptive)
(setq helm-emms-default-sources
'(helm-source-emms-streams

View File

@ -27,21 +27,29 @@
(declare-function emms-pause "emms")
(declare-function emms-show "emms")
(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
(require 'emms)
(emms-all)
(emms-default-players)
;; Basic configuration
(require 'emms-source-file)
(require 'emms-playlist-mode)
(require 'emms-info)
(setq emms-source-file-default-directory "~/Documents/media/audio/")
(advice-add 'emms-tag-editor-submit
:after (lambda (&rest r)
(declare (ignore r))
(ignore r)
(delete-window)))
(bind-key "S s" #'emms-shuffle emms-playlist-mode-map)
@ -57,6 +65,8 @@
(when (require 'emms-info-mediainfo nil 'no-error)
(setq emms-info-functions '(emms-info-mediainfo)))
(run-with-timer 0 3600 #'emms-cache-save)
;; Custom playlist
@ -102,7 +112,7 @@ that we also follow symbolic links."
(point-max))
"\n"))))
(unless on-windows
(unless (eq system-type 'windows-nt)
(setq emms-source-file-directory-tree-function
#'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
(require 'emms-streams)
(setq emms-stream-default-action "play")