18 lines
563 B
EmacsLisp
18 lines
563 B
EmacsLisp
;;; tools/wakatime/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(add-hook 'doom-after-switch-buffer-hook #'+wakatime|autostart)
|
|
|
|
;;;###autoload
|
|
(defalias '+wakatime/start '+wakatime|autostart)
|
|
|
|
;;;###autoload
|
|
(defun +wakatime|autostart ()
|
|
"Initialize wakatime (if `wakatime-api-key' is set, otherwise no-op with a
|
|
warning)."
|
|
(interactive)
|
|
(if (boundp 'wakatime-api-key)
|
|
(global-wakatime-mode +1)
|
|
(message "No `wakatime-api-key' set! wakaktime-mode will stay disabled."))
|
|
(remove-hook 'doom-after-switch-buffer-hook #'+wakatime-init))
|