From df7fa2f1c4a9beedd41d321c32712f508b2ee934 Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Wed, 20 Feb 2013 00:06:06 +0100
Subject: [PATCH] emacs: do some stuff

---
 emacs/init.el  |  6 ------
 emacs/init.org | 41 +++++++++++++++++++++++++++++++++++++++--
 2 files changed, 39 insertions(+), 8 deletions(-)

diff --git a/emacs/init.el b/emacs/init.el
index a3eff7b..fa7188d 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -49,12 +49,6 @@
 (require 'ext)
 (require 'oni)
 
-(put 'upcase-region 'disabled nil)
-(put 'downcase-region 'disabled nil)
-(put 'narrow-to-region 'disabled nil)
-(put 'scroll-left 'disabled nil)
-
-(setq-default bidi-paragraph-direction 'left-to-right)
 (setq-default c-basic-offset 4)
 (setq-default fci-rule-column 73)
 (setq-default indent-tabs-mode nil)
diff --git a/emacs/init.org b/emacs/init.org
index 9ac0ef7..d8eb2e7 100644
--- a/emacs/init.org
+++ b/emacs/init.org
@@ -1,8 +1,8 @@
 #+TITLE: Emacs init
-#+OPTIONS: author:nil num:nil
-#+STARTUP: showall
 #+LINK: yoshi-theme http://ryuslash.org/projects/yoshi-theme.html
+#+OPTIONS: author:nil num:nil
 #+PROPERTY: tangle init2.el
+#+STARTUP: showall
 
 * GUI
 
@@ -425,3 +425,40 @@
 
     (global-set-key (kbd "<f8>") 'oni:raise-eshell)
   #+END_SRC
+
+* svg-mode-line-themes
+
+  After Emacs has initialized, enable =svg-mode-line-themes= and select
+  a theme.
+
+  #+BEGIN_SRC emacs-lisp
+    (defun oni:enable-svg-mode-line-theme ()
+      "Enable `svg-mode-line-theme' and select a theme."
+      (smt/enable)
+      (smt/set-theme 'black-crystal))
+
+    (add-hook 'emacs-startup-hook 'oni:enable-svg-mode-line-theme)
+  #+END_SRC
+
+* bidi
+
+  Disable bi-directional text, since I don't write right-to-left
+  myself and I don't know anyone who does. I have read that it is a
+  bad idea to disable it completely, but forcing left-to-right should
+  help.
+
+  #+BEGIN_SRC emacs-lisp
+    (setq-default bidi-paragraph-direction 'left-to-right)
+  #+END_SRC
+
+* disabled
+
+  There are some functions which get disabled by default because they
+  "confuse new users", but these I like using.
+
+  #+BEGIN_SRC emacs-lisp
+    (put 'upcase-region 'disabled nil)
+    (put 'downcase-region 'disabled nil)
+    (put 'narrow-to-region 'disabled nil)
+    (put 'scroll-left 'disabled nil)
+  #+END_SRC