summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-25 12:27:42 -0500
committerSacha Chua <sacha@sachachua.com>2022-11-25 12:27:42 -0500
commit5fd196440b649b9089ff20b58939570160a0c863 (patch)
tree13d90bc7b45011759d377ebfdabb682214b1abe4
parent934b8c909ab00b2a55501f8bdd2a6bc1ac017d60 (diff)
downloademacsconf-el-5fd196440b649b9089ff20b58939570160a0c863.tar.xz
emacsconf-el-5fd196440b649b9089ff20b58939570160a0c863.zip
add display clock and countdown
Diffstat (limited to '')
-rw-r--r--emacsconf-stream.el71
1 files changed, 71 insertions, 0 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el
index 897f205..b359bb3 100644
--- a/emacsconf-stream.el
+++ b/emacsconf-stream.el
@@ -628,5 +628,76 @@ ffplay URL
</body>
</html>
"))))
+
+;;; Clock and display
+
+(defvar emacsconf-stream-track "General")
+(defvar emacsconf-stream-clock-buffer "*emacsconf*")
+(defvar emacsconf-stream-clock-timer nil)
+(defun emacsconf-stream-display-clock-and-countdown (&optional time message)
+ "TIME is HH:MM."
+ (interactive "MTime: \nMMessage: ")
+ (switch-to-buffer (get-buffer-create emacsconf-stream-clock-buffer))
+ (erase-buffer)
+ (when (string= time "") (setq time nil))
+ (when (string= message "") (setq message nil))
+ (let* ((hhmm (and time (diary-entry-time time)))
+ (target (and time
+ (time-to-seconds (date-to-time
+ (concat (format-time-string "%Y-%m-%d" nil emacsconf-timezone)
+ "T"
+ (format "%02d:%02d:00"
+ (/ hhmm 100)
+ (% hhmm 100))
+ emacsconf-timezone-offset))))))
+ (face-remap-add-relative 'default :height 300)
+ (insert
+ (propertize
+ "CURRENT"
+ 'face '(:weight bold :height 600)
+ 'emacsconf-time (lambda () (format-time-string "%H:%M:%S %Z" nil emacsconf-timezone)))
+ " (" emacsconf-timezone ")\n"
+ (propertize (concat "Track: " emacsconf-stream-track "\n")
+ 'face '(:height 400))
+ "IRC: #" (plist-get (emacsconf-get-track emacsconf-stream-track) :channel) "\n"
+ "\n"
+ (if time (propertize
+ "TO-GO"
+ 'emacsconf-time
+ (lambda ()
+ (let ((seconds-to-go (- target
+ (time-to-seconds (current-time)))))
+ (if (> (or seconds-to-go 0) 0)
+ (concat
+ (format-seconds "%.2h:%z%.2m:%.2s"
+ seconds-to-go)
+ " to go" (if message ": " ""))
+ ""))))
+ "")
+ (or message ""))
+ (when (timerp emacsconf-stream-clock-timer) (cancel-timer emacsconf-stream-clock-timer))
+ (emacsconf-stream-update-time)
+ (setq emacsconf-stream-clock-timer (run-at-time t 1 #'emacsconf-stream-update-time))))
+
+(defun emacsconf-stream-update-time ()
+ (if (get-buffer emacsconf-stream-clock-buffer)
+ (when (get-buffer-window emacsconf-stream-clock-buffer)
+ (with-current-buffer emacsconf-stream-clock-buffer
+ (save-excursion
+ (goto-char (point-min))
+ (let (match)
+ (while (setq match (text-property-search-forward 'emacsconf-time))
+ (goto-char (prop-match-beginning match))
+ (add-text-properties
+ (prop-match-beginning match)
+ (prop-match-end match)
+ (list 'display
+ (funcall (get-text-property
+ (prop-match-beginning match)
+ 'emacsconf-time))))
+ (goto-char (prop-match-end match)))))))
+ (when (timerp emacsconf-stream-clock-timer)
+ (cancel-timer emacsconf-stream-clock-timer))))
+
(provide 'emacsconf-stream)
;;; emacsconf-stream.el ends here