chris/lumina-iced
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

adding the basis for the full slide system

Browse source
This commit is contained in:
Chris Cochrun 2024-11-06 10:51:01 -06:00
parent d4b40dbdc4
commit 66c37775d1
15 changed files with 1575 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

32
test_presentation.lisp
View file

@ -1,13 +1,19 @@
(slide (image :source "~/pics/frodo.jpg" :fill crop
(text "This is frodo" :font-size 50)))
;; (slide ((background . ((path . "cool.jpg")
;; (kind . Image)))
;; (text . "hi")
;; (font . "quicksand")
;; (id . 0)
;; (font_size . 50)
;; (text_alignment . MiddleCenter)
;; (video_loop . #f)
;; (video_start_time . 0.0)
;; (video_end_time . 0.0)))
(slide :background (image :source "~/pics/frodo.jpg" :fit crop)
(text "This is frodo" :font-size 50))
(slide (video :source "~/vids/test/chosensmol.mp4" :fit fill))
(song :author "Jordan Feliz" :ccli 97987
:font "Quicksand" :font-size 80
:title "The River"
:background (image :source "./coolbg.jpg")
(text "I'm going down to the river")
(text "Down to the river")
(text "Down to the river to pray ay ay!"))
(song :author "Jordan Feliz" :ccli 97987
:font "Quicksand" :font-size 80
:title "The River"
:background (video :source "./coolerbg.mkv" :fit cover)
:verse-order (v1 c1 v2 c1)
(v1 "I'm going down to the river")
(c1 "Down to the river")
(v2 "Down to the river to pray ay ay!"))
(load "./10000-reasons.lisp")