diff --git a/custom.el b/custom.el index cfc9ec4..8bad60c 100644 --- a/custom.el +++ b/custom.el @@ -32,6 +32,7 @@ (quote (ace-window winum spaceline use-package kv lispy ibuffer-vc ag string-inflection tiny powershell diffview ivy-hydra php-mode swiper mode-line-bell htmlize cython-mode blacken dired-narrow lua-mode browse-kill-ring clipmon free-keys org-link-minor-mode js2-mode js2-refactor xref-js2 python-django visual-regexp-steroids pcre2el vimrc-mode iedit transient magit dracula-theme flycheck elpy ein better-defaults ssh-config-mode yaml-mode apache-mode web-mode undo-tree))) '(reb-re-syntax (quote string)) + '(safe-local-variable-values (quote ((project-venv)))) '(tramp-use-ssh-controlmaster-options nil nil (tramp))) (custom-set-faces ;; custom-set-faces was added by Custom. diff --git a/settings.org b/settings.org index f04c1f8..3f39ac2 100644 --- a/settings.org +++ b/settings.org @@ -174,6 +174,35 @@ "python.exe")) #+END_SRC *** custom feature +#+BEGIN_SRC emacs-lisp + (defun rlbr/split-venv-with-number (name-number) + "Split a virtualenv name with either a ~ seperating the name and the number, or nothing" + (let ((split-result (split-string name-number (regexp-quote "~"))) + (ret)) + (if (= 1 (length split-result)) + (progn + (setq ret (car split-result)) + (push 0 ret)) + (progn + (setq ret + (string-join + (butlast split-result) + "~")) + (push + (string-to-number + (car (last split-result))) + ret))) + ret)) + + (defun rlbr/join-venv-with-number (number-name) + "Join a list with a name and a number" + (let + ((number (car number-name)) + (name (cdr number-name))) + (if (= number 0) + (name) + (string-join (list name (number-to-string number)) "~")))) +#+END_SRC *** bindings/settings #+BEGIN_SRC emacs-lisp (use-package python