Switch to use transient

`transient` is a replacement to `magit-popup` and even `magit` has already
switched to use `transient`.

The switch is pretty idiomatic, however there are a few differences.

The default layout is slightly different but I didn't try to replace it as the
new one seems to match what `magit` is presenting these days.

The concept of `:default-action` seems to be gone, so it is not replaced.

The `magit-with-pre-popup-buffer` doesn't seem to have an obvious replacement,
however the documentation for `transient--original-buffer` suggest that the
`transient` is not changing the current buffer.

Author: pkryger

README.rst

@@ -18,11 +18,11 @@ __ https://www.gnu.org/software/emacs/
 __ https://pytest.org/
 
 most functionality can be used via
-a dispatcher popup menu built using `magit-popup`__,
+a dispatcher popup menu built using `transient`__,
 which gives a look and feel
 similar to the fantastic `magit`__ package.
 
-__ https://magit.vc/manual/magit-popup.html
+__ https://magit.vc/manual/transient
 __ https://magit.vc/
 
 
@@ -81,22 +81,19 @@ screenshot
    -s do not capture output (--capture=no)
    -t do not cut tracebacks (--full-trace)
    -v verbose (--verbose)
+   -w very verbose (--verbose --verbose)
    -x exit after first failure (--exitfirst)
 
   Options
-   =k only names matching expression (-k)
-   =m only marks matching expression (-m)
+   =k only names matching expression (-k=)
+   =m only marks matching expression (-m=)
    =t traceback style (--tb=)
-   =x exit after N failures or errors (--maxfail="10")
+   =x exit after N failures or errors (--maxfail=)
 
-  Run tests
-   t Test all                r Repeat last test run    x Test last-failed
-
-  Run tests for specific files
-   f Test file (dwim)       F Test this file         m Test multiple files
-
-  Run tests for current function/class
-   d Test def/class (dwim)    D Test this def/class
+  Run tests                 Run tests for specific files              Run tests for current function/class
+   t Test all                f Test file                               d Test def/class (dwim)
+   r Repeat last test run    F Test this file                          D Test this def/classx
+   x Test last-failed        m Test multiple files
 
 
 installation
@@ -316,9 +313,9 @@ extending the popup
 
 when using pytest plugins that provide extra switches,
 it may be useful to integrate those into the popup.
-see the `magit-popup`__ manual for more information.
+see the `transient`__ manual for more information.
 
-__ https://magit.vc/manual/magit-popup.html
+__ https://magit.vc/manual/transient
 
 as an example, this will add a ``-z`` switch that,
 when enabled, will invoke ``pytest --zzz``:
