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

Comment out unused code

Browse source
This commit is contained in:
Marcus Kammer 2023-11-09 07:48:42 +01:00
parent bb0d0b1f37
commit 54c487c629
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 17 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
bundle/bundle--gui.el
View file

@ -29,17 +29,17 @@
(add-hook 'after-make-frame-functions 'center-frame) (add-hook 'after-make-frame-functions 'center-frame)
(defun my-vc-info () ;; (defun my-vc-info ()
(when vc-mode ;; (when vc-mode
(concat (substring vc-mode 5) ;; (concat (substring vc-mode 5)
" [" ;; " ["
(substring (vc-working-revision (buffer-file-name)) 0 8) ;; (substring (vc-working-revision (buffer-file-name)) 0 8)
"] "))) ;; "] ")))
(defun my-project-name () ;; (defun my-project-name ()
(let ((proj (project-current))) ;; (let ((proj (project-current)))
(if proj (file-name-base (directory-file-name (project-root proj))) ;; (if proj (file-name-base (directory-file-name (project-root proj)))
"NoProject"))) ;; "NoProject")))
;; (setq-default header-line-format ;; (setq-default header-line-format
;; (list "-%M" ;; (list "-%M"
@ -55,8 +55,8 @@
;; 'default-directory ;; 'default-directory
;; "-%-")) ;; "-%-"))
(set-face-attribute 'mode-line nil :weight 'bold) ;; (set-face-attribute 'mode-line nil :weight 'bold)
(set-face-attribute 'header-line nil :weight 'bold) ;; (set-face-attribute 'header-line nil :weight 'bold)
(use-package all-the-icons (use-package all-the-icons
:if (display-graphic-p) :if (display-graphic-p)
@ -123,12 +123,11 @@
:custom :custom
(tab-bar-format (tab-bar-format
'(tab-bar-format-history '(tab-bar-format-history
tab-bar-format-tabs-groups))) tab-bar-format-tabs-groups))
:config
(setq tab-line-close-button-show nil) (setq tab-line-close-button-show nil)
(setq tab-line-new-button-show nil) (setq tab-line-new-button-show nil)
(setq tab-line-tabs-function 'tab-line-tabs-mode-buffers) (setq tab-line-tabs-function 'tab-line-tabs-mode-buffers))
;(global-tab-line-mode 1)
(use-package doc-view (use-package doc-view
:ensure nil :ensure nil