Coverage report: /home/ellis/comp/core/lib/pod/cfg.lisp

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

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; cfg.lisp --- Pod Configs

2

3

;;

4

5

;;; Code:

6

(in-package :pod)

7

8

(defconfig podman-config (ast)

9

((machine :initarg :machine)

10

(containers :initarg :containers)

11

(registries :initarg :registries)

12

(storage :initarg :storage)))

13

14

(defmethod make-config ((self (eql :podman)) &rest args &key &allow-other-keys)

15

(apply 'make-instance 'podman-config args))

16

17

(defun load-podman-config (&optional (path *podman-config-directory*))

18

(when (probe-file *podman-config-directory*)

19

     (let ((machine (deserialize (merge-pathnames "podman/machine/qemu/podman-machine-default.json" path) :json))

20

(containers (deserialize (merge-pathnames "containers.conf" path) :toml))

21

(registries (deserialize (merge-pathnames "registries.conf" path) :toml))

22

(storage (deserialize (merge-pathnames "storage.conf" path) :toml)))

23

       (make-config :podman :containers containers :machine machine :registries registries :storage storage))))

24

25

(defun default-podman-config ()

26

(load-pod-config))