From 3649c4ecc3579d3d79a1dbe2439c20b68002086b Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sun, 17 Aug 2014 21:15:35 +0900
Subject: [PATCH] emacs.el: fix indent

---
 emacs.el | 57 ++++++++++++++++++++++++++++----------------------------
 1 file changed, 29 insertions(+), 28 deletions(-)

diff --git a/emacs.el b/emacs.el
index 729a7d2..8b9f512 100644
--- a/emacs.el
+++ b/emacs.el
@@ -75,15 +75,16 @@ IF OK-IF-ALREADY-EXISTS is true force download."
                                 nil
                                 "--output"
                                 path
+                                "-L"
                                 url
                                 ))
               path))))
    (ignore-errors
-        (require 'url)
-        (url-copy-file url
-                       path
-                       ok-if-already-exists)
-        path)))
+     (require 'url)
+     (url-copy-file url
+                    path
+                    ok-if-already-exists)
+     path)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; package
@@ -103,7 +104,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
         gnuplot-mode
         erlang
         )
-)
+      )
 
 (when (require 'package nil t)
   (add-to-list 'package-archives
@@ -145,15 +146,15 @@ found, otherwise returns nil."
             ,@(mapcar (lambda (f)
                         (unless (fboundp f)
                           `(progn
-                            (message "Autoloaded function `%S' defined (%s)"
-                                     (quote ,f)
-                                     ,libpath)
-                            (autoload (quote ,f)
-                              ,libname
-                              ,(concat "Autoloaded function defined in \""
-                                       libpath
-                                       "\".")
-                              t))))
+                             (message "Autoloaded function `%S' defined (%s)"
+                                      (quote ,f)
+                                      ,libpath)
+                             (autoload (quote ,f)
+                               ,libname
+                               ,(concat "Autoloaded function defined in \""
+                                        libpath
+                                        "\".")
+                               t))))
                       (or (eval functions)
                           `(,(eval feature))))
             (eval-after-load ,feature
@@ -273,8 +274,8 @@ found, otherwise returns nil."
 (defun my-w32-add-export-path (&rest args)
   "Add pathes ARGS for windows."
   (mapc (lambda (path)
-            (add-to-list 'exec-path (expand-file-name path)))
-          (reverse args))
+          (add-to-list 'exec-path (expand-file-name path)))
+        (reverse args))
   (setenv "PATH"
           (mapconcat 'convert-standard-filename
                      exec-path
@@ -564,8 +565,8 @@ found, otherwise returns nil."
 (defun my-set-ascii-and-jp-font (list)
   "Set font configuration List."
   (let ((fspec1 (if (> emacs-major-version 22)
-                   ;; font spec is available in emacs23 and later
-                   (font-spec :family (nth 2 list) :size (nth 3 list))
+                    ;; font spec is available in emacs23 and later
+                    (font-spec :family (nth 2 list) :size (nth 3 list))
                   (cons (nth 2 list) "jisx0208.*")))
         (fspec2 (if (> emacs-major-version 22)
                     (font-spec :family (nth 2 list) :size (nth 3 list))
@@ -869,7 +870,7 @@ found, otherwise returns nil."
 (require 'session nil t)
 
 (lazy-load-eval 'sql '(sql-mode)
-    (require 'sql-indent nil t))
+  (require 'sql-indent nil t))
 
 (and (fetch-library "https://raw.github.com/10sr/emacs-lisp/master/gtkbm.el"
                     t)
@@ -887,7 +888,7 @@ found, otherwise returns nil."
                     '("graph" . fundamental-mode))
        (add-to-list 'git-command-major-mode-alist
                     '("log" . fundamental-mode)))
-       ;; (setq git-command-default-options "-c color.ui=always")
+     ;; (setq git-command-default-options "-c color.ui=always")
      (define-key ctl-x-map "g" 'git-command))
 
 (and (fetch-library
@@ -1295,8 +1296,8 @@ found, otherwise returns nil."
                               (save-excursion
                                 (set-buffer buf)
                                 (not (memq major-mode
-                                      '(term-mode
-                                        eshell-mode))))))))
+                                           '(term-mode
+                                             eshell-mode))))))))
         ;; (setq bs-configurations (list
         ;; '("processes" nil get-buffer-process ".*" nil nil)
         ;; '("files-and-scratch" "^\\*scratch\\*$" nil nil
@@ -1903,7 +1904,7 @@ Optional prefix ARG says how many lines to unflag; default is one line."
                                               "color.ui=always"
                                               ,@args)
                                             " "))
-        ;; (eshell-git-shell-command-to-string args)
+      ;; (eshell-git-shell-command-to-string args)
       (if (require 'git-command nil t)
           (git-command (mapconcat 'shell-quote-argument
                                   args
@@ -2286,10 +2287,10 @@ ARG is ignored."
     ("grep"
      t
      ,(concat "find . "
-             "-path '*/.git' -prune -o "
-             "-path '*/.svn' -prune -o "
-             "-type f -print0 | "
-             "xargs -0 grep -nH -e "))
+              "-path '*/.git' -prune -o "
+              "-path '*/.svn' -prune -o "
+              "-type f -print0 | "
+              "xargs -0 grep -nH -e "))
     )
   "Alist of rgrep command.
 Each element is in the form like (NAME SEXP COMMAND), where SEXP returns the