feat(prog): initial support for pyvenv (WIP)

See: https://stackoverflow.com/a/70371884

modules/me-prog.el

@@ -128,6 +128,19 @@
     "cqC" #'quickrun-compile-only-select
     "cqd" #'quickrun-select-default))
 
+(use-package pyvenv
+  :straight t
+  :config
+  (defun +pyenv--use-pyvenv-interpreter-h ()
+    (when pyvenv-virtual-env
+      (put 'python-shell-interpreter 'previous-value python-shell-interpreter)
+      (setq python-shell-interpreter (concat pyvenv-virtual-env "python3"))))
+  (defun +pyenv--restore-interpreter-h ()
+    (setq python-shell-interpreter (or (get 'python-shell-interpreter 'previous-value) (+standard-value 'python-shell-interpreter))))
+  :custom
+  (pyvenv-post-activate-hooks (list #'+pyenv--use-pyvenv-interpreter-h))
+  (pyvenv-post-deactivate-hooks (list #'+pyenv--restore-interpreter-h)))
+
 (use-package gitlab-ci-mode
   :straight t)