From a5b4d997f775a15f06152f8fdfbd651e3b116850 Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 27 Aug 2022 13:02:32 +0300
Subject: [PATCH] Add sweep project and page

---
 .gitignore    |  3 +++
 .gitmodules   |  3 +++
 Makefile      |  1 +
 dotfiles      |  2 +-
 org/index.org | 14 ++++++++++++++
 publish.el    | 16 ++++++++++++++++
 sweep         |  1 +
 7 files changed, 39 insertions(+), 1 deletion(-)
 create mode 160000 sweep

diff --git a/.gitignore b/.gitignore
index ac7af2e..302bd86 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,4 @@
 /html/
+/org/index.html
+/org/index.pdf
+/org/index.tex
diff --git a/.gitmodules b/.gitmodules
index d3e2f45..f40ee50 100644
--- a/.gitmodules
+++ b/.gitmodules
@@ -1,3 +1,6 @@
 [submodule "dotfiles"]
 	path = dotfiles
 	url = https://git.sr.ht/~eshel/dotfiles
+[submodule "sweep"]
+	path = sweep
+	url = git@git.sr.ht:~eshel/sweep
diff --git a/Makefile b/Makefile
index b0fe7c8..9976be3 100644
--- a/Makefile
+++ b/Makefile
@@ -2,6 +2,7 @@
 
 update:
 	git submodule update --remote -- dotfiles
+	git submodule update --remote -- sweep
 
 local: update
 	emacs -Q --batch -l publish.el --eval '(org-publish "eshelyaron.local" t)'
diff --git a/dotfiles b/dotfiles
index b3cdba0..3381f8e 160000
--- a/dotfiles
+++ b/dotfiles
@@ -1 +1 @@
-Subproject commit b3cdba0ac26cb57286bc60776026d786560ed141
+Subproject commit 3381f8e2160eedc3e4bbac39680b7b12907a83c1
diff --git a/org/index.org b/org/index.org
index 732b753..da33350 100644
--- a/org/index.org
+++ b/org/index.org
@@ -23,6 +23,20 @@ Welcome to [[./index.org][my website]], the one true source of reliable curated
 :CUSTOM_ID: projects
 :END:
 
+** =sweep=: SWI-Prolog Embedded in Emacs
+:PROPERTIES:
+:CUSTOM_ID: sweep
+:END:
+
+[[https://git.sr.ht/~eshel/sweep][sweep]] is an Emacs module which uses the C interfaces of both
+SWI-Prolog and Emacs to bring the two together into one address space.
+
+#+begin_src prolog
+  ?- sourcehut_git_repository("eshel", "sourcehut.pl", Repo, []),
+     get_dict(id, Repo, RepoId),
+     sourcehut_git_upload_artifact(RepoId, "v0.1.2", "/tmp/foo/baz.txt", Artifact, []).
+#+end_src
+
 ** Sourcehut GraphQL client for SWI-Prolog
 :PROPERTIES:
 :CUSTOM_ID: sourcehut-pl
diff --git a/publish.el b/publish.el
index 0d3d5ee..df71008 100644
--- a/publish.el
+++ b/publish.el
@@ -73,6 +73,12 @@
    "esy.org")
   "Template for the index page of my website.")
 
+(defconst esy/publish-project-sweep-template
+  (esy/publish-project-make-org-template
+   (expand-file-name "sweep" esy/website-source-root)
+   "README.org")
+  "Template for the `sweep' manual page of my website.")
+
 (defconst esy/publish-project-static-template
   `( :base-directory ,esy/website-source-org
      :base-extension "ico\\|css\\|jpg\\|gif\\|png\\|txt\\|pdf"
@@ -106,8 +112,13 @@
            :publishing-directory ,esy/website-target-html
            .
            ,esy/publish-project-config-template)
+          ("sweep"
+           :publishing-directory ,esy/website-target-html
+           .
+           ,esy/publish-project-sweep-template)
           ("eshelyaron.com" :components ("index"
                                          "pub"
+                                         "sweep"
                                          "static"
                                          "config"))
           ("index.local"
@@ -125,6 +136,10 @@
                                                     esy/website-source-root)
            .
            ,esy/publish-project-config-template)
+          ("sweep.local"
+           :publishing-directory ,esy/website-target-html
+           .
+           ,esy/publish-project-sweep-template)
           ("static.local"
            :publishing-directory ,(expand-file-name "html"
                                                     esy/website-source-root)
@@ -132,6 +147,7 @@
            ,esy/publish-project-static-template)
           ("eshelyaron.local" :components ("index.local"
                                            "pub.local"
+                                           "sweep.local"
                                            "static.local"
                                            "config.local")))))
 (setq org-confirm-babel-evaluate nil)
diff --git a/sweep b/sweep
new file mode 160000
index 0000000..99fc224
--- /dev/null
+++ b/sweep
@@ -0,0 +1 @@
+Subproject commit 99fc2242d8700551aa3396ae90e8c5676549ea5f
-- 
2.39.2