From b94472f6010ad9f3339c069fa1f9d6fd359c1a76 Mon Sep 17 00:00:00 2001
From: Marcel Kapfer <opensource@mmk2410.org>
Date: Thu, 10 Feb 2022 23:18:47 +0100
Subject: [PATCH] [tab-bar-helper] Small refinements

---
 packages/tab-bar-helpers.el | 45 +++++++++++++++++++++----------------
 1 file changed, 26 insertions(+), 19 deletions(-)

diff --git a/packages/tab-bar-helpers.el b/packages/tab-bar-helpers.el
index 3cbe304..0d54f94 100644
--- a/packages/tab-bar-helpers.el
+++ b/packages/tab-bar-helpers.el
@@ -1,12 +1,11 @@
-;; -*- lexical-binding: t; -*-
+;;; tab-bar-helpers.el -*- lexical-binding: t; -*-
 
 (defun mmk2410/tab-bar-new-tab (name func)
   (when (eq nil tab-bar-mode)
     (tab-bar-mode))
   (tab-bar-new-tab)
   (tab-bar-rename-tab name)
-  (funcall func)
-  nil)
+  (funcall func))
 
 (defun mmk2410/tab-bar-tab-exists (name)
   (member name
@@ -24,34 +23,40 @@
 
 (defun mmk2410/tab-bar-run-mail ()
   (interactive)
-  (mmk2410/tab-bar-switch-or-create "Mail"
-                                    #'(lambda ()
-                                        (mu4e-context-switch :name "Private")
-                                        (mu4e))))
+  (mmk2410/tab-bar-switch-or-create
+   "Mail"
+   #'(lambda ()
+       (mu4e-context-switch :name "Private")
+       (mu4e))))
 
 (defun mmk2410/tab-bar-run-irc ()
   (interactive)
-  (mmk2410/tab-bar-switch-or-create "IRC"
-                                    #'(lambda ()
-                                        (mmk2410/erc-connect)
-                                        (sit-for 1)
-                                        (switch-to-buffer "Libera.Chat"))))
+  (mmk2410/tab-bar-switch-or-create
+   "IRC"
+   #'(lambda ()
+       (mmk2410/erc-connect)
+       (sit-for 1)
+       (switch-to-buffer "Libera.Chat"))))
 
 (defun mmk2410/tab-bar-run-agenda ()
   (interactive)
-  (mmk2410/tab-bar-switch-or-create "Agenda"
-                                    #'(lambda ()
-                                        (org-agenda nil "a"))))
+  (mmk2410/tab-bar-switch-or-create
+   "Agenda"
+   #'(lambda ()
+       (org-agenda nil "a"))))
 
 (defun mmk2410/tab-bar-run-journal ()
   (interactive)
-  (mmk2410/tab-bar-switch-or-create "Journal" #'org-journal-open-current-journal-file))
+  (mmk2410/tab-bar-switch-or-create
+   "Journal"
+   #'org-journal-open-current-journal-file))
 
 (defun mmk2410/tab-bar-run-projects ()
   (interactive)
-  (mmk2410/tab-bar-switch-or-create "Projects"
-                                    #'(lambda ()
-                                        (find-file "~/org/work.projects.org"))))
+  (mmk2410/tab-bar-switch-or-create
+   "Projects"
+   #'(lambda ()
+       (find-file "~/org/work.projects.org"))))
 
 (defhydra mmk2410/tab-bar (:color teal)
   "My tab-bar helpers"
@@ -65,3 +70,5 @@
 (global-set-key (kbd "C-c f") 'mmk2410/tab-bar/body)
 
 (provide mmk2410/tab-bar-helpers)
+
+;;; tab-bar-helpers.el ends here