use jumping stuff

[lib.git] / emacs_el / configuration / don-configuration.org

diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org
index feb124ddc35c1cd6ac281feb12d6daf786410640..e622582d09c41bb8d9e8a58618b21bd6ea678352 100644 (file)
--- a/emacs_el/configuration/don-configuration.org
+++ b/emacs_el/configuration/don-configuration.org
@@ -244,12 +244,35 @@ value, scrolling continues until there is no more output.
 ** Jumping
 *** Avy
 #+BEGIN_SRC emacs-lisp
-(use-package avy
-  :ensure t
-  :bind ("C-c C-SPC" . avy-goto-word-1)
-  :config (progn
-            (setq avy-background t)
-            (key-chord-define-global "jj"  #'avy-goto-word-1)))
+  (use-package avy
+    :ensure t
+    :bind (("C-c C-<SPC>" . avy-goto-word-or-subword-1)
+           ("C-c j j" . avy-goto-word-or-subword-1)
+           ("M-g g" . avy-goto-line))
+    :config (progn (setq avy-background t))
+    )
+#+END_SRC
+*** Ace-link (jumping to links)
+#+BEGIN_SRC emacs-lisp
+  (use-package ace-link
+    :ensure t
+    ; bind o in most modes
+    :config (ace-link-setup-default))
+#+END_SRC
+*** Jumping through edit points (goto-chg)
+#+BEGIN_SRC emacs-lisp
+  (use-package goto-chg
+    :ensure t
+    :bind (("C-c j ," . goto-last-change)
+           ("C-c j ." . goto-last-change-reverse))
+#+END_SRC
+*** Jumping to bookmarks (visible bookmarks, bm)
+#+BEGIN_SRC emacs-lisp
+  (use-package bm
+    :ensure t
+    :bind (("C-c j b ." . bm-next)
+           ("C-c j b ," . bm-previous)
+           ("C-c j b SPC" . bm-toggle)))
 #+END_SRC
 
 ** Snippets
@@ -603,6 +626,20 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
 #+BEGIN_SRC emacs-lisp
   (use-package atomic-chrome
     :config (atomic-chrome-start-server)
+    (setq atomic-chrome-buffer-open-style 'full)
+    )
+#+END_SRC
+** Multiple Cursors
+   :PROPERTIES:
+   :ID:       6fcf218b-a762-4c37-9339-a8202ddeb544
+   :END:
+[[https://github.com/magnars/multiple-cursors.el][Multiple Cursors]]
+#+BEGIN_SRC emacs-lisp
+  (use-package multiple-cursors
+    :bind (("C-;" . mc/mark-all-dwim)
+           ("C-<" . mc/mark-previous-like-this)
+           ("C->" . mc/mark-next-like-this)
+           ("C-S-c C-S-c" . mc/edit-lines))
     )
 #+END_SRC
 * Org Mode
@@ -1303,6 +1340,21 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
             (when (member (org-get-todo-state) org-todo-keywords-1)
               (setq has-subtask t))))
         (and is-a-task (not has-subtask)))))
+  (defun bh/is-project-p ()
+    "Any task with a todo keyword subtask"
+    (save-restriction
+      (widen)
+      (let ((has-subtask)
+            (subtree-end (save-excursion (org-end-of-subtree t)))
+            (is-a-task (member (nth 2 (org-heading-components)) org-todo-keywords-1)))
+        (save-excursion
+          (forward-line 1)
+          (while (and (not has-subtask)
+                      (< (point) subtree-end)
+                      (re-search-forward "^\*+ " subtree-end t))
+            (when (member (org-get-todo-state) org-todo-keywords-1)
+              (setq has-subtask t))))
+        (and is-a-task has-subtask))))
 
   (defun bh/is-subproject-p ()
     "Any task which is a subtask of another project"
@@ -1515,8 +1567,8 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
 
   (defvar my-keys-minor-mode-map (make-keymap) "my-keys-minor-mode keymap.")
 
-  ; use iedit everywhere
-  (define-key my-keys-minor-mode-map (kbd "C-;") 'iedit-mode)
+  ; use mc everywhere
+  (define-key my-keys-minor-mode-map (kbd "C-;") 'mc/mark-all-dwim)
   ;; use outline mode keybindings everywhere
   ;; (define-key my-keys-minor-mode-map (kbd "C-;") 'my/mydra-outline/body)
 
@@ -1537,7 +1589,11 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
           (add-to-list 'minor-mode-map-alist mykeys))))
   (ad-activate 'load)
 #+END_SRC
-
+** Goto line
+#+BEGIN_SRC emacs-lisp
+  (global-unset-key "\M-g")
+  (global-set-key (kbd "M-g l") 'goto-line)
+#+END_SRC
 * Misc (uncharacterized)
 #+BEGIN_SRC emacs-lisp
   (setq bibtex-user-optional-fields (quote (("annote" "Personal annotation (ignored)") ("abstract" "") ("pmid" "") ("doi" ""))))
@@ -1668,9 +1724,6 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
 
   (setq mail-yank-prefix "> ")
 
-  (global-unset-key "\M-g")
-  (global-set-key "\M-g" 'goto-line)
-
   ;; self-insert-command hack.
   ;;   Without this, "if<SP>" expands to
   ;;   if ( -!-) {
@@ -1820,11 +1873,6 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
   ; don't use the multi-window configuration
   (setq ediff-window-setup-function 'ediff-setup-windows-plain)
 
-  ; use iedit
-  (require 'iedit)
-  (define-key global-map (kbd "C-;") 'iedit-mode)
-  (global-set-key  (kbd "C-;") 'iedit-mode)
-
   ; fix up css mode to not be silly
   ; from http://www.stokebloke.com/wordpress/2008/03/21/css-mode-indent-buffer-fix/
   (setq cssm-indent-level 4)
@@ -1977,7 +2025,7 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
   (defvar my-keys-minor-mode-map (make-keymap) "my-keys-minor-mode keymap.")
 
   ; use iedit everywhere
-  (define-key my-keys-minor-mode-map (kbd "C-;") 'iedit-mode)
+  (define-key my-keys-minor-mode-map (kbd "C-;") 'mc/mark-all-dwim)
 
   (define-minor-mode my-keys-minor-mode
     "A minor mode so that my key settings override annoying major modes."