2020-07-26 14:36:43 +02:00
|
|
|
(add-to-list 'load-path (expand-file-name "~/.emacs.d/bundle/"))
|
2023-10-04 11:32:38 +02:00
|
|
|
(require 'server)
|
|
|
|
|
(or (eq (server-running-p) t)
|
|
|
|
|
(server-start))
|
2023-10-04 12:22:36 +02:00
|
|
|
(load "bundle--general")
|
|
|
|
|
(load "bundle--gui")
|
2020-08-20 18:47:45 +02:00
|
|
|
(load "bundle--package")
|
2023-10-04 12:22:36 +02:00
|
|
|
(load "bundle--irc")
|
|
|
|
|
(load "bundle--news")
|
|
|
|
|
(load "bundle--calendar")
|
2023-10-04 11:32:38 +02:00
|
|
|
(load "bundle--email")
|
2022-05-06 19:31:15 +02:00
|
|
|
(load "bundle--org")
|
2022-10-24 10:18:36 +02:00
|
|
|
(load "bundle--ux")
|
2020-11-03 20:27:27 +01:00
|
|
|
(load "bundle--mk")
|
2023-10-04 11:32:38 +02:00
|
|
|
(load "bundle--linux")
|
2023-10-17 11:03:46 +02:00
|
|
|
|
|
|
|
|
(let ((f "~/feeds.el"))
|
|
|
|
|
(when (file-exists-p f)
|
|
|
|
|
(load-file f)))
|
2023-10-25 16:59:53 +02:00
|
|
|
|
|
|
|
|
(defmacro mk/open-html-page (name path)
|
|
|
|
|
`(defun ,name ()
|
|
|
|
|
(interactive)
|
|
|
|
|
(eww (concat (if (eq system-type 'windows-nt) "file:///" "file://") (expand-file-name ,path)))))
|
|
|
|
|
|
|
|
|
|
(mk/open-html-page mk/open-clm "~/sites/www.cs.cmu.edu/Groups/AI/html/cltl/clm/node1.html")
|
|
|
|
|
|
|
|
|
|
(mk/open-html-page mk/open-pcl "~/sites/gigamonkeys.com/book/index.html")
|
|
|
|
|
|
|
|
|
|
(mk/open-html-page mk/open-clcb "~/sites/lispcookbook.github.io/cl-cookbook/index.html")
|
