This is a random post where I try stuff for the blog.

This is an example

This is a quote

This sentence is marked.

Code blocks

Hy:

(defn get-digest [file-path]
  (setv hash (.sha1 hashlib))
  (setv block-size (. hash block_size))
  (with [f (open file-path "rb")]
    (reduce (fn [acc chunk]
              (.update hash chunk))
            (iter (fn [] (.read f block-size))
                  b"")
            hash))
  (.hexdigest hash))

Haskell:

1
2
3

primes = filterPrime [2..]
  where filterPrime (p:xs) =
          p : filterPrime [x | x <- xs, x `mod` p /= 0]

Continuing

Elisp:

4
5
6
7
8

(let ((files (directory-files-recursively "content-org/" "\\.org$")))
  (dolist (file files)
          (save-excursion
            (with-current-buffer (find-file file)
              (org-hugo-export-wim-to-md :all-subtrees nil nil :noerrors)))))

Here monospace text. C-c is a keybinding.