Coverage report: /home/ellis/comp/core/app/skel/comp/org.lisp

Kind	Covered	All	%
expression	0	42	0.0
branch	0	0	nil

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; org.lisp --- Skel Org File Components

2

3

;;

4

5

;;; Code:

6

(in-package :skel/comp/org)

7

8

(defclass sk-org-file (sk-component org-document sk-meta) ())

9

10

(defmethod sk-new ((self (eql :org)) &rest args)

11

(apply #'make-instance 'sk-org-file args))

12

13

(defmethod sk-convert ((self org-document))

14

(let ((self (change-class self 'sk-org-file)))

15

(update-id self)

16

self))

17

18

(defmethods sk-load-component

19

(((kind (eql :org)) (form string) &optional (path (project-root)))

20

(sk-load-component kind (pathname form) path))

21

(((kind (eql :org)) (form pathname) &optional (path (project-root)))

22

(declare (ignore kind))

23

(let* ((name (namestring form))

24

(p (make-pathname :name name :type "org" :directory (namestring path)))

25

(comp (sk-convert (org-parse :document p))))

26

(setf (name comp) name)

27

(setf (path comp) p)

28

comp)))

29

30

(defmethod sk-compile ((self sk-org-file) &key)

31

nil)

32

33

;; (describe (sk-load-component :org #p"readme"))