1.4 KiB
1.4 KiB
title | desc | keywords | updated |
---|---|---|---|
Debug page | Testing out some stuff | nix, nixos, linux | 2022-03-27 |
Logo links:
This is a logo link in the middle of a text: [nani|h7x4/dotfiles]. Isnt' it kinda cool?
[nxo|environment.etc] [nxp|niv] [nani|h7x4/dotfiles] [ga|gitea/tea] [gl|gitlab-org/gitlab] rd|Company-wide email + 30,000 employees + auto-responders = ... wiki|Computer Programming [hg|>>=] [hk|pcre-heavy] so|YouTube iframe embed - full screen [crt|clap] [npm|unofficial-jisho-api] [pub|unofficial_jisho_api] [yt|dQw4w9WgXcQ]
Here's some haskell code:
titleRoute :: Metadata -> Maybe Routes
titleRoute metadata = constRoute <$> fileNameFromTitle metadata
where
slug :: String -> String
slug = T.unpack . (`T.append` ".html") . Slugger.toSlug . T.pack
ignore :: Eq a => a -> a -> Maybe a
ignore shouldBeIgnored value
| shouldBeIgnored == value = Nothing
| otherwise = Just value
fileNameFromTitle :: Metadata -> Maybe FilePath
fileNameFromTitle metadata = slug <$> (ignore "" =<< lookupString "title" metadata)