Updates
authorJoerg Jaspert <joerg@debian.org>
Thu, 11 May 2017 22:23:26 +0000 (00:23 +0200)
committerJoerg Jaspert <joerg@debian.org>
Thu, 11 May 2017 22:23:26 +0000 (00:23 +0200)
.emacs.d/config/emacs.org

index ffac9c0..c9df181 100644 (file)
@@ -794,8 +794,7 @@ ways.
 [2016-02-15 Mon 22:19]
 See [[http://endlessparentheses.com/ispell-and-abbrev-the-perfect-auto-correct.html][Ispell and Abbrev, the Perfect Auto-Correct]].
 #+BEGIN_SRC emacs-lisp
-(define-key ctl-x-map "\C-i"
-  #'endless/ispell-word-then-abbrev)
+(bind-key "C-i" 'endless/ispell-word-then-abbrev ctl-x-map)
 
 (defun endless/ispell-word-then-abbrev (p)
   "Call `ispell-word', then create an abbrev for it.
@@ -882,7 +881,7 @@ to go wrong.
 aggressive-indent-mode is a minor mode that keeps your code always
 indented. It reindents after every command, making it more reliable
 than electric-indent-mode.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle no
 (use-package aggressive-indent
   :ensure aggressive-indent
   :commands (aggressive-indent-mode global-aggressive-indent-mode)
@@ -922,9 +921,7 @@ information in the mode-line in various search modes.
       (defvar ascii-display nil)
       (if ascii-display
           (ascii-off)
-        (ascii-on)))
-
-    (bind-key "C-c e A" 'ascii-toggle)))
+        (ascii-on)))))
 #+END_SRC
 ** auctex
 #+BEGIN_SRC emacs-lisp
@@ -958,8 +955,23 @@ much possible work for me as it can.
 So here, auto-complete-mode, which lets emacs do this, based on what I
 already had typed.
 #+BEGIN_SRC emacs-lisp
-(use-package auto-complete-config
+(use-package auto-complete
   :ensure auto-complete
+  :commands auto-complete-mode
+  :bind (("C-n" . ac-next)
+         ("C-p" . ac-previous)
+         :map ac-complete-mode-map
+         ("\t" . ac-expand)
+         ("\r" . ac-complete)
+         ("M-n" . ac-next)
+         ("M-p" . ac-previous)
+         :map ac-mode-map
+         ("M-TAB" . auto-complete)
+         :map ac-completing-map
+         ("C-s" . ac-isearch))
+  :init
+  (progn
+    (auto-complete-mode t))
   :config
   (progn
     (ac-config-default)
@@ -978,14 +990,6 @@ already had typed.
     (use-package pos-tip
       :ensure t)
 
-    ;; custom keybindings to use tab, enter and up and down arrows
-    (bind-key "\t" 'ac-expand ac-complete-mode-map)
-    (bind-key "\r" 'ac-complete ac-complete-mode-map)
-    (bind-key "M-n" 'ac-next ac-complete-mode-map)
-    (bind-key "M-p" 'ac-previous ac-complete-mode-map)
-    (bind-key "C-s" 'ac-isearch ac-completing-map)
-    (bind-key "M-TAB" 'auto-complete ac-mode-map)
-
     (validate-setq ac-comphist-file (expand-file-name "ac-comphist.dat" jj-cache-dir))
     (validate-setq ac-use-comphist t)
     (validate-setq ac-expand-on-auto-complete nil)
@@ -1025,17 +1029,16 @@ already had typed.
                    ac-source-dabbrev))
 
     (dolist (mode '(magit-log-edit-mode log-edit-mode org-mode text-mode haml-mode
-                                        sass-mode yaml-mode csv-mode espresso-mode haskell-mode
-                                        html-mode nxml-mode sh-mode smarty-mode clojure-mode
-                                        lisp-mode textile-mode markdown-mode tuareg-mode python-mode
-                                        js3-mode css-mode less-css-mode sql-mode ielm-mode))
+                    sass-mode yaml-mode csv-mode espresso-mode haskell-mode 
+                    html-mode nxml-mode sh-mode smarty-mode clojure-mode go-mode
+                    lisp-mode textile-mode markdown-mode tuareg-mode python-mode
+                    js3-mode css-mode less-css-mode sql-mode ielm-mode))
       (add-to-list 'ac-modes mode))
 
     (add-hook 'latex-mode-hook 'auto-complete-mode)
     (add-hook 'LaTeX-mode-hook 'auto-complete-mode)
     (add-hook 'prog-mode-hook 'auto-complete-mode)
     (add-hook 'org-mode-hook 'auto-complete-mode)))
-
 #+END_SRC
 
 ** auto-revert
@@ -1045,7 +1048,7 @@ with it. Not to have to revert buffers myself
 (use-package autorevert
   :commands auto-revert-mode
   :diminish auto-revert-mode
-  :config
+  :init
   (progn
     (validate-setq global-auto-revert-mode t)
     (validate-setq global-auto-revert-non-file-buffers t)
@@ -1057,7 +1060,7 @@ Emacs should keep backup copies of files I edit, but I do not want them
 to clutter up the filesystem everywhere. So I put them into one defined
 place, backup-directory, which even contains my username (for systems
 where =temporary-file-directory= is not inside my home).
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle no
 (use-package backups-mode
   :load-path "elisp/backups-mode"
   :disabled t
@@ -1130,7 +1133,7 @@ Currently replaced with counsel, see Ivy
 #+END_SRC
 ** calendar
 [2014-06-10 Tue 22:20]
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle no
 (use-package calendar
   :commands (cal/insert)
   :bind ("C-c c" . cal/insert)
@@ -1165,6 +1168,7 @@ want it to using just two commands.
 #+BEGIN_SRC emacs-lisp
 (use-package corral
   :ensure corral
+  :bind (("C-c c" . hydra-corral/body))
   :config
   (progn
     ; Interpret # and * as part of the word
@@ -1185,7 +1189,6 @@ want it to using just two commands.
       ("'" corral-single-quotes-backward "Back")
       ("#" corral-single-quotes-forward "Forward")
       ("." hydra-repeat "Repeat"))
-    (bind-key "C-c c" 'hydra-corral/body)
     ))
 #+END_SRC
 ** crontab-mode
@@ -1264,8 +1267,8 @@ movement keys.
                    dired-mode dired-jump)
   :defines (dired-omit-regexp-orig)
   :bind (:map dired-mode-map
-              ("F" . find-name-dired)
-              ("/" . dired-narrow))
+         ("F" . find-name-dired)
+         ("/" . dired-narrow))
   :init
   (progn
     (setq diredp-hide-details-initially-flag nil))
@@ -1296,10 +1299,11 @@ movement keys.
 
     (use-package dired-single
       :ensure dired-single
+      :bind (:map dired-mode-map
+                  ("<return>" . dired-single-buffer)
+                  ("<mouse-1>" . dired-single-buffer))
       :init
       (progn
-        (bind-key "<return>" 'dired-single-buffer dired-mode-map)
-        (bind-key "<mouse-1>" 'dired-single-buffer-mouse dired-mode-map)
         (bind-key "^"
                   (function
                    (lambda nil (interactive) (dired-single-buffer ".."))) dired-mode-map )))
@@ -1310,8 +1314,7 @@ movement keys.
              ("r" . wdired-change-to-wdired-mode))
       :config
       (progn
-        (validate-setq wdired-allow-to-change-permissions t)
-        (bind-key "r" 'wdired-change-to-wdired-mode dired-mode-map)))
+        (validate-setq wdired-allow-to-change-permissions t)))
 
     (use-package dired-narrow
       :ensure t
@@ -1321,10 +1324,8 @@ movement keys.
 
     (use-package gnus-dired
       :commands (gnus-dired-attach gnus-dired-mode)
-      :init
-      (progn
-        ;;(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)
-        (bind-key "a" 'gnus-dired-attach dired-mode-map)))
+      :bind (:map dired-mode-map
+                  ("a" . gnus-dired-attach)))
 
     (use-package runner
       :ensure runner)
@@ -2463,7 +2464,7 @@ And I want to have it everywhere.
 ** form-feed-mode
 [2015-08-31 Mon 11:27]
 Display nice lines instead of page breaks
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle no
 (use-package form-feed
   :ensure t
   )
@@ -2768,7 +2769,11 @@ _l_ linum-mode:         % 4`linum-mode     _k_ linum relative:    %`linum-format
   :bind (("C-h h" . ibuffer)
          ("C-x C-b" . ibuffer)
          ("<XF86WebCam>" . ibuffer)
-         )
+         :map ibuffer-mode-map
+         ("s" . isearch-forward-regexp)
+         ("." . ibuffer-invert-sorting)
+         ("i" . ibuffer-magit-status)
+         ("G" . ibuffer-magit-status))
   :commands (ibuffer)
   :defines (ibuffer-filtering-alist
             ibuffer-filter-groups ibuffer-compile-formats ibuffer-git-column-length
@@ -2779,8 +2784,6 @@ _l_ linum-mode:         % 4`linum-mode     _k_ linum relative:    %`linum-format
     (validate-setq ibuffer-filter-group-name-face 'variable-pitch
           ibuffer-use-header-line t)
     (unbind-key "M-o" ibuffer-mode-map)
-    (bind-key "s" 'isearch-forward-regexp ibuffer-mode-map)
-    (bind-key "." 'ibuffer-invert-sorting ibuffer-mode-map)
 
     (use-package f
       :ensure f)
@@ -2819,8 +2822,6 @@ _l_ linum-mode:         % 4`linum-mode     _k_ linum relative:    %`linum-format
                        (file-name-directory buffer-path)
                      buffer-path)))
             (magit-status default-directory)))))
-    (bind-key "i" 'ibuffer-magit-status ibuffer-mode-map)
-    (bind-key "G" 'ibuffer-magit-status ibuffer-mode-map)
 
     (validate-setq ibuffer-directory-abbrev-alist
           (-uniq
@@ -3110,7 +3111,6 @@ _l_ linum-mode:         % 4`linum-mode     _k_ linum relative:    %`linum-format
   ;; confirmation when deleting modified buffers after the option has
   ;; been turned off.
   (validate-setq ibuffer-expert t)
-
 ))
 #+END_SRC
 ** ivy-mode, swiper, counsel
@@ -3324,12 +3324,6 @@ magit is a mode for interacting with git.
       :commands magit-blame-mode
       :defer t)
 
-                                        ; (use-package magit-svn
-                                        ;   :ensure magit-svn
-                                        ;   :commands (magit-svn-mode
-                                        ;              turn-on-magit-svn)
-                                        ;   :defer t)
-
     (add-hook 'magit-mode-hook 'hl-line-mode)
     (defun magit-status-with-prefix ()
       (interactive)
@@ -3341,13 +3335,6 @@ magit is a mode for interacting with git.
     (unbind-key "M-s" magit-mode-map)
     (add-to-list 'magit-no-confirm 'stage-all-changes)
     (setq magit-push-always-verify nil)
-                                        ; (use-package magit-find-file
-                                        ;   :ensure magit-find-file
-                                        ;   :commands (magit-find-file-completing-read)
-                                        ;   :defer t
-                                        ;   :init
-                                        ;   (progn
-                                        ;     (bind-key "C-x C-f" 'magit-find-file-completing-read magit-mode-map)))
 
     (add-hook 'magit-log-edit-mode-hook
               #'(lambda ()
@@ -4731,6 +4718,7 @@ Powerful project helper. See https://github.com/bbatsov/projectile/blob/master/d
 #+BEGIN_SRC emacs-lisp :tangle yes
 (use-package projectile
   :ensure projectile
+  :commands (projectile-find-file projectile-switch-project)
   :config
   (progn
     (projectile-mode)