load emacs theme selected by env variables

pick-theme-from-env.el

(setq-local louis/default-theme (if (window-system) 'doom-molokai 'zenburn))
(setq-local louis/bad-id-theme 'whiteboard)

(let ((count-themes 1)
      (louis/themes-ids (make-hash-table :size 30))
      (louis/themes-names (make-hash-table :size 30 :test 'equal))
      (env-theme-name (getenv "EN"))
      (env-theme-id (getenv "EI")))
  (mapc
   (lambda (theme)
     (puthash count-themes theme louis/themes-ids)
     (puthash (symbol-name theme) theme louis/themes-names)
     (setq count-themes (+ 1 count-themes)))
   (custom-available-themes))
  (setq-local
   louis/selected-theme
   (if env-theme-name
       (gethash env-theme-name louis/themes-names louis/bad-id-theme)
     (if env-theme-id
         (gethash (string-to-number env-theme-id) louis/themes-ids louis/bad-id-theme)
       louis/default-theme
       )))
  (load-theme louis/selected-theme t))