From 25d609eb775870b6e402da7be0ef5edfc3cecee6 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 22 Dec 2024 11:15:47 +0100 Subject: [PATCH] Move clsites functions to cl-sites repo --- bundle/bundle--mk.el | 41 ----------------------------------------- init.el | 5 +++++ 2 files changed, 5 insertions(+), 41 deletions(-) diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el index 5664fc9f..4a69a78a 100644 --- a/bundle/bundle--mk.el +++ b/bundle/bundle--mk.el @@ -166,47 +166,6 @@ (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 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) "Use wget to mirror a website for offline use. Takes a URL as argument." (interactive "sEnter the URL to mirror: ") diff --git a/init.el b/init.el index a6d7ff6d..34d238aa 100755 --- a/init.el +++ b/init.el @@ -1935,3 +1935,8 @@ Uses `mk/hyperspec-dir-locations' to find the directory." (add-to-list 'load-path bundle-dir) (load "bundle--ct") (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")))