sqrtminusone/org-journal-tags
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/org-journal-tags.git synced 2025-12-10 10:53:04 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

refactor: lint

Browse source
This commit is contained in:
Pavel Korytov 2022-08-01 11:57:09 +03:00
parent ff10a9f60e
commit d1785fe2d7
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
org-journal-tags.el
View file

@ -412,7 +412,7 @@ little sense. Available parameters are as follows:
a prefix argument.
- `:name': Name to display in the `org-journal-tags-status'."
(declare (indent defun))
(cl-loop for (key value) on props by #'cddr
(cl-loop for (key) on props by #'cddr
unless (memq key '(:completion-function :follow-function :name))
do (error "Wrong parameter %s" key))
`(setf (alist-get ',name org-journal-tags-kinds)
@ -2000,7 +2000,8 @@ tag."
(seq-max
(mapcar
#'length
(cl-loop for (kind . names) in tag-names-by-kind
(cl-loop for item in tag-names-by-kind
for names = (cdr item)
append names))))
(need-group-kinds (> (length tag-names-by-kind) 1)))
(dolist (kind-datum tag-names-by-kind)