43 lines
1.3 KiB
EmacsLisp
Executable file
43 lines
1.3 KiB
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)
|
|
"Make interactive functions to call important docs"
|
|
`(defun ,name ()
|
|
(interactive)
|
|
(eww (concat "file://"
|
|
(and (eq system-type 'windows-nt)
|
|
"/")
|
|
(expand-file-name ,path)))))
|
|
|
|
(mk/open-html-page mk/clsite-clm
|
|
"~/cl-sites/www.cs.cmu.edu/Groups/AI/html/cltl/clm/node1.html")
|
|
(mk/open-html-page mk/clsite-pcl
|
|
"~/cl-sites/gigamonkeys.com/book/index.html")
|
|
(mk/open-html-page mk/clsite-clcb
|
|
"~/cl-sites/lispcookbook.github.io/cl-cookbook/index.html")
|
|
(mk/open-html-page mk/clsite-sqlite
|
|
"~/cl-sites/sqlite-doc-3440000/index.html")
|
|
|
|
(defun mk/wget-mirror-site (url)
|
|
"Use wget to mirror a website for offline use. Takes a URL as argument."
|
|
(interactive "sEnter the URL to mirror: ")
|
|
(let ((cmd (format "wget --mirror --convert-links --adjust-extension --page-requisites --no-parent %s" url)))
|
|
(async-shell-command cmd)))
|