adjust
authorJoerg Jaspert <joerg@debian.org>
Sun, 22 Feb 2015 13:46:03 +0000 (14:46 +0100)
committerJoerg Jaspert <joerg@debian.org>
Sun, 22 Feb 2015 13:46:03 +0000 (14:46 +0100)
.emacs.d/config/emacs.org

index 0b48791..dee1126 100644 (file)
@@ -409,7 +409,7 @@ Shell. zsh in my case.
 
 *** Emacs shell
 Basic settings for emacs integrated shell
-#+BEGIN_SRC emacs-lisp :tangle yes
+#+BEGIN_SRC emacs-lisp :tangle no
 (use-package eshell
   :defer t
   :init
@@ -544,19 +544,9 @@ In this day and age, UTF-8 is the way to go.
 While I do have the nifty shortcut to jump to the other parentheses,
 hilighting them makes it obvious where they are.
 #+BEGIN_SRC emacs-lisp :tangle yes
-(unless
-    (use-package mic-paren
-      :init
-      (paren-activate))
-
-  (use-package paren
-    :init
-    (progn
-      (show-paren-mode +1)
-      (setq show-paren-style 'parenthesis)
-      )
-    )
-  )
+(use-package mic-paren
+  :init
+  (paren-activate))
 #+END_SRC
 *** Kill other buffers
 While many editors allow you to close "all the other files, not the one
@@ -581,13 +571,11 @@ jump half-windows?
 The default how emacs handles cutting/pasting with the primary selection
 changed in emacs24. I am used to the old way, so get it back.
 #+BEGIN_SRC emacs-lisp :tangle yes
-(setq x-select-enable-primary t)
-(setq x-select-enable-clipboard t        ;; copy-paste should work ...
-  interprogram-paste-function            ;; ...with...
-  'x-cut-buffer-or-selection-value)      ;; ...other X clients
-
+(setq select-enable-primary t)
+(setq select-enable-clipboard nil)
+(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)
+(setq mouse-drag-copy-region t)
 #+END_SRC
-
 *** Global keyboard changes not directly related to a mode
 Disable /suspend_frame/ function, I dislike it.
 #+BEGIN_SRC emacs-lisp :tangle yes
@@ -1131,11 +1119,13 @@ information in the mode-line in various search modes.
 [2014-05-21 Wed 00:33]
 #+BEGIN_SRC emacs-lisp :tangle yes
 (use-package ascii
-  :commands (ascii-on ascii-display)
+  :commands (ascii-on ascii-toggle ascii-display)
+  :bind (("C-c e A" . ascii-toggle))
   :init
   (progn
     (defun ascii-toggle ()
       (interactive)
+      (defvar ascii-display nil)
       (if ascii-display
           (ascii-off)
         (ascii-on)))
@@ -1570,7 +1560,7 @@ movement keys.
 
     (defun dired-back-to-top ()
       (interactive)
-      (beginning-of-buffer)
+      (goto-char (point-min))
       (dired-next-line 4))
 
     (define-key dired-mode-map
@@ -1578,7 +1568,7 @@ movement keys.
 
     (defun dired-jump-to-bottom ()
       (interactive)
-      (end-of-buffer)
+      (goto-char (point-max))
       (dired-next-line -1))
 
     (define-key dired-mode-map
@@ -1988,7 +1978,7 @@ for this.
   :diminish guide-key-mode
   :init
   (progn
-    (setq guide-key/guide-key-sequence '("C-x" "C-c"))
+    (setq guide-key/guide-key-sequence '("C-x" "C-c" "M-g"))
     (guide-key-mode 1)
     (setq guide-key/recursive-key-sequence-flag t)
     (setq guide-key/popup-window-position 'bottom)
@@ -2059,19 +2049,21 @@ that disables itself auto-magically.
     (setq hydra-is-helpful t)
     (setq hydra-lv t)
 
-    (defhydra hydra-zoom (global-map "<f2>")
+    (defhydra hydra-zoom (:color red)
       "zoom"
       ("g" text-scale-increase "in")
       ("l" text-scale-decrease "out")
       ("q" nil "quit"))
+    (bind-key "<F2>" 'hydra-zoom/toggle)
 
-    (defhydra hydra-error (global-map "M-g")
+    (defhydra hydra-error (:color red)
       "goto-error"
       ("h" first-error "first")
       ("j" next-error "next")
       ("k" previous-error "prev")
       ("v" recenter-top-bottom "recenter")
       ("q" nil "quit"))
+    (bind-key "M-g e" 'hydra-error/body)
 
     (defhydra hydra-launcher (:color blue)
       "Launch"
@@ -2080,11 +2072,12 @@ that disables itself auto-magically.
       ("w" (browse-url "http://www.emacswiki.org/") "emacswiki")
       ("s" shell "shell")
       ("q" nil "cancel"))
-    (global-set-key (kbd "C-c r") 'hydra-launcher/body)
-    )
+    (bind-key "C-c r" 'hydra-launcher/body)
 
-  (defhydra hydra-toggle (:color pink)
-    "
+    ; whitespace mode gets loaded late, so variable may not be there yet. Workaround...
+    (defvar whitespace-mode nil)
+    (defhydra hydra-toggle (:color pink)
+      "
 _a_ abbrev-mode:        % 4`abbrev-mode^^^^     _f_ auto-fill-mode:    %`auto-fill-function
 _c_ auto-complete-mode: % 4`auto-complete-mode     _r_ auto-revert-mode:  %`auto-revert-mode
 _d_ debug-on-error:     % 4`debug-on-error^     _t_ truncate-lines:    %`truncate-lines
@@ -2092,21 +2085,20 @@ _w_ whitespace-mode:    % 4`whitespace-mode     _g_ golden-ratio-mode: %`golden-
 _l_ linum-mode:         % 4`linum-mode     _k_ linum relative:    %`linum-format
 
 "
-    ("a" abbrev-mode nil)
-    ("c" auto-complete-mode nil)
-    ("i" aggressive-indent-mode nil)
-    ("d" toggle-debug-on-error nil)
-    ("f" auto-fill-mode nil)
-    ("g" golden-ratio-mode nil)
-    ("t" toggle-truncate-lines nil)
-    ("w" whitespace-mode nil)
-    ("r" auto-revert-mode nil)
-    ("l" linum-mode nil)
-    ("k" linum-relative-toggle nil)
-    ("q" nil "cancel"))
-
-  (global-set-key (kbd "C-c C-v") 'hydra-toggle/body)
-  )
+      ("a" abbrev-mode nil)
+      ("c" auto-complete-mode nil)
+      ("i" aggressive-indent-mode nil)
+      ("d" toggle-debug-on-error nil)
+      ("f" auto-fill-mode nil)
+      ("g" golden-ratio-mode nil)
+      ("t" toggle-truncate-lines nil)
+      ("w" whitespace-mode nil)
+      ("r" auto-revert-mode nil)
+      ("l" linum-mode nil)
+      ("k" linum-relative-toggle nil)
+      ("q" nil "cancel"))
+    (bind-key "C-c C-v" 'hydra-toggle/body)
+    ))
 
 
 #+END_SRC