Add sweep project and page

diff --git a/.gitignore b/.gitignore
index ac7af2e80e3a7920c6989974744a27c21db8cd33..302bd862d72b6dab841a7ca72cff5b943ce70107 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,4 @@
 /html/
+/org/index.html
+/org/index.pdf
+/org/index.tex

diff --git a/.gitmodules b/.gitmodules
index d3e2f45baf2efd96c50e71bbbc9c936a701246ec..f40ee50287a5cce4ad52db576850ea816ba37bfd 100644 (file)
--- 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 b0fe7c8d731b0a3948385e7b76ea9e88e3b7fd38..9976be3fbc2b66a63612bbf99ead6ee756635bac 100644 (file)
--- 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 b3cdba0ac26cb57286bc60776026d786560ed141..3381f8e2160eedc3e4bbac39680b7b12907a83c1 160000 (submodule)
--- a/dotfiles
+++ b/dotfiles
@@ -1 +1 @@
-Subproject commit b3cdba0ac26cb57286bc60776026d786560ed141
+Subproject commit 3381f8e2160eedc3e4bbac39680b7b12907a83c1

diff --git a/org/index.org b/org/index.org
index 732b753a3547d40237148555140b87d48116151a..da333503d485e2a355b1b78d9cdc3981d4bfee11 100644 (file)
--- 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 0d3d5ee78f8d513a1395bc94977147ee724ffb1b..df71008fadadab3fbd113fd4f6a7491812c8c095 100644 (file)
--- 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 (submodule)
index 0000000..99fc224
--- /dev/null
+++ b/sweep
@@ -0,0 +1 @@
+Subproject commit 99fc2242d8700551aa3396ae90e8c5676549ea5f