From dc4b484d8458a53fee8acec8ea5b5708bf940e20 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Fri, 6 May 2022 19:55:40 +0200
Subject: [PATCH] Comment out unused code

---
 bundle/bundle--mk.el | 56 ++++++++++++++++++++++----------------------
 1 file changed, 28 insertions(+), 28 deletions(-)

diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el
index 4e7ab9f5..25242a8e 100644
--- a/bundle/bundle--mk.el
+++ b/bundle/bundle--mk.el
@@ -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))