marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move clsites functions to cl-sites repo

Browse source
This commit is contained in:
Marcus Kammer 2024-12-22 11:15:47 +01:00
parent 836f86513d
commit 25d609eb77
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 5 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
bundle/bundle--mk.el
View file

@ -166,47 +166,6 @@
(let ((unique-id (format "DE-%04d-%04d" random-number-1 random-number-2))) (let ((unique-id (format "DE-%04d-%04d" random-number-1 random-number-2)))
(message "ID: %s" unique-id) unique-id))) (message "ID: %s" unique-id) unique-id)))
(defmacro mk/open-html-page (name path buffer-name)
"Make interactive functions to call important docs"
`(defun ,name ()
(interactive)
(eww (concat "file://"
(and (eq system-type 'windows-nt)
"/")
(expand-file-name ,path)))
(rename-buffer ,buffer-name)))
(mk/open-html-page mk/clsite-clm
"~/cl-sites/www.cs.cmu.edu/Groups/AI/html/cltl/clm/node1.html"
"*mk/clsite-clm*")
(mk/open-html-page mk/clsite-pcl
"~/cl-sites/gigamonkeys.com/book/index.html"
"*mk/clsite-pcl*")
(mk/open-html-page mk/clsite-clcb
"~/cl-sites/lispcookbook.github.io/cl-cookbook/index.html"
"*mk/clsite-clcb*")
(mk/open-html-page mk/clsite-sqlite
"~/cl-sites/sqlite-doc-3440000/index.html"
"*mk/clsite-sqlite*")
(mk/open-html-page mk/clsite-asdf
"~/cl-sites/asdf.common-lisp.dev/index.html"
"*mk/clsite-asdf*")
(mk/open-html-page mk/clsite-lisp-docs
"~/cl-sites/lisp-docs.github.io/index.html"
"*mk/clsite-lisp-docs*")
(mk/open-html-page mk/clsite-bgnet
"~/cl-sites/bgnet/index.html"
"*mk/clsite-bgnet*")
(mk/open-html-page mk/clsite-tbnl
"~/cl-sites/edicl.github.io/hunchentoot/index.html"
"*mk/clsite-tbnl*")
(mk/open-html-page mk/clsite-guile
"~/cl-sites/guile.html_node/index.html"
"*mk/clsite-guile*")
(mk/open-html-page mk/clsite-scheme
"~/cl-sites/www.r6rs.org/final/html/r6rs/r6rs-Z-H-2.html"
"*mk/clsite-scheme*")
(defun mk/wget-mirror-site (url) (defun mk/wget-mirror-site (url)
"Use wget to mirror a website for offline use. Takes a URL as argument." "Use wget to mirror a website for offline use. Takes a URL as argument."
(interactive "sEnter the URL to mirror: ") (interactive "sEnter the URL to mirror: ")

5
init.el
View file

@ -1935,3 +1935,8 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
(add-to-list 'load-path bundle-dir) (add-to-list 'load-path bundle-dir)
(load "bundle--ct") (load "bundle--ct")
(load "bundle--mk"))) (load "bundle--mk")))
(let ((cl-sites-dir (expand-file-name "~/cl-sites/")))
(when (file-directory-p cl-sites-dir)
(add-to-list 'load-path cl-sites-dir)
(load "cl-sites")))