From 5a892399ac9aed3d9c200f486c8a1dfb2e62424e Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Fri, 29 Jul 2022 21:36:25 +0300 Subject: [PATCH] refactor: lint --- org-journal-tags.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/org-journal-tags.el b/org-journal-tags.el index c651e7d..046a010 100644 --- a/org-journal-tags.el +++ b/org-journal-tags.el @@ -1348,7 +1348,8 @@ returned." (defun org-journal-tags--query-filter-location (refs location) "Filter REFS by LOCATION. -LOCATION can be `section', `inline', or `both'. REFS is a list of `org-journal-tag-reference'." +LOCATION can be `section', `inline', or `both'. REFS is a list of +`org-journal-tag-reference'." (pcase location ((or 'both 'nil) refs) @@ -2259,8 +2260,8 @@ OBJ is an instance of that class." (argument-regexp :initarg :argument-regexp)) "Class used for sets of mutually exclusive command-line switches. -This is inspired by `transient-switches', but with a few -modifications: +This is inspired by the `transient-switches' class. The modifications +are as follows: - Inherit from `org-journal-tags--transient-variable'. - Do not allow empty values.") @@ -2272,6 +2273,9 @@ The last value is \"don't use any of these switches\"." (nth (% (1+ idx) (length choices)) choices)))) (cl-defmethod transient-format-value ((obj org-journal-tags--transient-switches)) + "Format value of `org-journal-tags--transient-switches'. + +OBJ is an instance of that class." (with-slots (value argument-format choices) obj (format (propertize argument-format 'face (if value