emacs: Start server at startup & remove unused packages

1 files changed, 6 insertions, 26 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 5d5db54..9c0c74a 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -577,13 +577,6 @@
 	 (clojure-mode . rainbow-delimiters-mode)
          (scheme-mode . rainbow-delimiters-mode)))
 
-;; (use-package paredit
-;;   :ensure t
-;;   :hook ((emacs-lisp-mode . paredit-mode)
-;; 	 (lisp-mode . paredit-mode)
-;; 	 (clojure-mode . paredit-mode)
-;; 	 (scheme-mode . paredit-mode)))
-
 (use-package sly
   :init (setf inferior-lisp-program "sbcl")
   :defer t)
@@ -841,13 +834,6 @@ By default, returns all jabber related buffers format."
 	 :map erc-mode-map
 	 ("C-c RET" . 'erc-cmd-QUERY)))
 
-;; (use-package erc-image
-;;   :ensure t
-;;   :after erc
-;;   :config
-;;   (setq erc-image-inline-rescale 300)
-;;   (add-to-list 'erc-modules 'image))
-
 (use-package transmission
   :defer t)
 
@@ -1011,7 +997,7 @@ By default, returns all jabber related buffers format."
 (when (or is-zeus is-hermes)
   (use-package mu4e
     :straight nil
-    :ensure nil  
+    :ensure nil
     :config
     (require 'server)
     (require 'mu4e)
@@ -1055,7 +1041,7 @@ By default, returns all jabber related buffers format."
 	    ("/Sent" . ?s)
 	    ("/Fastmail/Emacs/dev" . ?e)
 	    ("/MUSofia/[Gmail]/All Mail" . ?u)
-	    ("/Fastmail/Gentoo" . ?g)))
+	    ("/Fastmail/Guix/dev" . ?g)))
 
     (setf mu4e-contexts
 	  (list
@@ -1123,16 +1109,6 @@ By default, returns all jabber related buffers format."
 (use-package debbugs
   :ensure nil)
 
-;; (use-package guix
-;;   :straight nil
-;;   :config
-;;   (defvar guix-home-file "~/dotfiles/guix/home.scm")
-
-;;   (defun guix-home-reconfigure (&optional home-config)
-;;     (interactive)
-;;     (let ((home-config (or home-config guix-home-file)))
-;;       (async-shell-command (format "guix home reconfigure %s" home-config)))))
-
 
 ;;; Random commands ;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1353,4 +1329,8 @@ Create a temporary frame to execute BODY, which will then be deleted."
 			 (directory-files default-directory))))))
     (async-shell-command (format "curl -F'file=@%s' https://0x0.st" file))))
 
+
+(unless (server-running-p)
+  (server-start))
+
 ;;; init.el ends here