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

Change quelques comportements

- C-s dans swiper cycle maintenant dans la liste
- affiche en noir le texte mis en lumière dans les recherches pour
plus de visibilité
- ne ferme plus la fenêtre de compilation même en cas de succès
parent 6196dc1a
No related branches found
No related tags found
No related merge requests found
......@@ -264,7 +264,15 @@ Interface de complétion
(ivy-mode 1)
(setq ivy-use-virtual-buffers t)
(setq ivy-count-format "%d/%d ")
(setq ivy-display-style 'fancy))
(setq ivy-display-style 'fancy)
(setq ivy-wrap t)
;; (custom-set-faces
;; '(ivy-minibuffer-match-face-1 ((t (:background "#74b5727c5654" :foreground "black"))))
;; '(ivy-minibuffer-match-face-2 ((t (:background "#ce8bf1006cba" :foreground "black"))))
;; '(ivy-minibuffer-match-face-3 ((t (:background "#fefdc4fe5941" :foreground "black"))))
;; '(ivy-minibuffer-match-face-4 ((t (:background "#fefd9c40f85a" :foreground "black"))))
;; )
)
#+END_SRC
** Swiper
......@@ -299,7 +307,15 @@ classiques. Deux différences notables.
(setq ivy-display-style 'fancy)
(setq ivy-use-selectable-prompt t)
(define-key read-expression-map (kbd "C-r") 'counsel-expression-history)
(define-key ivy-minibuffer-map (kbd "C-w") 'ivy-yank-word)))
(define-key ivy-minibuffer-map (kbd "C-w") 'ivy-yank-word)
(custom-set-faces
'(swiper-match-face-1 ((t (:background "#74b5727c5654" :foreground "black"))))
'(swiper-match-face-2 ((t (:background "#ce8bf1006cba" :foreground "black"))))
'(swiper-match-face-3 ((t (:background "#fefdc4fe5941" :foreground "black"))))
'(swiper-match-face-4 ((t (:background "#fefd9c40f85a" :foreground "black"))))
)
)
)
#+END_SRC
** Avy
......@@ -982,18 +998,18 @@ Active le rendu des couleurs ANSI dans le /buffer/ de compilation
Ferme automatiquement le /buffer/ de compilation lorsqu'il n'y a aucune
erreur (/warnings/ compris).
#+BEGIN_SRC emacs-lisp
(setq compilation-finish-function
(lambda (buf str)
(if (string-match "*Compilation*" (buffer-name buf))
(if (string-match "abnormally" str)
(message "There were errors :-(")
;;no errors, make the compilation window go away in 1 second
(run-at-time 1 nil
(lambda (buf)
(delete-windows-on buf)
(bury-buffer buf))
buf)
(message "No errors :-)")))))
;; (setq compilation-finish-function
;; (lambda (buf str)
;; (if (string-match "*Compilation*" (buffer-name buf))
;; (if (string-match "abnormally" str)
;; (message "There were errors :-(")
;; ;;no errors, make the compilation window go away in 1 second
;; (run-at-time 1 nil
;; (lambda (buf)
;; (delete-windows-on buf)
;; (bury-buffer buf))
;; buf)
;; (message "No errors :-)")))))
#+END_SRC
Force la création du /buffer/ de compilation en dessous
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment