darwin.rkt

#lang darwin/config

;; Called early when Darwin launches. Use this to set parameters defined
;; in darwin/params.
(define/contract (init)
  (-> any)
  (current-scheme/host "https://racket-news.com")
  (current-title "Racket News")
  (current-author "Paulo Matos")
  (current-output-dir "public"))

;; Called once per post and non-post page, on the contents.
(define/contract (enhance-body xs)
  (-> (listof xexpr/c) (listof xexpr/c))
  ;; Here we pass the xexprs through a series of functions.
  (~> xs
      (syntax-highlight #:python-executable "python"
                        #:line-numbers? #t
                        #:css-class "source")
      (auto-embed-tweets #:parents? #t)
      (add-racket-doc-links #:code? #t #:prose? #f)))

;; Called from `raco darwin --clean`.
(define/contract (clean)
  (-> any)
  (void))