diff options
Diffstat (limited to 'view-conf.el')
-rw-r--r-- | view-conf.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/view-conf.el b/view-conf.el index ae53f1a..d17bd6c 100644 --- a/view-conf.el +++ b/view-conf.el @@ -1,5 +1,6 @@ ;;; view-conf.el --- My configurations to view things -*- lexical-binding: t; -*- +;;; View tmeperatures or timers ;;;###autoload (defun durand-view-timers-or-temps (&optional arg) "View the list of timers or view the CPU temperature info. @@ -21,7 +22,7 @@ If ARG is '(16), view the battery information." connected battery-temp) (with-temp-buffer -;;; NOTE: First fans information +;; NOTE: First fans information (insert (funcall (plist-get (car (auth-source-search :host "local-computer")) :secret))) @@ -37,7 +38,7 @@ 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 +;; NOTE: Now battery charge information (erase-buffer) (call-process "system_profiler" nil t nil "SPPowerDataType") @@ -56,7 +57,7 @@ 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 +;; NOTE: Now battery temperature (erase-buffer) (call-process "ioreg" nil t nil "-n" "AppleSmartBattery" "-r") (goto-char (point-min)) @@ -106,6 +107,7 @@ If ARG is '(16), view the battery information." (define-key map (vector ?c) #'calendar) (define-key map (vector ?r) #'choose-recent-file) (define-key map (vector ?n) #'novel) + (define-key map (vector ?O) #'durand-maybe-enable-outline) (define-key map (vector ?w) #'durand-eww-map) map) "The keymap that is related to my custom functions about viewing.") |