emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tools/wakatime: +wakatime-api-file => custom.el

Browse source 
Use customize system to store user settings instead of reinventing the
wheel.
This commit is contained in:
Henrik Lissner 2018-06-26 18:01:47 +02:00
parent 71922937ff
commit 705de920d7
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
modules/tools/wakatime/autoload.el
View file

@ -3,9 +3,6 @@
(defvar +wakatime-home (concat doom-cache-dir "wakatime/") (defvar +wakatime-home (concat doom-cache-dir "wakatime/")
"Path to the directory where wakatime files are stored.") "Path to the directory where wakatime files are stored.")
(defvar +wakatime-api-file (concat doom-cache-dir "wakatime.el")
"Where the wakatime api key is cached.")
(defvar +wakatime-hide-filenames nil (defvar +wakatime-hide-filenames nil
"If non-nil, obfuscate files and only show what projects you're working on.") "If non-nil, obfuscate files and only show what projects you're working on.")
@ -24,11 +21,10 @@ changes."
(let ((api-key (read-string "Enter your wakatime API key: "))) (let ((api-key (read-string "Enter your wakatime API key: ")))
(unless api-key (unless api-key
(user-error "No api key was received.")) (user-error "No api key was received."))
(setq wakatime-api-key api-key)
(with-temp-file +wakatime-api-file
(prin1 `(setq wakatime-api-key ,wakatime-api-key)
(current-buffer)))
(require 'wakatime-mode) (require 'wakatime-mode)
(setq wakatime-api-key api-key)
(customize-set-variable 'wakatime-api-key api-key)
(customize-save-customized)
(unless (or (and wakatime-cli-path (file-executable-p wakatime-cli-path)) (unless (or (and wakatime-cli-path (file-executable-p wakatime-cli-path))
(not (equal (wakatime-find-binary "wakatime") "wakatime"))) (not (equal (wakatime-find-binary "wakatime") "wakatime")))
(user-error "Couldn't find wakatime executable (%s)" (user-error "Couldn't find wakatime executable (%s)"
@ -41,8 +37,6 @@ changes."
"Initialize wakatime (if `wakatime-api-key' is set, otherwise no-op with a "Initialize wakatime (if `wakatime-api-key' is set, otherwise no-op with a
warning)." warning)."
(interactive) (interactive)
(unless (bound-and-true-p wakatime-api-key)
(ignore-errors (load +wakatime-api-file t t)))
(if (not (bound-and-true-p wakatime-api-key)) (if (not (bound-and-true-p wakatime-api-key))
(message "wakatime-mode isn't set up. Run `M-x +wakatime/setup' to do so.") (message "wakatime-mode isn't set up. Run `M-x +wakatime/setup' to do so.")
(when +wakatime-home (when +wakatime-home