summaryrefslogtreecommitdiff
path: root/view-conf.el
diff options
context:
space:
mode:
authorJSDurand <mmemmew@gmail.com>2021-01-17 21:38:38 +0800
committerJSDurand <mmemmew@gmail.com>2021-01-17 21:38:38 +0800
commit82d3a1fcc5c36a48b2a404536f89e1d80c48d999 (patch)
treeb8df471f662006b921a0d544bd8bc171f0c9c0d5 /view-conf.el
parent5f61771063f35f5cd6492708d89eb220e4067f6e (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.el7
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)