mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix timestamp for debug logs

Browse source 
* exwm-core.el (exwm-debug-log-time-function): Moved to `exwm-debug'
group and set `xcb-debug:log-time-function' automatically.
(exwm-debug-log-uptime, exwm-debug-log-time): Reuse the definition
from XELB.
This commit is contained in:
Chris Feng 2019-09-15 00:00:00 +00:00
parent 559e56f473
commit 16d643dd3b
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
exwm-core.el
View file

@ -40,19 +40,22 @@ Here are some predefined candidates:
`exwm-debug-log-uptime': Display the uptime of this Emacs instance. `exwm-debug-log-uptime': Display the uptime of this Emacs instance.
`exwm-debug-log-time': Display time of day. `exwm-debug-log-time': Display time of day.
`nil': Disable timestamp." `nil': Disable timestamp."
:group 'exwm :group 'exwm-debug
:type `(choice (const :tag "Emacs uptime" ,#'exwm-debug-log-uptime) :type `(choice (const :tag "Emacs uptime" ,#'exwm-debug-log-uptime)
(const :tag "Time of day" ,#'exwm-debug-log-time) (const :tag "Time of day" ,#'exwm-debug-log-time)
(const :tag "Off" nil) (const :tag "Off" nil)
(function :tag "Other"))) (function :tag "Other"))
:set (lambda (symbol value)
(set-default symbol value)
;; Also change the format for XELB to make logs consistent
;; (as they share the same buffer).
(setq xcb-debug:log-time-function value)))
(defun exwm-debug-log-uptime () (defalias 'exwm-debug-log-uptime 'xcb-debug:log-uptime
"Add uptime to `exwm-debug' logs." "Add uptime to `exwm-debug' logs.")
(emacs-uptime "[%.2h:%.2m:%.2s] "))
(defun exwm-debug-log-time () (defalias 'exwm-debug-log-time 'xcb-debug:log-time
"Add time of day to `exwm-debug' logs." "Add time of day to `exwm-debug' logs.")
(format-time-string "[%T] "))
(defvar exwm--connection nil "X connection.") (defvar exwm--connection nil "X connection.")