summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAlan Pearce2013-05-15 12:24:53 +0100
committerAlan Pearce2013-05-15 12:24:53 +0100
commit6b100e353fed694a0c3a23ab973bf132126bfac0 (patch)
treeb83ab678e0c08367aac32f8279b30ccd5c9005e3
parent8f2752f1d619bcbee7ea5960336ba775f09e7a95 (diff)
downloaddotfiles-6b100e353fed694a0c3a23ab973bf132126bfac0.tar.lz
dotfiles-6b100e353fed694a0c3a23ab973bf132126bfac0.tar.zst
dotfiles-6b100e353fed694a0c3a23ab973bf132126bfac0.zip
Emacs: whitespace fixes
-rw-r--r--emacs/init.el44
1 files changed, 22 insertions, 22 deletions
diff --git a/emacs/init.el b/emacs/init.el
index fe051a4..9ab8db4 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -14,13 +14,13 @@
 (defun env/get-location ()
   "Return the physical location of the system, or `nil' if unknown"
   (if (executable-find "netctl")
-   (catch 'found
-     (mapc (lambda (line)
-             (cond
-              ((string-prefix-p "* home" line) (throw 'found 'home))
-              ((string-prefix-p "* work" line) (throw 'found 'work))))
-           (process-lines "netctl" "list"))
-     nil)))
+      (catch 'found
+        (mapc (lambda (line)
+                (cond
+                 ((string-prefix-p "* home" line) (throw 'found 'home))
+                 ((string-prefix-p "* work" line) (throw 'found 'work))))
+              (process-lines "netctl" "list"))
+        nil)))
 
 (defun env/get-system-type ()
   "Return the type of computer that is running"
@@ -151,13 +151,13 @@ Values: `desktop', `server', `laptop'")
                           "Consolas")
                          ))
              (variable-face "Segoe UI")
-          (default-font (concat mono-face "-" (number-to-string font-size))))
-     (when mono-face
-       (set-face-font 'default default-font)
-       (set-face-font 'fixed-pitch default-font))
-     (when variable-face
-       (set-face-font 'variable-pitch (concat variable-face "-"
-                                              (number-to-string (1+ font-size))))))))
+             (default-font (concat mono-face "-" (number-to-string font-size))))
+        (when mono-face
+          (set-face-font 'default default-font)
+          (set-face-font 'fixed-pitch default-font))
+        (when variable-face
+          (set-face-font 'variable-pitch (concat variable-face "-"
+                                                 (number-to-string (1+ font-size))))))))
 
 (with-elapsed-timer "Setting up font styles"
   (let* ((font-height (face-attribute 'default :height))
@@ -921,14 +921,14 @@ Also returns nil if pid is nil."
 (defun init-narrow-to-section ()
   (interactive)
   (save-excursion
-	(beginning-of-line)
-	(unless (looking-at "^;;;;")
-	  (re-search-backward "^;;;;" nil t))
-	(push-mark)
-	(forward-line)
-	(re-search-forward "^;;;;" nil t)
-	(forward-line -1)
-	(narrow-to-region (region-beginning) (region-end))))
+    (beginning-of-line)
+    (unless (looking-at "^;;;;")
+      (re-search-backward "^;;;;" nil t))
+    (push-mark)
+    (forward-line)
+    (re-search-forward "^;;;;" nil t)
+    (forward-line -1)
+    (narrow-to-region (region-beginning) (region-end))))
 
 (defun init-imenu (p)
   (interactive "P")