30 lines
890 B
EmacsLisp
Executable file
30 lines
890 B
EmacsLisp
Executable file
(add-to-list 'load-path (expand-file-name "~/.emacs.d/bundle/"))
|
|
(require 'server)
|
|
(or (eq (server-running-p) t)
|
|
(server-start))
|
|
(load "bundle--general")
|
|
(load "bundle--gui")
|
|
(load "bundle--package")
|
|
(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)))
|
|
|
|
(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")
|