Some less validation
authorJoerg Jaspert <joerg.jaspert@dlh.de>
Mon, 7 Nov 2016 14:09:33 +0000 (15:09 +0100)
committerJoerg Jaspert <joerg.jaspert@dlh.de>
Mon, 7 Nov 2016 14:12:17 +0000 (15:12 +0100)
.emacs.d/config/emacs.org

index 3a61d03..681208f 100644 (file)
@@ -815,7 +815,7 @@ avy is a GNU Emacs package for jumping to visible text using a char-based decisi
   (progn
     (bind-key "C-y" 'avy-isearch isearch-mode-map)
     (validate-setq avy-all-windows 'all-frames)
-    (validate-setq avi-keys '(?a ?s ?d ?e ?f ?h ?j ?k ?l ?n ?m ?v ?r ?u) )
+    (setq avi-keys '(?a ?s ?d ?e ?f ?h ?j ?k ?l ?n ?m ?v ?r ?u) )
     )
 )
 #+END_SRC
@@ -849,7 +849,7 @@ than electric-indent-mode.
   :config
   (progn
     (global-aggressive-indent-mode 0)
-    (validate-setq aggressive-indent-comments-too 0)
+    (validate-setq aggressive-indent-comments-too t)
     (add-to-list 'aggressive-indent-excluded-modes 'html-mode)
     ))
 #+END_SRC
@@ -2156,7 +2156,7 @@ Proper whitespace handling
     (validate-setq eww-form-checkbox-selected-symbol "☑") ; Unicode hex 2611
     ;; Improve the contract of pages like Google results
     ;; http://emacs.stackexchange.com/q/2955/115
-    (validate-setq shr-color-visible-luminance-min 80) ; default = 40
+    (setq shr-color-visible-luminance-min 80) ; default = 40
 
     ;; Auto-rename new eww buffers
     ;; http://ergoemacs.org/emacs/emacs_eww_web_browser.html
@@ -2819,8 +2819,8 @@ _l_ linum-mode:         % 4`linum-mode     _k_ linum relative:    %`linum-format
     (define-key ibuffer-mode-map
       (vector 'remap 'beginning-of-buffer) 'ibuffer-back-to-top)
 
-    (setq ibuffer-default-sorting-mode 'recency
-          ibuffer-eliding-string "…"
+    (setq ibuffer-default-sorting-mode 'recency)
+    (setq      ibuffer-eliding-string "…"
           ibuffer-compile-formats t
           ibuffer-git-column-length 6
           ibuffer-show-empty-filter-groups nil
@@ -3157,13 +3157,13 @@ magit is a mode for interacting with git.
          ("C-x G" . magit-status-with-prefix))
   :config
   (progn
-    (setq magit-repository-directories '("~/git"
+    (setq magit-repository-directories '("~/devel"
+                                         "~/git/"
                                          "/develop/vcs/"
                                          "/develop/Debian/"
-                                         "~/devel"
                                          ))
-    (validate-setq magit-repository-directories-depth 4)
-    (validate-setq magit-log-auto-more t)
+    (setq magit-repository-directories-depth 4)
+    (setq magit-log-auto-more t)
 
     (use-package magit-blame
       :commands magit-blame-mode
@@ -3221,7 +3221,7 @@ magit is a mode for interacting with git.
       "Start an interactive rebase sequence over all unpushed commits."
       (interactive (list (magit-get-tracked-branch)
                          (magit-rebase-arguments)))
-      (if (validate-setq commit (magit-rebase-interactive-assert commit))
+      (if (setq commit (magit-rebase-interactive-assert commit))
           (magit-run-git-sequencer "rebase" "-i" commit args)
         (magit-log-select
          `(lambda (commit)