emacs calendar yank month name

(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)))