(setq vertalen--source nil)
(setq vertalen-history nil)
+ (with-eval-after-load 'savehist
+ (add-to-list 'savehist-additional-variables
+ 'vertalen-history))
+
(defun vertalen (word)
"Translate WORD."
(interactive (list (read-string "Translate: " nil 'vertalen-history (thing-at-point 'word))))
(defun vertalen-at-point ()
"Translate word at point."
- (interactive)
+ (interactive nil vertalen-mode)
(vertalen (thing-at-point 'word t)))
(defvar-keymap vertalen-mode-map
(defvar esy/org-capture-to-project-heading-history-list nil
"History list for 'esy/org-capture-to-project-heading'.")
- (require 'savehist)
- (add-to-list 'savehist-additional-variables
- 'esy/org-capture-to-project-heading-history-list)
+ (with-eval-after-load 'savehist
+ (add-to-list 'savehist-additional-variables
+ 'esy/org-capture-to-project-heading-history-list))
(defun esy/org-capture-to-project-heading ()
"Prompt for a projects and capture a related task."