31 lines
883 B
EmacsLisp
Executable file
31 lines
883 B
EmacsLisp
Executable file
(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)))
|
|
|
|
;; (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)))
|
|
|
|
(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)))
|