     (if (null (car (cdr list)))
         (setq chosen-theme (car t/theme-list))
       (setq chosen-theme (car (cdr list))))
+    (disable-theme t/theme--loaded)
     (t/load-theme chosen-theme)
     (setq t/theme--loaded chosen-theme))
   (message "Loaded theme %s" t/theme--loaded))

  :bind
  ("C-c n n" . #'org-noter))

;;;;; Programming Modes

;; settings for editing c

        ("C-S-s-n" . #'org-shiftmetadown)
        ;; Make item at point heading
        ("C-s-h" . #'org-toggle-heading)
        ;; surround region or word at point in emphasis markers
        ("C-s-e" . #'t/org-emphasize)
        ;; Search headings
