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

Rename eww buffer

Browse source
This commit is contained in:
Marcus Kammer 2024-04-02 09:59:45 +02:00
parent a3a93302c5
commit fb5b5216c3
1 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
bundle/bundle--mk.el
View file

@ -168,27 +168,34 @@
(let ((unique-id (format "DE-%04d-%04d" random-number-1 random-number-2)))
(message "ID: %s" unique-id) unique-id)))
(defmacro mk/open-html-page (name path)
(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)))))
(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")
"~/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")
"~/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")
"~/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")
"~/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")
"~/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")
"~/cl-sites/lisp-docs.github.io/index.html"
"*mk/clsite-lisp-docs*")
(defun mk/wget-mirror-site (url)
"Use wget to mirror a website for offline use. Takes a URL as argument."