Emacs Treemacs auto-toggling in text and prog-modes. Author: @ichernyshovvv

treemacs-auto-toggle.el

(defun treemacs-toggle-maybe ()
         (require 'treemacs)
         (if (eq last-command 'treemacs)
          (set-frame-parameter (selected-frame) 'treemacs-forced-p
           (not (frame-parameter (selected-frame) 'treemacs-forced-p)))
          (unless (frame-parameter (selected-frame) 'treemacs-forced-p)
           (if (seq-find
                (lambda (x)
                 (with-current-buffer (window-buffer x)
                  (derived-mode-p 'text-mode 'prog-mode)))
                (window-list))
            (unless (eq (treemacs-current-visibility) 'visible)
             (save-selected-window (treemacs)))
            (and (eq (treemacs-current-visibility) 'visible)
             (not (minibufferp))
             (delete-window (treemacs-get-local-window)))))))

        (add-hook 'window-configuration-change-hook 'treemacs-toggle-maybe)