From 1f321554b829f450ce8d40a38d075e894e2b6fcf Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sat, 31 Jan 2015 17:25:35 -0800 Subject: [PATCH] supress adding apointments., comment out mpd. --- dotfiles/emacs.d/init.el | 6 ++++-- dotfiles/emacs.d/load.d/helm-mpd.el | 28 +++++----------------------- 2 files changed, 9 insertions(+), 25 deletions(-) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index c2b039fd..18f556d5 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -626,7 +626,9 @@ The current directory is assumed to be the project's root otherwise." "Clear the appt-time-msg-list." (setq appt-time-msg-list nil)) (appt-activate) - (run-at-time "00:00" 60 'org-agenda-to-appt) + (defun org-agenda-to-appt-no-message () + (suppress-messages (org-agenda-to-appt))) + (run-at-time "00:00" 60 'org-agenda-to-appt-no-message) (defun org-archive-if (condition-function) (if (funcall condition-function) @@ -1357,7 +1359,7 @@ window is active in the perspective." (defun message-virtual-envs () (interactive) - (message "%s" (get-virtual-envs))) + (message "%s" (get-virtual-envs))) (use-package python :commands python-mode diff --git a/dotfiles/emacs.d/load.d/helm-mpd.el b/dotfiles/emacs.d/load.d/helm-mpd.el index 37ed6760..e80562f4 100644 --- a/dotfiles/emacs.d/load.d/helm-mpd.el +++ b/dotfiles/emacs.d/load.d/helm-mpd.el @@ -1,6 +1,6 @@ -;; (load-file "~/Projects/mingus/libmpdee.el") +;; (load-file "~/Projects/libmpdee/libmpdee.el") -;; (setq imalison-mpd-conn (mpd-conn-new "127.0.0.1" 6600)) +;; (setq imalison-mpd-conn (mpd-conn-new "10.0.0.137" 6600)) ;; (mpd-search imalison-mpd-conn 'any "nas represent") ;; (defun helm-mpd-search () @@ -9,31 +9,13 @@ ;; (defun format-mpd-result-for-helm (mpd-result) ;; (list (format "%s - %s" (plist-get mpd-result 'Artist) (plist-get mpd-result 'Title)))) -;; (mpd-execute-command mpd-inter-conn -;; (mapconcat (lambda (song) -;; (format "add %s" (mpd-safe-string song))) -;; (split-string song "\n") "\n")) - - -;; ("Angel in Blue Jeans (3m24s) -;; Train - Angel in Blue Jeans" (track-number . "1") (artists . [((name . "Train") (href . "spotify:artist:3FUY2gzHeIiaesXtOAdB7A"))]) (href . "spotify:track:2OpY5KKUvkYAkiY8FEG1Wi") (length . 204.466) (external-ids . [((id . "USSM11404307") (type . "isrc"))]) (popularity . "0.74") (name . "Angel in Blue Jeans") (album (availability (territories . "AD AR AT AU BE BG BO BR CA CH CL CO CR CY CZ DE DK DO EC EE ES FI FR GB GR GT HK HN HR HU IE IS IT LI LT LU LV MC MT MX MY NI NL NO NZ PA PE PH PL PT PY RO SE SG SI SK SV TR TW US UY")) (name . "Angel in Blue Jeans") (href . "spotify:album:00QRaEtUaplb5qxN62o9vd") (released . "2014"))) - - - -;; (plist-get '(file "spotify:album:0xvDtkNKJiLclVbjLvovFU" Time 0 Artist "Angel Olsen" Title "Album: Burn Your Fire For No Witness" Album "Burn Your Fire For No Witness" Date "2014" Track "0" AlbumArtist "Angel Olsen") 'file) - ;; (defvar helm-source-mpd-search ;; '((name . "Spotify") ;; (volatile) ;; (requires-pattern . 2) ;; (candidates-process . helm-mpd-search))) -;; (helm-mpd-search) +;; ;; (helm-mpd-search) -;; (helm :sources '(helm-source-mpd-search) -;; :buffer "*helm-mpd*") - -;; (let ((helm-pattern "nas")) -;; (helm-mpd-search)) - -;; (mingus-make-status-string) +;; ;; (helm :sources '(helm-source-mpd-search) +;; ;; :buffer "*helm-mpd*")