Only load bundles if directory bundle/ is true

This commit is contained in:
Marcus Kammer 2023-11-12 12:26:01 +01:00
parent 301a2b3ec4
commit 6dd599e109
Signed by: marcuskammer
GPG key ID: C374817BE285268F

33
init.el
View file

@ -1,25 +1,26 @@
(let ((bundle-dir (expand-file-name "~/.emacs.d/bundle/")))
(if (file-directory-p bundle-dir)
(add-to-list 'load-path bundle-dir)
(make-directory bundle-dir)))
(when (file-directory-p bundle-dir)
(add-to-list 'load-path bundle-dir)
(load "bundle--general")
(load "bundle--gui")
(load "bundle--package")
(load "bundle--lisp")
(load "bundle--irc")
(load "bundle--news")
(load "bundle--calendar")
(load "bundle--email")
(load "bundle--org")
(load "bundle--ux")
(load "bundle--mk")
(load "bundle--linux")))
;; (require 'server)
;; (or (eq (server-running-p) t)
;; (server-start))
(load "bundle--general")
(load "bundle--gui")
(load "bundle--package")
(load "bundle--lisp")
(load "bundle--irc")
(load "bundle--news")
(load "bundle--calendar")
(load "bundle--email")
(load "bundle--org")
(load "bundle--ux")
(load "bundle--mk")
(load "bundle--linux")
(let ((f "~/feeds.el"))
(when (file-exists-p f)
(load-file f)))
(unless (file-directory-p "~/cl-sites/")
(async-shell-command "git clone git@git.sr.ht:~marcuskammer/cl-sites ~/cl-sites"))