Skip to content
Snippets Groups Projects
Commit 614e739d authored by Stéphane Del Pino's avatar Stéphane Del Pino
Browse files

Retravaille hydra/toggle et supprime multiple-cursors

On laisse tomber les curseurs multiples pour le moment.
Il fadrait configurer le paquet finement : dans certaines
situations (pas si rares), c'est très peu intuitif.
parent afec3c85
No related branches found
No related tags found
No related merge requests found
...@@ -478,13 +478,6 @@ Suppression de tous les blancs quand appuie sur backspace ou delete ...@@ -478,13 +478,6 @@ Suppression de tous les blancs quand appuie sur backspace ou delete
(global-hungry-delete-mode)) (global-hungry-delete-mode))
#+END_SRC #+END_SRC
*** Multiple-cursors
Permet l'utilisation de plusieurs curseurs simultanément
#+BEGIN_SRC emacs-lisp
(use-package multiple-cursors
:ensure t)
#+END_SRC
*** Expand-region *** Expand-region
Sélectionne une zone de manière incrémentale. mot, phrase, paragraphe, Sélectionne une zone de manière incrémentale. mot, phrase, paragraphe,
etc de manière intelligente. etc de manière intelligente.
...@@ -675,7 +668,6 @@ Outil de simplification des raccourcis. Un popup contextuel apparaît. ...@@ -675,7 +668,6 @@ Outil de simplification des raccourcis. Un popup contextuel apparaît.
| Raccourci | Description | | Raccourci | Description |
|-----------+---------------------------------------| |-----------+---------------------------------------|
| ~C-x t~ | Active désactive certains utilitaires | | ~C-x t~ | Active désactive certains utilitaires |
| ~C-x j~ | Déplacement dans le /buffer/ |
| ~C-c t~ | Gestion du timer | | ~C-c t~ | Gestion du timer |
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package hydra (use-package hydra
...@@ -683,31 +675,22 @@ Outil de simplification des raccourcis. Un popup contextuel apparaît. ...@@ -683,31 +675,22 @@ Outil de simplification des raccourcis. Un popup contextuel apparaît.
:init :init
(global-set-key (global-set-key
(kbd "C-x t") (kbd "C-x t")
(defhydra toggle (:color blue) (defhydra toggle (:color blue :hint nil)
"toggle" "
("a" abbrev-mode "abbrev") Toggle
("s" flyspell-mode "flyspell") --------------------------------------------------
("d" toggle-debug-on-error "debug") [_a_] Abbrev [_s_] FlySpell [_c_] FlyCheck
("c" fci-mode "fCi") [_d_] Debug [_f_] Auto-Fill [_t_] Truncate lines
("f" auto-fill-mode "fill") [_l_] Line num. [_w_] Whitespace [_q_] Quit"
("t" toggle-truncate-lines "truncate") ("a" abbrev-mode)
("w" whitespace-mode "whitespace") ("s" flyspell-mode)
("q" nil "cancel"))) ("c" flycheck-mode)
(global-set-key ("d" toggle-debug-on-error)
(kbd "C-x j") ("f" auto-fill-mode)
(defhydra gotoline ("t" toggle-truncate-lines)
( :pre (linum-mode 1) ("l" display-line-numbers-mode)
:post (linum-mode -1)) ("w" whitespace-mode)
"goto" ("q" nil)))
("t" (lambda () (interactive)(move-to-window-line-top-bottom 0)) "top")
("b" (lambda () (interactive)(move-to-window-line-top-bottom -1)) "bottom")
("m" (lambda () (interactive)(move-to-window-line-top-bottom)) "middle")
("e" (lambda () (interactive)(goto-char (point-max))) "end")
("c" recenter-top-bottom "recenter")
("n" next-line "down")
("p" (lambda () (interactive) (forward-line -1)) "up")
("g" goto-line "goto-line")
))
(global-set-key (global-set-key
(kbd "C-c t") (kbd "C-c t")
(defhydra hydra-global-org (:color blue) (defhydra hydra-global-org (:color blue)
...@@ -721,37 +704,7 @@ Outil de simplification des raccourcis. Un popup contextuel apparaît. ...@@ -721,37 +704,7 @@ Outil de simplification des raccourcis. Un popup contextuel apparaît.
("j" org-clock-goto "Clock Goto") ; global visit the clocked task ("j" org-clock-goto "Clock Goto") ; global visit the clocked task
("c" org-capture "Capture") ; Don't forget to define the captures you want http://orgmode.org/manual/Capture.html ("c" org-capture "Capture") ; Don't forget to define the captures you want http://orgmode.org/manual/Capture.html
("l" (or )rg-capture-goto-last-stored "Last Capture")) ("l" (or )rg-capture-goto-last-stored "Last Capture"))
)) ))
(defhydra hydra-multiple-cursors (:hint nil)
"
Up^^ Down^^ Miscellaneous % 2(mc/num-cursors) cursor%s(if (> (mc/num-cursors) 1) \"s\" \"\")
------------------------------------------------------------------
[_p_] Next [_n_] Next [_l_] Edit lines [_0_] Insert numbers
[_P_] Skip [_N_] Skip [_a_] Mark all [_A_] Insert letters
[_M-p_] Unmark [_M-n_] Unmark [_s_] Search
[Click] Cursor at point [_q_] Quit"
("l" mc/edit-lines :exit t)
("a" mc/mark-all-like-this :exit t)
("n" mc/mark-next-like-this)
("N" mc/skip-to-next-like-this)
("M-n" mc/unmark-next-like-this)
("p" mc/mark-previous-like-this)
("P" mc/skip-to-previous-like-this)
("M-p" mc/unmark-previous-like-this)
("s" mc/mark-all-in-region-regexp :exit t)
("0" mc/insert-numbers :exit t)
("A" mc/insert-letters :exit t)
("<mouse-1>" mc/add-cursor-on-click)
;; Help with click recognition in this hydra
("<down-mouse-1>" ignore)
("<drag-mouse-1>" ignore)
("q" nil)
("<mouse-1>" mc/add-cursor-on-click)
("<down-mouse-1>" ignore)
("<drag-mouse-1>" ignore))
#+END_SRC #+END_SRC
** Modes git ** Modes git
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please to comment