@@ -327,8 +324,10 @@ when enabled, will invoke ``pytest --zzz``:
 
   (use-package python-pytest
    :config
-   (magit-define-popup-switch 'python-pytest-popup
-    ?z "Custom flag" "--zzz"))
+   (transient-append-suffix
+     'foo-popup2
+     "-x"
+     '("-z" "Custom flag" "--zzz")))
 
 
 contributing

python-pytest.el

@@ -2,7 +2,7 @@
 
 ;; Author: wouter bolsterlee <[email protected]>
 ;; Version: 1.0.0
-;; Package-Requires: ((emacs "24.4") (dash "2.12.0") (dash-functional "2.12.0") (magit-popup "2.12.0") (projectile "0.14.0") (s "1.12.0"))
+;; Package-Requires: ((emacs "24.4") (dash "2.12.0") (dash-functional "2.12.0") (transient "20200719") (projectile "0.14.0") (s "1.12.0"))
 ;; Keywords: pytest, test, python, languages, processes, tools
 ;; URL: https://github.com/wbolster/emacs-python-pytest
 ;;
@@ -25,7 +25,7 @@
 
 (require 'dash)
 (require 'dash-functional)
-(require 'magit-popup)
+(require 'transient)
 (require 'projectile)
 (require 's)
 
@@ -119,41 +119,50 @@ When non-nil only ‘test_foo()’ will match, and nothing else."
 (fmakunbound 'python-pytest-popup)
 (makunbound 'python-pytest-popup)
 
+(transient-define-argument python-pytest-popup:--tb ()
+  :description "traceback style"
+  :class 'transient-option
+  :key "=t"
+  :argument "--tb="
+  :choices '("long" "short" "line" "native" "no"))
+
 ;;;###autoload (autoload 'python-pytest-popup "python-pytest" nil t)
-(magit-define-popup python-pytest-popup
+(define-transient-command python-pytest-popup ()
   "Show popup for running pytest."
-  'python-pytest
-  :switches
-  '((?c "color" "--color" t)
-    (?d "run doctests" "--doctest-modules")
-    (?f "failed first" "--failed-first")
-    (?l "show locals" "--showlocals")
-    (?p "debug on error" "--pdb")
-    (?q "quiet" "--quiet")
-    (?s "do not capture output" "--capture=no")
-    (?t "do not cut tracebacks" "--full-trace")
-    (?v "verbose" "--verbose")
-    (?w "very verbose" "-vv")
-    (?x "exit after first failure" "--exitfirst"))
-  :options
-  '((?k "only names matching expression" "-k")
-    (?m "only marks matching expression" "-m")
-    (?t "traceback style" "--tb=" python-pytest--choose-traceback-style)
-    (?x "exit after N failures or errors" "--maxfail="))
-  :actions
-  '("Run tests"
-    (?t "Test all" python-pytest)
-    (?r "Repeat last test run" python-pytest-repeat)
-    (?x "Test last-failed" python-pytest-last-failed)
-    "Run tests for specific files"
-    (?f "Test file (dwim)" python-pytest-file-dwim)
-    (?F "Test this file" python-pytest-file)
-    (?m "Test multiple files" python-pytest-files)
-    "Run tests for current function/class"
-    (?d "Test def/class (dwim)" python-pytest-function-dwim)
-    (?D "Test this def/class" python-pytest-function))
-  :max-action-columns 3
-  :default-action 'python-pytest-repeat)
+  :man-page "pytest"
+  :incompatible '(("--verbose" "--verbose --verbose"))
+  :value '("--color")
+  ["Switches"
+   ("-c" "color" "--color")
+   ("-d" "run doctests" "--doctest-modules")
+   ("-f" "failed first" "--failed-first")
+   ("-l" "show locals" "--showlocals")
+   ("-p" "debug on error" "--pdb")
+   ("-q" "quiet" "--quiet")
+   ("-s" "do not capture output" "--capture=no")
+   ("-t" "do not cut tracebacks" "--full-trace")
+   ("-v" "verbose" ("-v" "--verbose"))
+   ("-w" "very verbose" ("-vv" "--verbose --verbose"))
+   ("-x" "exit after first failure" "--exitfirst")]
+  ["Options"
+   ("=k" "only names matching expression" "-k=")
+   ("=m" "only marks matching expression" "-m=")
+   (python-pytest-popup:--tb)
+   ("=x" "exit after N failures or errors" "--maxfail=")]
+  [["Run tests"
+    ("t" "Test all" python-pytest)
+    ("r" "Repeat last test run" python-pytest-repeat)
+    ("x" "Test last-failed" python-pytest-last-failed)]
+   ["Run tests for specific files"
+    ("f" "Test file (dwifdsafjda;sfjsdla;kfjm)" python-pytest-file-dwim)
+    ("F" "Test this file" python-pytest-file)
+    ("m" "Test multiple files" python-pytest-files)]
+   ["Run tests for current function/class"
+    ("d" "Test def/class (dwim)" python-pytest-function-dwim)
+    ("D" "Test this def/class" python-pytest-function)]])
+
+(defun python-pytest-arguments ()
+  (transient-args 'python-pytest-popup))
 
 ;;;###autoload
 (defun python-pytest (&optional args)
@@ -388,13 +397,12 @@ With a prefix ARG, allow editing."
 
 (defun python-pytest--get-buffer ()
   "Get a create a suitable compilation buffer."
-  (magit-with-pre-popup-buffer
-    (if (eq major-mode 'python-pytest-mode)
-        (current-buffer)  ;; re-use buffer
-      (let ((name python-pytest-buffer-name))
-        (when python-pytest-project-name-in-buffer-name
-          (setq name (format "%s<%s>" name (python-pytest--project-name))))
-        (get-buffer-create name)))))
+  (if (eq major-mode 'python-pytest-mode)
+      (current-buffer)  ;; re-use buffer
+    (let ((name python-pytest-buffer-name))
+      (when python-pytest-project-name-in-buffer-name
+        (setq name (format "%s<%s>" name (python-pytest--project-name))))
+      (get-buffer-create name))))
 
 (defun python-pytest--process-sentinel (proc _state)
   "Process sentinel helper to run hooks after PROC finishes."
@@ -429,11 +437,6 @@ When present ON-REPLACEMENT is substituted, else OFF-REPLACEMENT is appended."
           (format "%s %s" option it)))
    args))
 
-(defun python-pytest--choose-traceback-style (prompt _value)
-  "Helper to choose a pytest traceback style using PROMPT."
-  (completing-read
-   prompt '("long" "short" "line" "native" "no") nil t))
-
 
 ;; python helpers