skelfile

;;; skelfile --- CC/org skelfile -*- mode: skel; -*-
:name org
:author ("Richard Westhaver" . "ellis@rwest.io")
:version "0.1.0"
:license "MPL"
:description "CC Org Files"
:tags (org docs notes meta plan archive graph)
:vc (:hg "https://vc.compiler.company/org"
     (cb (:git "ssh://git@codeberg.org/c-c/org"))
     (gh (:git "ssh://git@github.com/richardwesthaver/org")))
:components 
((:el "init"))
:bind
((www-home :env "/opt/stash/data/web/www")
 (cdn-home :env "/opt/stash/data/web/cdn")
 (packy-home :env "/opt/store/packy")
 (org-deploy-ssh-key :env "~/.ssh/ellis_aws.pem")
 (org-deploy-user :env "fedora")
 (org-deploy-host :env "compiler.company")
 (org-deploy-path :env "ssh://rurik:/srv/www")
 (submods (list "graph" "meta" "plan" "docs" "notes" "archive")))
:rules
((default (init build publish deploy dist-html dist-source dist-repos))
 (build (build-css build-docs build-agenda build-graph)
  (init :xdg)
  (init :org-graph)
  (organ/graph:org-graph-json :path ".stash/org-graph.json")
  (organ/graph:org-graph-minisearch-json :path ".stash/org-graph-index.json")
  (organ/graph:org-graph-tinysearch-json :path ".stash/org-graph-search.json"))
 (init ()
  (with-emacs (e)
   (load-file "init.el")
   (cc-org--slime-setup)))
 (graph ()
  (:build ()
   (with-emacs (e)
    (org-graph-init)
    (org-graph-save))))
 (agenda ()
  (:build ()
   (with-emacs (e) (org-store-agenda-views))))
 (docs ()
  (:build ()
   (with-emacs (e)
     (mapc 
      (lambda (f)
        (message "updating org file: %s" f)
        (org-with-file-buffer 
         f
         (org-babel-execute-buffer)
         (save-buffer)))
      (flatten
       (mapcar 
        (lambda (x) (directory-files-recursively x "\\(readme\\|index\\|info\\)[.]org$"))
        (list "graph" "meta" "plan" "docs" "notes")))))))
 (clean ()
  (probe-delete-directory ".stash" :recursive t)
  (mapc 'delete-file (directory "**/*.html")))
 (css () 
  (:build () (css:compile-css-file "clean.css.lisp" ".stash/clean.css"))
  (:deploy () #$cp .stash/clean.css $CDN_HOME/css/$#))
 (browse ()
  (tools:browse-url (or (probe-directory ".stash/www") #+nil www-home
                     "/opt/stash/data/web/www/")))
 (publish ()
  (ensure-directories-exist ".stash/www/")
  (with-emacs (e)
   (publish t t)))
 (deploy-ssh () #$scp -i $ORG_DEPLOY_SSH_KEY -r .stash/www/* "$ORG_DEPLOY_USER@$ORG_DEPLOY_HOST:$ORG_DEPLOY_PATH"$#)
 (deploy-cloudflare () (nyi!))
 (deploy (deploy-css)
  #$cp -rf .stash/www/* $WWW_HOME
    cp -rf .stash/*.json $CDN_HOME/data/$#)
 (upstream ()
  (labels ((remotes (name)
            (vector
             (make-vc-remote :type :hg :name "cb" :url (format nil "ssh://git@codeberg.org/c-c/~A" name))
             (make-vc-remote :type :hg :name "gh" :url (format nil "ssh://git@github.com/richardwesthaver/~A" name))))
           (bump (name)
            (let ((repo (make-repo (probe-directory name) :type :hg)))
             (update-repo repo :push t)
             (setf (vc-remotes repo) (remotes name))
             (vc-export repo :upstream '("gh" "cb") :delete t :force t :branch "default")))
           (bump* (&rest subrepos)
            (dolist (s subrepos)
             (bump s))))
   (bump* "graph" "meta" "plan" "docs" "notes")
   (vc-export (vc *project*) :upstream nil)
   (with-repo (r :path "/tmp/org" :type :git :delete t)
    (setf (vc-remotes r) (remotes "org"))
    (loop for remote across (setf (vc-remotes r) (remotes "org"))
     do (vc-remote r :add :name (name remote) :url (uri remote)))
    (vc-update r)
    (vc-submodule r :add :url "https://github.com/richardwesthaver/graph")
    (vc-submodule r :add :url "https://github.com/richardwesthaver/notes")
    (vc-submodule r :add :url "https://github.com/richardwesthaver/meta")
    (vc-submodule r :add :url "https://github.com/richardwesthaver/plan")
    (vc-submodule r :add :url "https://github.com/richardwesthaver/docs")
    (vc-add r ".gitmodules")
    (vc-commit r "gitmodules")
    (vc-push r :set-upstream t :remote "gh" :branch "default" :force t)
    (vc-push r :remote "cb" :branch "default" :force t))))
 (dist-repos ()
  (vc-bundle (vc *project*) "/opt/store/packy/vc/org.hg")
  (mapc
   (lambda (x)
    (vc-bundle
     (make-repo (probe-file (directory-path x)))
     (merge-pathnames (format nil "vc/~A.hg" x) "/opt/store/packy/")))
   '("graph" "plan" "docs" "meta" "notes" "archive")))
 (dist-source (clean)
  (with-directory ".."
   #$tar --exclude='*/.hg' --exclude='#*#' -I 'zstd' -cf $PACKY_HOME/src/org.tar.zst org/*$#))
 (push ()
  (vc:update-repos "." :pull nil :push t))
 (dist-html ()
  (with-directory ".stash"
   #$tar -I 'zstd' -cf compiler.company.tar.zst www/*
   cp -f compiler.company.tar.zst $PACKY_HOME/doc/html/compiler.company.tar.zst$#)))