marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Modify tabs and hideshow

Browse source
This commit is contained in:
Marcus Kammer 2024-04-14 15:37:06 +02:00
parent 66123b5fdf
commit efeed7093e
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 55 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

98
bundle/bundle--gui.el
View file

@ -1,8 +1,48 @@
;; (setq default-frame-alist
;; '((font . "MonoLisa-11")
;; (width . 85)
;; (height . 50)
;; (vertical-scroll-bars)))
(setq-default mode-line-format
'("%e" mode-line-front-space "%b %*%n %I %l:%c %p" (vc-mode vc-mode) " " mode-line-modes mode-line-misc-info mode-line-end-spaces))
(unless (memq 'hs-headline mode-line-format)
(setq mode-line-format
(append '(" " hs-headline) mode-line-format)))
(set-face-attribute 'mode-line nil
:slant 'italic
:weight 'bold
:background (face-attribute 'default :background)
:foreground
(cond ((member 'doom-one custom-enabled-themes) "#5B6268")
((member 'doom-nord custom-enabled-themes) "#9099AB")
(t (face-attribute 'mode-line-inactive :foreground)))
:box '(:line-width (1 . 8) :style flat-button))
(set-face-attribute 'mode-line-inactive nil
:inherit 'mode-line
:weight 'normal
:box '(:line-width (1 . 8) :style flat-button))
(use-package tab-bar
:hook (after-init . tab-bar-mode)
:custom
(tab-bar-auto-width nil)
(tab-bar-auto-width-max '(250 25))
(tab-bar-format '(tab-bar-format-history tab-bar-format-tabs-groups))
(tab-bar-tab-name-function 'tab-bar-tab-name-truncated)
(tab-line-close-button-show nil)
(tab-line-new-button-show nil)
(tab-line-tabs-function 'tab-line-tabs-mode-buffers)
:config
(set-face-attribute 'tab-bar nil
:inherit 'mode-line-inactive
:background (face-attribute 'mode-line-inactive :background))
(set-face-attribute 'tab-bar-tab nil
:inherit 'mode-line
:foreground (face-attribute 'mode-line :foreground)
:box '(:line-width 8 :style flat-button))
(set-face-attribute 'tab-bar-tab-inactive nil
:inherit 'mode-line-inactive
:box '(:line-width 8 :style flat-button)))
(setq default-frame-alist
`((font . "MonoLisa-11")
@ -27,7 +67,7 @@
(/ (- display-width frame-width) 2)
(/ (- display-height frame-height) 2)))))
(add-hook 'after-make-frame-functions 'center-frame)
(add-hook 'after-make-frame-functions #'center-frame)
(use-package all-the-icons
:commands all-the-icons-install-fonts
@ -77,30 +117,6 @@
;; (set-face-attribute 'mode-line nil :weight 'bold)
;; (set-face-attribute 'header-line nil :weight 'bold)
(setq-default mode-line-format
'("%e"
mode-line-front-space
"%b %*%n %I %l:%c %p"
(vc-mode vc-mode)
" "
mode-line-modes
mode-line-misc-info
mode-line-end-spaces))
(set-face-attribute 'mode-line nil
:family "MonoLisa"
:slant 'italic
:weight 'bold
:background (face-attribute 'default :background)
:foreground
(cond ((member 'doom-one custom-enabled-themes) "#5B6268")
((member 'doom-nord custom-enabled-themes) "#9099AB")
(t (face-attribute 'mode-line-inactive :foreground)))
:box '(:line-width (1 . 8) :style flat-button))
(set-face-attribute 'mode-line-inactive nil
:box '(:line-width (1 . 8) :style flat-button) :weight 'normal)
;; (use-package doom-modeline
;; :hook (after-init . doom-modeline-mode)
;; :custom
@ -117,7 +133,8 @@
:commands (helpful-callable helpful-variable helpful-command helpful-key)
:bind ([remap describe-command] . helpful-command) ([remap describe-key] . helpful-key))
(use-package rainbow-delimiters :hook (prog-mode . rainbow-delimiters-mode))
(use-package rainbow-delimiters
:hook (prog-mode . rainbow-delimiters-mode))
(use-package olivetti
:custom (olivetti-body-width 83)
@ -141,18 +158,6 @@
("leo.org" . [simple-query "dict.leo.org" "https://dict.leo.org/german-english/" ""]))
webjump-sample-sites)))
(use-package tab-bar
:ensure nil
:init (tab-bar-mode 0)
:custom
(tab-bar-format
'(tab-bar-format-history
tab-bar-format-tabs-groups))
:config
(setq tab-line-close-button-show nil)
(setq tab-line-new-button-show nil)
(setq tab-line-tabs-function 'tab-line-tabs-mode-buffers))
(use-package doc-view
:ensure nil
:custom
@ -167,3 +172,10 @@
(yas-global-mode 1))
(pixel-scroll-precision-mode +1)
(use-package hideshow
:hook ((prog-mode . (lambda () (hs-minor-mode 1) (hs-hide-all))))
:bind (:map prog-mode-map
("M-<return>" . hs-toggle-hiding))
:custom
(hs-hide-all-non-comment-function nil))