53fe7a1f04
projectile-project-root no longer returns `default-directory` if not in
a project (it returns nil). As such, doom-project-* functions (and their
uses) have been refactored.
+ doom-project-p & doom-project-root are aliases for
projectile-project-p & projectile-project-root.
+ doom-project-{p,root,name,expand} now has a DIR argument (for
consistency, since projectile-project-name and
projectile-project-expand do not).
+ The nocache parameter is no longer necessary, as projectile's caching
behavior is now more sane.
+ Removed some projectile advice/hacks that are no longer necessary.
+ Updated unit tests
67 lines
2.4 KiB
EmacsLisp
67 lines
2.4 KiB
EmacsLisp
;;; lang/python/autoload/python.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +python-version-cache (make-hash-table :test 'equal)
|
|
"TODO")
|
|
|
|
;;;###autoload
|
|
(defun +python/repl ()
|
|
"Open the Python REPL."
|
|
(interactive)
|
|
(pop-to-buffer
|
|
(process-buffer
|
|
(let ((interp python-shell-interpreter)
|
|
(interp-args python-shell-interpreter-args))
|
|
(if-let* ((bin (executable-find "pipenv"))
|
|
(default-directory (pipenv-project-p))
|
|
(python-shell-interpreter "pipenv")
|
|
(python-shell-interpreter-args (format "run %s %s" interp interp-args)))
|
|
(run-python nil t t)
|
|
(run-python nil t t))))))
|
|
|
|
(defun +python--extract-version (prefix str)
|
|
(when str
|
|
(format "%s%s" prefix (cadr (split-string str " ")))))
|
|
|
|
;;;###autoload
|
|
(defun +python-version ()
|
|
"Return the currently installed version of python on your system or active in
|
|
the current pipenv.
|
|
|
|
This is not necessarily aware of env management tools like virtualenv, pyenv or
|
|
pipenv, unless those tools have modified the PATH that Emacs picked up when you
|
|
started it."
|
|
(condition-case _
|
|
(if-let* ((proot (and (fboundp 'pipenv-project-p)
|
|
(pipenv-project-p))))
|
|
(let* ((default-directory proot)
|
|
(v (car (process-lines "pipenv" "run" "python" "--version"))))
|
|
(puthash proot
|
|
(+python--extract-version "Pipenv " v)
|
|
+python-version-cache))
|
|
(puthash (or (doom-project-root) default-directory)
|
|
(+python--extract-version "Python " (car (process-lines "python" "--version")))
|
|
+python-version-cache))
|
|
(error "Python")))
|
|
|
|
|
|
;;
|
|
;; Hooks
|
|
|
|
;;;###autoload
|
|
(defun +python|update-version (&rest _)
|
|
"Update `+python--version' by consulting `+python-version' function."
|
|
(setq +python--version
|
|
(or (gethash (or (and (fboundp 'pipenv-project-p)
|
|
(pipenv-project-p))
|
|
(doom-project-root)
|
|
default-directory)
|
|
+python-version-cache)
|
|
(+python-version))))
|
|
|
|
;;;###autoload
|
|
(defun +python|update-version-in-all-buffers (&rest _)
|
|
"Update `+python-version' in all buffers in `python-mode'."
|
|
(dolist (buffer (doom-buffers-in-mode 'python-mode))
|
|
(setq +python-version-cache (clrhash +python-version-cache))
|
|
(with-current-buffer buffer
|
|
(+python|update-version))))
|