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.