Browse Source

Fix centaur-tabs hide function

master
Riyyi 4 years ago
parent
commit
0912f077d0
  1. 57
      .emacs.d/config.org

57
.emacs.d/config.org

@ -948,33 +948,36 @@ Functions that only use built-in Emacs functionality.
Functions that use package functionality. Functions that use package functionality.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun centaur-tabs-buffer-groups () (with-eval-after-load 'centaur-tabs
"Organize tabs into groups by buffer." (defun centaur-tabs-buffer-groups ()
(list "Organize tabs into groups by buffer."
(cond (list
((string-equal "*" (substring (buffer-name) 0 1)) "Emacs") (cond
((memq major-mode '(org-mode ((string-equal "*" (substring (buffer-name) 0 1)) "Emacs")
emacs-lisp-mode)) "Org Mode") ((memq major-mode '(org-mode
((derived-mode-p 'dired-mode) "Dired") emacs-lisp-mode)) "Org Mode")
((derived-mode-p 'prog-mode ((derived-mode-p 'dired-mode) "Dired")
'text-mode) "Editing") ((derived-mode-p 'prog-mode
(t "User")))) 'text-mode) "Editing")
(t "User"))))
(defun centaur-tabs-hide-tab (buffer)
"Hide from the tab bar by BUFFER name." (defun centaur-tabs-hide-tab (buffer)
(let ((name (format "%s" buffer))) "Hide from the tab bar by BUFFER name."
(string-match-p (let ((name (format "%s" buffer)))
(concat "^\\*\\(" (string-match-p
"e?shell\\|" (concat "^\\*\\("
"Completions\\|" "e?shell\\|"
"clangd\\|" ; lsp c/c++ "Completions\\|"
"Faces\\|" "clangd\\|" ; lsp c/c++
"Help\\|" "Faces\\|"
"helpful\\|" "Flycheck\\|"
"iph\\|" ; lsp php "Help\\|"
"Occur" "helpful\\|"
"\\).*") "iph\\|" ; lsp php
name))) "Occur"
"\\).*")
name)))
)
(defun dashboard-goto-bookmarks () (defun dashboard-goto-bookmarks ()
"Go to bookmarks." "Go to bookmarks."

Loading…
Cancel
Save