whitespace

global.org

@@ -422,10 +422,10 @@
     If the directory ~/.emacs.d exists, we make a filename in there, otherwise
     a file in the home directory."
       (let ((basename (concat "sessions/session." session-id))
-             (emacs-dir user-emacs-directory))
-        (expand-file-name (if (file-directory-p emacs-dir)
-                              (concat emacs-dir basename)
-                            (concat "~/.emacs-" basename)))))
+	     (emacs-dir user-emacs-directory))
+	(expand-file-name (if (file-directory-p emacs-dir)
+			      (concat emacs-dir basename)
+			    (concat "~/.emacs-" basename)))))
 
     ;; * Time stamps
     ;; write
@@ -444,7 +444,7 @@
 
     (require 'package)
     (add-to-list 'package-archives
-                 '("melpa-stable" . "http://stable.melpa.org/packages/") t)
+		 '("melpa-stable" . "http://stable.melpa.org/packages/") t)
 
     ;; (eval-after-load 'tramp '(setenv "SHELL" "/bin/bash"))
 
@@ -453,11 +453,11 @@
 
     (defun flash-hline ()
       (let ((fg (face-foreground 'default))
-            (bg (face-background 'hl-line)))
-        (set-face-background 'hl-line fg)
-        (run-with-timer
-         0.1 nil (lambda ()
-                 (set-face-background 'hl-line "#303030") ))))
+	    (bg (face-background 'hl-line)))
+	(set-face-background 'hl-line fg)
+	(run-with-timer
+	 0.1 nil (lambda ()
+		 (set-face-background 'hl-line "#303030") ))))
 
     (global-set-key (kbd "<f15>") 'flash-hline)
 
@@ -467,9 +467,9 @@
       "Takes a multi-line paragraph and makes it into a single line of text."
       (interactive (progn (barf-if-buffer-read-only) '(t)))
       (let ((fill-column (point-max))
-            ;; This would override `fill-column' if it's an integer.
-            (emacs-lisp-docstring-fill-column t))
-        (fill-paragraph nil region)))
+	    ;; This would override `fill-column' if it's an integer.
+	    (emacs-lisp-docstring-fill-column t))
+	(fill-paragraph nil region)))
 
   (defun select-frame-on-current-activity ()
      (select-frame-on-activity (kde-current-activity))
@@ -487,8 +487,8 @@
 
     (mapc
        (lambda (face)
-         (set-face-attribute face nil :weight 'normal)
-         (set-face-attribute face nil :slant 'normal))
+	 (set-face-attribute face nil :weight 'normal)
+	 (set-face-attribute face nil :slant 'normal))
        (face-list))
     (server-start)
 #+END_SRC