Mercurial > core / lisp/lib/skel/comp/org.lisp
changeset 698: |
96958d3eb5b0 |
parent: |
cc89b337384b
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: |
-rw-r--r-- |
description: |
fixes |
1 ;;; org.lisp --- Skel Org File Components 6 (in-package :skel/comp/org) 8 (defclass sk-org-file (sk-component org-document sk-meta) ()) 10 (defmethod sk-new ((self (eql :org)) &rest args) 11 (apply #'make-instance 'sk-org-file args)) 13 (defmethod sk-convert ((self org-document)) 14 (let ((self (change-class self 'sk-org-file))) 18 (defmethod sk-load-component ((kind (eql :org)) (form pathname) &optional (path *default-pathname-defaults*)) 19 (declare (ignore kind)) 20 (let* ((name (namestring form)) 21 (p (make-pathname :name name :type "org" :directory (namestring path))) 22 (comp (sk-convert (org-parse :document p)))) 23 (setf (sk-name comp) name) 24 (setf (sk-path comp) p) 27 ;; (describe (sk-load-component :org #p"readme"))