From 43afe6c5db55704f787aaee4cedd7f4c69206b8b Mon Sep 17 00:00:00 2001 From: JSDurand Date: Wed, 27 Jan 2021 18:34:52 +0800 Subject: Further configurations * basic.el (eval-expression-print-length): (eval-expression-print-level): Now echo are will print without limits. (winner): Enable winner-mode at start up. (input-decode-map): (key-translation-map): Translate ESC to make the following key modified by control. (bookmark-completing-read): (durand-bookmark-completing-read): Now it won't ask me for confirmation about my choices. * init.el ("durand-chercher-pdf"): Further enhance the convenience of viewing PDFs. ("embark-conf.el"): Now I don't use embark anymore. * view-conf.el (durand-view-map): Add my own way of viewing things. (durand-open-targets): These are the things I can open. (durand-open-object): Open things quickly. --- init.el | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to 'init.el') diff --git a/init.el b/init.el index 1d238d2..2cd1ac7 100644 --- a/init.el +++ b/init.el @@ -110,6 +110,7 @@ If FUNCTION-NAME is already a valid function, this won't do anything." (use-package "durand-chercher-pdf" 'durand-chercher-pdf (define-key durand-pdf-mode-map (vector ?q) 'quit-window) + (define-key durand-pdf-mode-map (vector ?x) #'durand-chercher-pdf-exit) (define-key durand-pdf-mode-map (vector ?N) 'forward-line) (define-key durand-pdf-mode-map (vector ?n) 'durand-pdf-next-pdf-line) (define-key durand-pdf-mode-map (vector ?P) (lambda () (interactive) (forward-line -1))) @@ -118,7 +119,18 @@ If FUNCTION-NAME is already a valid function, this won't do anything." (define-key durand-pdf-mode-map (vector 32) 'durand-pdf-open-or-scroll-up) (define-key durand-pdf-mode-map (vector 'backspace) 'durand-pdf-open-or-scroll-down) (define-key durand-pdf-mode-map (vector ?o) 'kill-other-buffer-window) - (define-key durand-pdf-mode-map (vector ?k) 'kill-current-buffer)) + (define-key durand-pdf-mode-map (vector ?k) 'kill-current-buffer) + (cond + ((assoc durand-chercher-pdf-buffer-name display-buffer-alist #'string-match) + (setcdr (assoc durand-chercher-pdf-buffer-name + display-buffer-alist #'string-match) + '((display-buffer-in-tab durand-display-in-one-window) + (tab-name . "chercher pdf")))) + (t + (add-to-list 'display-buffer-alist + `(,(rx-to-string `(seq bos ,durand-chercher-pdf-buffer-name eos)) + (display-buffer-in-tab durand-display-in-one-window) + (tab-name . "chercher pdf")))))) ;;; gnus @@ -162,7 +174,7 @@ If FUNCTION-NAME is already a valid function, this won't do anything." ;;; embark -(load-config "embark-conf.el") +;; (load-config "embark-conf.el") ;;; magit -- cgit v1.2.3-18-g5258