Add internal border to Emacs frame

2 files changed, 22 insertions, 0 deletions

diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org
index 6eeceec..afb4dee 100644
--- a/emacs/.emacs.d/init.org
+++ b/emacs/.emacs.d/init.org
@@ -183,6 +183,16 @@ To start off, first I need to enable lexical binding.
     (add-to-list 'default-frame-alist '(font . "Fantasque Sans Mono-13"))
   #+END_SRC
 
+* Internal border
+
+  For aesthetics I like to have a thick border on the inside of my
+  Emacs window. I have the same border in URxvt, but I haven't found
+  out how to add it to Conkeror yet.
+
+  #+BEGIN_SRC emacs-lisp
+    (add-to-list 'default-frame-alist '(internal-border-width . 15))
+  #+END_SRC
+
 * Menu bar
 
   I don't use the menu bar, so it just takes up space.
diff --git a/mpd/usr/bin/mpd-random-albums b/mpd/usr/bin/mpd-random-albums
new file mode 100755
index 0000000..8adcd19
--- /dev/null
+++ b/mpd/usr/bin/mpd-random-albums
@@ -0,0 +1,12 @@
+#!/usr/local/bin/scsh -s
+!#
+
+(define (add-album album)
+  (run (mpc findadd album ,album)))
+
+(run (mpc clear))
+
+(for-each (lambda (album)
+            (run (mpc findadd album ,album)))
+          (run/strings (pipe (mpc list album)
+                             (shuf))))