projects
/
~bandali
/
configs
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[emacs] Assimilate (the awesome) expand-region 0.11.0-18-ged32924
[~bandali/configs]
/
init.org
diff --git
a/init.org
b/init.org
index
5006e56
..
3ae9946
100644
(file)
--- a/
init.org
+++ b/
init.org
@@
-667,9
+667,7
@@
Based on https://stackoverflow.com/a/17788551, with changes to use
(around inhibit-display
(command &optional mode name-function highlight-regexp))
(if (not (string-match "^\\(find\\|grep\\)" command))
(around inhibit-display
(command &optional mode name-function highlight-regexp))
(if (not (string-match "^\\(find\\|grep\\)" command))
- (cl-letf (((symbol-function 'display-buffer) #'ignore)
- ((symbol-function 'set-window-point) #'ignore)
- ((symbol-function 'goto-char) #'ignore))
+ (cl-letf (((symbol-function 'display-buffer) #'ignore))
(save-window-excursion ad-do-it))
ad-do-it))
(ad-activate 'compilation-start))
(save-window-excursion ad-do-it))
ad-do-it))
(ad-activate 'compilation-start))
@@
-825,7
+823,8
@@
file.
(let* ((file-tangle-start-time (current-time))
(file (buffer-file-name))
(file-nodir (file-name-nondirectory file))
(let* ((file-tangle-start-time (current-time))
(file (buffer-file-name))
(file-nodir (file-name-nondirectory file))
- (async-quiet-switch "-q"))
+ ;; (async-quiet-switch "-q")
+ )
(async-start
`(lambda ()
(require 'org)
(async-start
`(lambda ()
(require 'org)
@@
-912,8
+911,9
@@
There's no way I could top that, so I won't attempt to.
#+begin_src emacs-lisp
(use-package swiper
#+begin_src emacs-lisp
(use-package swiper
- :bind (("C-s" . swiper)
- ("C-r" . swiper)))
+ :bind (("C-s" . swiper)
+ ("C-r" . swiper)
+ ("C-S-s" . isearch-forward)))
#+end_src
**** Counsel
#+end_src
**** Counsel
@@
-955,7
+955,7
@@
There's no way I could top that, so I won't attempt to.
(defun amin|eshell-setup ()
(make-local-variable 'company-idle-delay)
(defun amin|eshell-setup ()
(make-local-variable 'company-idle-delay)
- (
setq
company-idle-delay nil)
+ (
defvar
company-idle-delay nil)
(bind-keys :map eshell-mode-map
("C-d" . amin/eshell-quit-or-delete-char)
("C-S-l" . amin/eshell-clear)
(bind-keys :map eshell-mode-map
("C-d" . amin/eshell-quit-or-delete-char)
("C-S-l" . amin/eshell-clear)
@@
-1990,6
+1990,13
@@
Hopefully temporary.
(global-page-break-lines-mode))
#+end_src
(global-page-break-lines-mode))
#+end_src
+** expand-region
+
+#+begin_src emacs-lisp
+(use-package expand-region
+ :bind ("C-=" . er/expand-region))
+#+end_src
+
* Email
#+begin_src emacs-lisp
* Email
#+begin_src emacs-lisp