First twinkle of the auto-venv stuff

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.

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