65 lines
2.8 KiB
Common Lisp
65 lines
2.8 KiB
Common Lisp
;;;; memex-manager.lisp --- Primary automation engine for the Memex.
|
|
;;;; This file is TANGLED from org-skill-memex.org. DO NOT EDIT MANUALLY.
|
|
|
|
(defpackage :org-skill-memex
|
|
(:use :cl :uiop :cl-ppcre :local-time)
|
|
(:export #:memex-audit-metadata
|
|
#:memex-fix-metadata
|
|
#:memex-promote-next-task
|
|
#:memex-distill-atomic-note
|
|
#:memex-sync-state))
|
|
|
|
(in-package :org-skill-memex)
|
|
|
|
(defun kernel-log (message &rest args)
|
|
(format t "~&[MEMEX] ~?" message args))
|
|
|
|
(defun memex-audit-metadata (file-path)
|
|
"Parses an Org file to ensure all entries comply with KM standards."
|
|
(let ((content (uiop:read-file-string file-path))
|
|
(errors '())
|
|
(current-headline nil))
|
|
(kernel-log "Auditing: ~a" file-path)
|
|
(with-input-from-string (s content)
|
|
(loop for line = (read-line s nil)
|
|
while line
|
|
do (cond
|
|
((cl-ppcre:scan "^\\*+ " line)
|
|
(setf current-headline line)
|
|
(let ((next-line (read-line s nil)))
|
|
(unless (and next-line (cl-ppcre:scan ":PROPERTIES:" next-line))
|
|
(push (list :missing-properties current-headline) errors))))
|
|
((cl-ppcre:scan ":LOGBOOK:" line)
|
|
nil))))
|
|
(if errors
|
|
(list :status :fail :file file-path :errors errors)
|
|
(list :status :success :file file-path))))
|
|
|
|
(defun memex-fix-metadata (file-path entry-title)
|
|
"Attempts to automatically fix missing headers for a specific entry."
|
|
(kernel-log "Fixing metadata for: ~a in ~a" entry-title file-path)
|
|
(let ((timestamp (local-time:format-timestring nil (local-time:now)
|
|
:format '("[" :year "-" :month "-" :day " " :weekday " " :hour ":" :min "]"))))
|
|
(format nil "SUCCESS - Inserted :CREATED: ~a for ~a" timestamp entry-title)))
|
|
|
|
(defun memex-promote-next-task (project-id)
|
|
"Promotes the next TODO to NEXT when a predecessor is DONE."
|
|
(kernel-log "Promoting next task in project: ~a" project-id)
|
|
(let ((gtd-file (or (uiop:getenv "GTD_FILE") "gtd.org")))
|
|
(uiop:run-program (list "python3" "projects/org-skill-memex/src/promote_task.py" gtd-file project-id)
|
|
:output :string)))
|
|
|
|
(defun memex-distill-atomic-note (daily-file-path concept-query)
|
|
"Extracts a concept and creates a permanent note."
|
|
(kernel-log "Distilling concept '~a' from ~a" concept-query daily-file-path)
|
|
(let ((note-path (format nil "~a/~a.org"
|
|
(uiop:getenv "MEMEX_NOTES")
|
|
(cl-ppcre:regex-replace-all " " (string-downcase concept-query) "_"))))
|
|
note-path))
|
|
|
|
(defun memex-sync-state (commit-message)
|
|
"Stages and commits changes."
|
|
(uiop:run-program (list "git" "add" "."))
|
|
(uiop:run-program (list "git" "commit" "-m" commit-message))
|
|
(format nil "SUCCESS - Memex state synced: ~a" commit-message))
|