diff options
| author | jao <jao@gnu.org> | 2021-10-25 16:05:10 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-10-25 16:05:10 +0100 |
| commit | 0427ce2e0a569baead9ace17fe45c2526b1741a6 (patch) | |
| tree | fecd203b3722365f57627cbd4cd01804d4633ac7 | |
| parent | 821fa0818e7120f4fe94102fe3a79153beb1acf0 (diff) | |
| download | elibs-0427ce2e0a569baead9ace17fe45c2526b1741a6.tar.gz elibs-0427ce2e0a569baead9ace17fe45c2526b1741a6.tar.bz2 | |
wee tweaks
| -rw-r--r-- | init.org | 8 | ||||
| -rw-r--r-- | lib/eos/jao-minibuffer.el | 10 | ||||
| -rw-r--r-- | org.org | 3 |
3 files changed, 10 insertions, 11 deletions
@@ -405,7 +405,8 @@ * Help system *** Help buffers #+begin_src emacs-lisp - (setq help-window-select nil) + (setq help-window-select t + help-link-key-to-documentation t) #+end_src *** eldoc #+begin_src emacs-lisp @@ -448,8 +449,7 @@ (setq jao-exwm-enabled-p t) (display-time-mode -1) (exwm-enable) - (jao-trisect t) - (jao-minibuffer-adjust-mode-line-faces)) + (jao-trisect t)) #+end_src *** sway When starting emacs inside a sway session, we use ~-f @@ -2269,7 +2269,7 @@ (message "Symbol not bound: %S" symbol))))) (t (message "No symbol at point")))) - (use-package emacs-lisp + (use-package elisp-mode :bind (:map emacs-lisp-mode-map (("C-c C-m" . elisp-macroexpand) ("C-c C-M" . elisp-macroexpand-all) diff --git a/lib/eos/jao-minibuffer.el b/lib/eos/jao-minibuffer.el index 9ce5762..3474848 100644 --- a/lib/eos/jao-minibuffer.el +++ b/lib/eos/jao-minibuffer.el @@ -108,11 +108,10 @@ (defvar circe-chat-target nil) (defvar exwm-class-name nil) -(setq-default mode-line-position - '(exwm-class-name - ("") - ("%n (%2c %l " - (:eval (format "%d)" (line-number-at-pos (point-max))))))) +(defvar jao-minibuffer--mode-line-position + '(exwm-class-name ("") + ("%n %2c %l " + (:eval (format "%d" (line-number-at-pos (point-max))))))) (defvar jao-minibuffer--mode-line-format `("%[" @@ -165,6 +164,7 @@ (defun jao-minibuffer-add-mode-line (order) (setq jao-minibuffer--original-modeline mode-line-format) (setq-default mode-line-format '(" ")) + (setq-default mode-line-position jao-minibuffer--mode-line-position) (dolist (b (buffer-list)) (with-current-buffer b (setq-local mode-line-format '(" ")))) (jao-minibuffer-adjust-mode-line-faces) @@ -272,7 +272,7 @@ #+end_src * Keybindings #+begin_src emacs-lisp - (define-key mode-specific-map [?a] 'org-agenda) + ;; (define-key mode-specific-map [?a] 'org-agenda) (define-key org-mode-map "\C-cv" 'jao-org-copy-link-at-point) (define-key org-mode-map [(control ?c) tab] 'org-force-cycle-archived) (define-key org-mode-map [(f7)] 'org-archive-to-archive-sibling) @@ -283,5 +283,4 @@ (global-set-key "\C-c\C-l" 'org-store-link) ;; (global-set-key "\C-cL" 'org-insert-link-global) (global-set-key "\C-cO" 'org-open-at-point-global) - ;; (global-set-key "\C-ca" 'org-agenda) #+end_src |