ian/resume
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adjust display to show ownership of work-projects by specific job

Browse source
This commit is contained in:
Ian Keane 2026-08-27 13:39:55 -04:00
parent 6e8d7bc106
commit 42cf5fbeb7
3 changed files with 22 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

12
generate.scm
View file

@ -64,11 +64,12 @@
(p (@ (class "title-blurb"))
,(string-join (field tc 'blurb) " "))))
;; Emit a title card followed by its work-project cards as a flat list of siblings
;; Wrap title card + its project cards in a .job-group container
(define (render-title-flat tc)
(append
(list (render-title-card tc))
(map render-work-project (field tc 'projects))))
(list
`(div (@ (class "job-group"))
,(render-title-card tc)
,@(map render-work-project (field tc 'projects)))))
(define (render-education edu)
`(div (@ (class "education-card")
@ -102,8 +103,7 @@
(define (section->items sec)
(case (car sec)
((job)
(apply append (map render-title-flat (field sec 'titles))))
((education)
(apply append (map render-title-flat (field sec 'titles)))) ((education)
(list (render-education sec)))
((hobby-projects)
(map render-project (field sec 'projects)))