attempt to add cycle behavior

Author: Ryan Pilgrim

python-pytest.el

@@ -116,11 +116,15 @@ When non-nil only ‘test_foo()’ will match, and nothing else."
 (defvar-local python-pytest--current-command nil
   "Current command; used in python-pytest-mode buffers.")
 
+(defvar-local python-pytest--verbosity-level 0
+  "Verbosity level.")
+
 (fmakunbound 'python-pytest-popup)
 (makunbound 'python-pytest-popup)
 
 ;;;###autoload (autoload 'python-pytest-popup "python-pytest" nil t)
-(magit-define-popup python-pytest-popup
+(magit
+ -define-popup python-pytest-popup
   "Show popup for running pytest."
   'python-pytest
   :switches
@@ -132,8 +136,7 @@ When non-nil only ‘test_foo()’ will match, and nothing else."
     (?q "quiet" "--quiet")
     (?s "do not capture output" "--capture=no")
     (?t "do not cut tracebacks" "--full-trace")
-    (?v "verbose" "--verbose")
-    (?w "very verbose" "-vv")
+    (?v "verbose" "--verbose" python-pytest--cycle-verbosity)
     (?x "exit after first failure" "--exitfirst"))
   :options
   '((?k "only names matching expression" "-k")
@@ -562,6 +565,18 @@ Example: ‘MyABCThingy.__repr__’ becomes ‘test_my_abc_thingy_repr’."
    (t nil)))
 
 
+(defun python-pytest--cycle-verbosity ()
+  "Cycle the verbosity level from 0 (no -v flag) to 2 (-vv flag)."
+  (cond
+   ((memq python-pytest--verbosity '(0 1))
+    (setq python-pytest--verbosity (+ 1 python-pytest--verbosity)))
+   (t (setq python-pytest--verbosity 0)))
+  (cond
+   ((= python-pytest--verbosity 0) "")
+   ((= python-pytest--verbosity 1) "-v")
+   ((= python-pytest--verbosity 2) "-vv")))
+
+
 ;; third party integration
 
 (with-eval-after-load 'direnv