emacs calendar yank month name

mail@pastecode.io avatar
unknown
lisp
2 years ago
226 B
3
Indexable
Never
(defun gus/cal-curr-month()
  (interactive)
  (let* ((cursor-date (calendar-cursor-to-date t))
         (month (calendar-extract-month cursor-date))
         (name (calendar-month-name month)))
    (kill-new name)))