From 3c4370e2d8f7cd4095df4a233cba9af84c77c8b1 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Fri, 23 Sep 2016 13:47:37 +0200
Subject: Emacs: Use Monoid HalfTight on Retina display

---
 tag-emacs/emacs.d/init.org | 66 +++++++++++++++++++++++-----------------------
 1 file changed, 33 insertions(+), 33 deletions(-)

(limited to 'tag-emacs')

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 19646d8..bf41b6a 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -148,39 +148,39 @@ When possible, set up fonts.  I don’t have any settings here for X11,
 because I manage those in my [[file:~/projects/dotfiles/tag-xresources/xresources/main][XResources file]].
 #+BEGIN_SRC emacs-lisp
   (when (or (display-graphic-p)
-              (daemonp))
-
-      (defun use-variable-fonts ()
-        (interactive)
-        (variable-pitch-mode)
-        (setq cursor-type 'bar))
-
-      (defun format-font (name style size)
-        (format "-*-%s-%s-*-*-*-%s-*-*-*-*-*-*" name style size))
-
-      (defun ap/set-fonts (mono-face mono-font-size variable-face variable-font-size)
-        (when mono-face
-          (let ((default-font (format-font mono-face "normal" mono-font-size)))
-            (add-to-list 'default-frame-alist `(font . ,default-font))
-            (set-face-font 'fixed-pitch default-font)
-            (set-frame-font default-font t t)))
-        (when variable-face
-          (set-face-font 'variable-pitch (format-font variable-face "normal" variable-font-size))))
-
-      (defun ap/set-fonts-according-to-system ()
-        (interactive)
-        (cond
-         ((eq window-system 'w32)
-          (ap/set-fonts "Liberation Mono" 11 "Segoe UI" 11))
-         ((eq window-system 'ns)
-          (let ((displays (string-to-number (shell-command-to-string "system_profiler SPDisplaysDataType | grep \"Online: Yes\" | wc -l"))))
-            (if (eq displays 1)
-                (ap/set-fonts "Monoid" 12 "Lucida Grande" 12)
-              (ap/set-fonts "ProggyTiny" 11 "Lucida Grande" 12))))
-         ((eq window-system 'x)
-          (ap/set-fonts "Source Code Pro" 10 "Input Sans" 10))))
-
-      (ap/set-fonts-according-to-system))
+			(daemonp))
+
+	(defun use-variable-fonts ()
+	  (interactive)
+	  (variable-pitch-mode)
+	  (setq cursor-type 'bar))
+
+	(defun format-font (name style size)
+	  (format "-*-%s-%s-*-*-*-%s-*-*-*-*-*-*" name style size))
+
+	(defun ap/set-fonts (mono-face mono-font-size variable-face variable-font-size)
+	  (when mono-face
+		(let ((default-font (format-font mono-face "normal" mono-font-size)))
+		  (add-to-list 'default-frame-alist `(font . ,default-font))
+		  (set-face-font 'fixed-pitch default-font)
+		  (set-frame-font default-font t t)))
+	  (when variable-face
+		(set-face-font 'variable-pitch (format-font variable-face "normal" variable-font-size))))
+
+	(defun ap/set-fonts-according-to-system ()
+	  (interactive)
+	  (cond
+	   ((eq window-system 'w32)
+		(ap/set-fonts "Liberation Mono" 11 "Segoe UI" 11))
+	   ((eq window-system 'ns)
+		(let ((displays (string-to-number (shell-command-to-string "system_profiler SPDisplaysDataType | grep \"Online: Yes\" | wc -l"))))
+		  (if (eq displays 1)
+			  (ap/set-fonts "Monoid HalfTight" 12 "Lucida Grande" 12)
+			(ap/set-fonts "ProggyTiny" 11 "Lucida Grande" 12))))
+	   ((eq window-system 'x)
+		(ap/set-fonts "Source Code Pro" 10 "Input Sans" 10))))
+
+	(ap/set-fonts-according-to-system))
 #+END_SRC
 
 Reduce font decoration.  I’m trying to see whether this helps me focus
-- 
cgit 1.4.1


From 7a94af80a25376f7a0aafda9bdee2c6484fbcb6c Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Fri, 23 Sep 2016 16:12:40 +0200
Subject: Emacs: Add mpc setup

---
 tag-emacs/emacs.d/init.org | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'tag-emacs')

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 20aaa39..1f5442d 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -1566,6 +1566,15 @@ write to the Android calendar, and then for DAVDroid to sync with the server.
 					org-icalendar-alarm-time 60)))
 #+END_SRC
 
+* Music
+Emacs actually supports playing music via mpd.
+
+#+BEGIN_SRC emacs-lisp
+  (use-package mpc
+	:defer t
+	:config (progn
+			  (setq mpc-browser-tags '(Genre Albumartist|Composer|Performer Album|Playlist))))
+#+END_SRC
 * Programming
 ** flycheck
 
-- 
cgit 1.4.1