sqrtminusone/pomm.el
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/pomm.el.git synced 2025-12-10 14:43:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

refactor: extract transient class

Browse source
This commit is contained in:
Pavel Korytov 2022-08-13 15:53:05 +05:00
parent adfb483168
commit 2f95a2a1c5
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
pomm.el
View file

@ -627,21 +627,22 @@ minor mode."
(read-number "Number of work periods before a long break:"
pomm-number-of-periods)))
(defclass pomm--set-context-on-iteration-end-infix (transient-switch)
((transient :initform t))
"A transient class to toggle `pomm-reset-context-on-iteration-end'.")
(defclass pomm--transient-lisp-variable-switch (transient-switch)
((transient :initform t)
(variable :initarg :variable)))
(cl-defmethod transient-init-value ((obj pomm--set-context-on-iteration-end-infix))
(cl-defmethod transient-init-value ((obj pomm--transient-lisp-variable-switch))
(oset obj value
pomm-reset-context-on-iteration-end))
(symbol-value (oref obj variable))))
(cl-defmethod transient-infix-read ((_ pomm--set-context-on-iteration-end-infix))
"Toggle the switch on or off."
(setq pomm-reset-context-on-iteration-end
(not pomm-reset-context-on-iteration-end)))
(cl-defmethod transient-infix-read ((obj pomm--transient-lisp-variable-switch))
(oset obj value
(set (oref obj variable)
(not (symbol-value (oref obj variable))))))
(transient-define-infix pomm--set-reset-context-on-iteration-end ()
:class 'pomm--set-context-on-iteration-end-infix
:class 'pomm--transient-lisp-variable-switch
:variable 'pomm-reset-context-on-iteration-end
:argument "--context-reset"
:key "-r"
:description "Reset the context on the interation end")