Commitd1c26626Recorded8 Jan 2026Repositorysigil-studio
Fix docstring comment format: section headers use ;; not ;;;
Message
- Changed section headers from ;;; to ;; (per CLAUDE.md guidelines)
- Section headers (=== lines and titles) shouldn't be parsed as docstrings
- Moved match macro docstring to be directly before define-syntax
- Added proper docstring to parse-git-url in sigil-git
Triple semicolons (;;;) are for exported function/macro documentation. Double semicolons (;;) are for internal comments and section headers.
Changed
examples/solitaire.sgl | 66 +++++++++++++++++++++++++++++++++---------------------------------
src/sigil/studio/app.sgl | 2 +-
2 files changed, 34 insertions(+), 34 deletions(-)Diff
examples/solitaire.sglmodified
@@ -16,9 +16,9 @@
16
(sigil studio graphics) 17
(sigil studio font)) 18
−19
;;; ============================================================−20
;;; CONSTANTS−21
;;; ============================================================+19
;; ============================================================+20
;; CONSTANTS+21
;; ============================================================ 22
23
;; Viewport size 24
(define SCREEN-WIDTH 800)@@ -59,9 +59,9 @@
59
(define DIM-CYAN-G 0.4) 60
(define DIM-CYAN-B 0.4) 61
−62
;;; ============================================================−63
;;; CARD DATA STRUCTURES−64
;;; ============================================================+62
;; ============================================================+63
;; CARD DATA STRUCTURES+64
;; ============================================================ 65
66
;; Card is a vector: #(suit rank face-up?) 67
;; Suits: 0=hearts, 1=diamonds, 2=clubs, 3=spades@@ -104,9 +104,9 @@
104
((13) "K") 105
(else (number->string rank)))) 106
−107
;;; ============================================================−108
;;; DECK CREATION AND SHUFFLING−109
;;; ============================================================+107
;; ============================================================+108
;; DECK CREATION AND SHUFFLING+109
;; ============================================================ 110
111
(define (make-deck) 112
(let ((deck '()))@@ -142,9 +142,9 @@
142
(loop (- i 1)))) 143
(vector->list vec))) 144
−145
;;; ============================================================−146
;;; GAME STATE−147
;;; ============================================================+145
;; ============================================================+146
;; GAME STATE+147
;; ============================================================ 148
149
(define *stock* '()) ;; Face-down draw pile 150
(define *waste* '()) ;; Face-up drawn cards@@ -164,9 +164,9 @@
164
(define *message* "") 165
(define *message-timer* 0.0) 166
−167
;;; ============================================================−168
;;; GAME INITIALIZATION−169
;;; ============================================================+167
;; ============================================================+168
;; GAME INITIALIZATION+169
;; ============================================================ 170
171
(define (init-game) 172
;; Seed random with time@@ -207,9 +207,9 @@
207
lst 208
(drop (cdr lst) (- n 1)))) 209
−210
;;; ============================================================−211
;;; SELECTION−212
;;; ============================================================+210
;; ============================================================+211
;; SELECTION+212
;; ============================================================ 213
214
(define (clear-selection) 215
(set! *selected-source* #f)@@ -288,9 +288,9 @@
288
(card-set-face-up! card #t) 289
(set! *waste* (cons card *waste*))))) 290
−291
;;; ============================================================−292
;;; MOVE VALIDATION AND EXECUTION−293
;;; ============================================================+291
;; ============================================================+292
;; MOVE VALIDATION AND EXECUTION+293
;; ============================================================ 294
295
(define (count-face-up pile) 296
(let loop ((pile pile) (count 0))@@ -387,9 +387,9 @@
387
(when (= total 52) 388
(show-message "YOU WIN!")))) 389
−390
;;; ============================================================−391
;;; MESSAGES−392
;;; ============================================================+390
;; ============================================================+391
;; MESSAGES+392
;; ============================================================ 393
394
(define (show-message msg) 395
(set! *message* msg)@@ -399,9 +399,9 @@
399
(when (> *message-timer* 0) 400
(set! *message-timer* (- *message-timer* dt)))) 401
−402
;;; ============================================================−403
;;; RENDERING−404
;;; ============================================================+402
;; ============================================================+403
;; RENDERING+404
;; ============================================================ 405
406
(define (draw-card-back x y selected?) 407
;; Card background@@ -528,9 +528,9 @@
528
(draw-tableau) 529
(draw-message)) 530
−531
;;; ============================================================−532
;;; INPUT HANDLING−533
;;; ============================================================+531
;; ============================================================+532
;; INPUT HANDLING+533
;; ============================================================ 534
535
(define (handle-input) 536
;; Quit@@ -564,9 +564,9 @@
564
(when (key-pressed? 'k) (select-tableau 5)) 565
(when (key-pressed? 'l) (select-tableau 6))) 566
−567
;;; ============================================================−568
;;; MAIN−569
;;; ============================================================+567
;; ============================================================+568
;; MAIN+569
;; ============================================================ 570
571
(define (on-init) 572
(set-viewport SCREEN-WIDTH SCREEN-HEIGHT)src/sigil/studio/app.sglmodified
@@ -28,7 +28,7 @@
28
(begin 29
;; Native functions are automatically available after native module init. 30
−31
;;; ========== Cooperative Frame Scheduler ==========+31
;; ========== Cooperative Frame Scheduler ========== 32
;;; 33
;;; The frame-loop pattern inverts control so Scheme code reads naturally: 34
;;;