New command 'world-clock-copy-time-as-kill'

* lisp/time.el (world-clock-copy-time-as-kill): New command.
(world-clock-mode-map): Bind above new command to "w".
This commit is contained in:
Stefan Kangas 2022-10-05 16:33:18 +02:00
parent 9449e0740c
commit 10ec1a4d7e
2 changed files with 13 additions and 1 deletions

View file

@ -2699,6 +2699,10 @@ remote host are shown. Alternatively, the user option
*** 'outlineify-sticky' command is renamed to 'allout-outlinify-sticky'.
The old name is still available as an obsolete function alias.
---
*** New command 'world-clock-copy-time-as-kill' for 'M-x world-clock'.
It copies the current line into the kill ring.
---
*** 'edit-abbrevs' now uses font-locking.
The new face 'abbrev-table-name' is used to display the abbrev table

View file

@ -528,7 +528,15 @@ If the value is t instead of an alist, use the value of
(defvar-keymap world-clock-mode-map
"n" #'next-line
"p" #'previous-line)
"p" #'previous-line
"w" #'world-clock-copy-time-as-kill)
(defun world-clock-copy-time-as-kill ()
"Copy current line into the kill ring."
(interactive nil world-clock-mode)
(when-let ((str (buffer-substring-no-properties (pos-bol) (pos-eol))))
(kill-new str)
(message str)))
(define-derived-mode world-clock-mode special-mode "World clock"
"Major mode for buffer that displays times in various time zones.