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

Move function to --mk

Browse source
This commit is contained in:
Marcus Kammer 2023-11-12 12:18:40 +01:00
parent 0b624379cb
commit 301a2b3ec4
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
bundle/bundle--mk.el
View file

@ -187,3 +187,9 @@
"~/cl-sites/sqlite-doc-3440000/index.html")
(mk/open-html-page mk/clsite-asdf
"~/cl-sites/asdf.common-lisp.dev/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)))

6
init.el
View file

@ -23,9 +23,3 @@
(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)))