◊(Local Yarn Code "Check-in [ed07797d]")

Login
About History Code Code Docs Road Map Issues
Overview
Comment:Debugging whoopsie
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: ed07797d50ead6f3d1babee0c95510a039d7ef062cdd23d329d169d88408d406
User & Date: joel on 2020-03-14 22:13:01
Other Links: manifest | tags
Context
2020-03-14
22:46
Add a bunch of articles check-in: 2fefe8bc user: joel tags: trunk, content
22:13
Debugging whoopsie check-in: ed07797d user: joel tags: trunk
21:32
Add version control links to notes [678cc6aeca1d9d31] check-in: 56b50a38 user: joel tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dust.rkt from [43068c7c] to [eb603279]. 

1

2
3
4
5
6
7
8


1
2
3
4
5
6
7
8

-
+








#lang debug racket/base
#lang racket/base

; SPDX-License-Identifier: BlueOak-1.0.0
; This file is licensed under the Blue Oak Model License 1.0.0.

(require pollen/core
         pollen/pagetree
         pollen/setup
︙
127
128
129
130
131
132
133
134

135
136
137
138
139
140
141

127
128
129
130
131
132
133

134
135
136
137
138
139
140
141








-
+








    (when (file-exists? series-file)
      (case (system-type 'os)
        [(windows) (system (format "type nul >> ~a" series-file))]
        [else (system (format "touch ~a" series-file))]))))

;; Determine if the current article has been checked into Fossil repo
(define (checked-in?)
  (cond [#R (current-metas)
  (cond [(current-metas)
         (define articles-path (build-path (current-project-root) articles-folder))
         (define checked-in
           (with-output-to-string
             (lambda () (system (format "/usr/local/bin/fossil ls ~a" articles-path)))))
         (string-contains? checked-in (path->string (here-source-path)))]
        [else #f]))
︙

This page was generated in about 0.011s by Fossil 2.19 [318ab802db] 2022-05-27 02:05:21