~zainab/blog

527587a71f6951ba4b5c06737d27d5983735259b — zainab-ali 7 months ago ee367f1
Fix Kalam font and reformat
4 files changed, 10 insertions(+), 9 deletions(-)

M shell.nix
M src/main.css.pp
M src/pollen.rkt
M src/sitemap.rkt
M shell.nix => shell.nix +2 -0
@@ 25,6 25,7 @@ let
    writeScriptBin "gen-snippets"
    ''
    #!${stdenv.shell}
     set -ex
     cp -rf ${snippets.out}/* src
     chmod -R u+w src
    '';


@@ 46,6 47,7 @@ mkShell {
                 scala
                 coursier
                 serve
                 kalam
                 fontLocal
                 snippetsLocal
                 faviconLocal

M src/main.css.pp => src/main.css.pp +1 -1
@@ 16,7 16,7 @@
}

header h1.bookTitle {
  font-family: Source Serif Pro;
  font-family: "Kalam", "Source Serif Pro";
  font-size: 36px;
}


M src/pollen.rkt => src/pollen.rkt +6 -7
@@ 23,15 23,14 @@
         external-link
         image
         diagram
         abstract
         )
         abstract)

(module setup racket/base
(require racket/runtime-path)
(provide (all-defined-out))
(define-runtime-path structure "structure.rkt")
(define-runtime-path favicon "favicon.rkt")
(define cache-watchlist (list structure favicon)))
  (require racket/runtime-path)
  (provide (all-defined-out))
  (define-runtime-path structure "structure.rkt")
  (define-runtime-path favicon "favicon.rkt")
  (define cache-watchlist (list structure favicon)))

;;; Author’s comments
(define (todo . text) "")

M src/sitemap.rkt => src/sitemap.rkt +1 -1
@@ 7,7 7,7 @@
(define (sitemap-url page)
  `(url
    (loc ,(format "~a/~a" baseurl page))
   (changefreq "daily")))
    (changefreq "daily")))

(define sitemap
  (let ([base `(url (loc ,baseurl) (changefreq "daily"))]