diff options
-rw-r--r-- | emacs/init.el | 44 |
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") |