From 0a0bfd820e997c36562b90d1be0af7e82002f348 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Thu, 15 Jan 2015 21:38:06 -0800
Subject: [PATCH] make ruby hooks one.

---
 dotfiles/emacs.d/init.el            | 10 +++++---
 dotfiles/emacs.d/load.d/helm-mpd.el | 39 +++++++++++++++++++++++++++++
 2 files changed, 45 insertions(+), 4 deletions(-)
 create mode 100644 dotfiles/emacs.d/load.d/helm-mpd.el

diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el
index ac85b3bf..e1aec382 100644
--- a/dotfiles/emacs.d/init.el
+++ b/dotfiles/emacs.d/init.el
@@ -705,7 +705,7 @@ the same tree node, and the headline of the tree node in the Org-mode file."
     (setq org-lowest-priority 69) ;; The character E
     (setq org-completion-use-ido t)
     (setq org-enforce-todo-dependencies t)
-    (setq org-default-priority ?C)
+    (setq org-default-priority ?D)
     (setq org-agenda-skip-scheduled-if-done t)
     (setq org-agenda-skip-deadline-if-done t)
     ;;(add-to-list org-agenda-tag-filter-preset "+PRIORITY<\"C\"")
@@ -1460,9 +1460,11 @@ window is active in the perspective."
   :ensure t
   :commands robe-mode
   :init
-  (progn (add-hook 'ruby-mode-hook 'robe-mode)
-         (add-hook 'robe-mode-hook 'ac-robe-setup)
-         (add-hook 'ruby-mode-hook 'auto-complete-mode)))
+  (progn (add-hook 'ruby-mode-hook
+                   (lambda () (robe-mode) (ac-robe-setup)
+                     (auto-complete-mode)))))
+
+(use-package rinari :ensure t)
 
 ;; =============================================================================
 ;;                                                                         C/C++
diff --git a/dotfiles/emacs.d/load.d/helm-mpd.el b/dotfiles/emacs.d/load.d/helm-mpd.el
new file mode 100644
index 00000000..37ed6760
--- /dev/null
+++ b/dotfiles/emacs.d/load.d/helm-mpd.el
@@ -0,0 +1,39 @@
+;; (load-file "~/Projects/mingus/libmpdee.el")
+
+;; (setq imalison-mpd-conn (mpd-conn-new "127.0.0.1" 6600))
+;; (mpd-search imalison-mpd-conn 'any "nas represent")
+
+;; (defun helm-mpd-search ()
+;;   (mapcar 'format-mpd-result-for-helm (mpd-search imalison-mpd-conn 'any helm-pattern)))
+
+;; (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 :sources '(helm-source-mpd-search)
+;;       :buffer "*helm-mpd*")
+
+;; (let ((helm-pattern "nas"))
+;;   (helm-mpd-search))
+
+;; (mingus-make-status-string)