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 2022-05-06 19:55:40 +02:00
parent 1dd8b4a023
commit dc4b484d84
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 28 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
bundle/bundle--mk.el
View file

@ -1,31 +1,31 @@
(defun mk-show-modeline ()
(interactive)
(setq mode-line-format
'(("-" mode-line-mule-info
mode-line-modified
mode-line-frame-identification
mode-line-buffer-identification " "
mode-line-position
mode-line-modes
(which-func-mode
("" which-func-format "--"))
(global-mode-string
("--" global-mode-string)) "-%-")))
(defvar mode-line-format-current
(symbol-value 'mode-line-format)))
;; (defun mk-show-modeline ()
;; (interactive)
;; (setq mode-line-format
;; '(("-" mode-line-mule-info
;; mode-line-modified
;; mode-line-frame-identification
;; mode-line-buffer-identification " "
;; mode-line-position
;; mode-line-modes
;; (which-func-mode
;; ("" which-func-format "--"))
;; (global-mode-string
;; ("--" global-mode-string)) "-%-")))
;; (defvar mode-line-format-current
;; (symbol-value 'mode-line-format)))
(defun mk-hide-modeline ()
(interactive)
(setq mode-line-format nil))
;; (defun mk-hide-modeline ()
;; (interactive)
;; (setq mode-line-format nil))
(defun mk-write-mode-enable ()
(setq olivetti-body-width 73)
(olivetti-mode)
(mk-hide-modeline))
;; (defun mk-write-mode-enable ()
;; (setq olivetti-body-width 73)
;; (olivetti-mode)
;; (mk-hide-modeline))
(defun mk-write-mode-disable ()
(olivetti-mode)
(mk-show-modeline))
;; (defun mk-write-mode-disable ()
;; (olivetti-mode)
;; (mk-show-modeline))
(defun me/split-windows-horizontal (count-windows)
"Split windows horizontal by equal width."
@ -75,6 +75,6 @@
"/pull/"
(match-string 1 region)))))))
(if (display-graphic-p)
(add-hook 'after-init-hook (lambda () (org-agenda-list) (me/split-h3)))
(org-agenda-list))
;; (if (display-graphic-p)
;; (add-hook 'after-init-hook (lambda () (org-agenda-list) (me/split-h3)))
;; (org-agenda-list))