diff options
author | JSDurand <mmemmew@gmail.com> | 2021-01-17 21:38:38 +0800 |
---|---|---|
committer | JSDurand <mmemmew@gmail.com> | 2021-01-17 21:38:38 +0800 |
commit | 82d3a1fcc5c36a48b2a404536f89e1d80c48d999 (patch) | |
tree | b8df471f662006b921a0d544bd8bc171f0c9c0d5 /view-conf.el | |
parent | 5f61771063f35f5cd6492708d89eb220e4067f6e (diff) |
Tweak more things.
* basic.el
(recenter-positions): In effect nothing changed.
(prot-pulse-line): Puling the line.
(pulse): Useful built-in library.
(durand-pulse-pulse-line): My own tweak.
(durand-pulse-recenter-top): Recenter and pulse.
* init.el (prepare-in-hook-once): Make it interactive.
(global-map): Add Org-mode bindings.
("durand-chercher-pdf"): Search PDFs quickly.
* modeline.el (modeline-format-left): Remove the vertical bar.
* org-conf.el (org-adapt-indentation)
(org-modules)
(org-hide-emphasis-markers)
(org-hide-macro-markers)
(org-hide-leading-stars): Steal some configurations from Protesilaos.
(global-map)
(org-mode-map): Add Org-mode bindings.
(durand-pulse-pulse-line):
(org-follow-link-hook): Pulse and recenter when following the link.
Diffstat (limited to 'view-conf.el')
-rw-r--r-- | view-conf.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/view-conf.el b/view-conf.el index ee6b8dd..945276f 100644 --- a/view-conf.el +++ b/view-conf.el @@ -37,7 +37,6 @@ If ARG is '(16), view the battery information." cpu-die-temperature (progn (re-search-forward "temperature: \\([[:digit:]]+\\.[[:digit:]]+\\)" nil t) (string-to-number (match-string 1)))) - ;;; NOTE: Now battery charge information (erase-buffer) (call-process "system_profiler" nil t nil @@ -57,7 +56,6 @@ If ARG is '(16), view the battery information." (setf condition (match-string-no-properties 1)) (re-search-forward "Connected: \\(.+\\)$" nil t) (setf connected (match-string-no-properties 1)) - ;;; NOTE: Now battery temperature (erase-buffer) (call-process "ioreg" nil t nil "-n" "AppleSmartBattery" "-r") @@ -93,4 +91,7 @@ If ARG is '(16), view the battery information." (require 'view) -(define-key view-mode-map (vector 108) 'recenter-top-bottom) +(define-key view-mode-map (vector 108) #'recenter-top-bottom) + +(define-key view-mode-map (vector ?j) #'View-scroll-line-forward) +(define-key view-mode-map (vector ?k) #'View-scroll-line-backward) |