From 74f1b72891965cd4803e0d372c72d1a56ecb8de8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 13 Oct 2023 13:14:06 -0700 Subject: First version. --- mnpgr.tl | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100755 mnpgr.tl diff --git a/mnpgr.tl b/mnpgr.tl new file mode 100755 index 0000000..af3541b --- /dev/null +++ b/mnpgr.tl @@ -0,0 +1,27 @@ +#!/usr/bin/env txr + +(defvarl home-dir (getenv "HOME")) + +(defvarl mnpgr-dir (path-cat home-dir ".mnpgr-dir")) + +(defvarl vim-commands + (join-with "|" + '("hi def link CtrlHUnderline Special" + "hi def link CtrlHBold Keyword" + "set syntax=ctrlh" + "syntax match CtrlHHide /.\\b/ contained conceal" + "set conceallevel=2" + "set concealcursor=nc" + "map q :q!\r"))) + +(ensure-dir mnpgr-dir) + +(match @(or `@page(@section)` ;; for "man whatever" + `@page\\.@section`) ;; for "man -l file.1" + (getenv "MAN_PN") + (with-resources ((rendered-file (path-cat mnpgr-dir `@page.@section`) + (remove-path rendered-file))) + (with-stream (s (open-file rendered-file "w")) + (whilet ((line (get-line))) + (put-line line s))) + (sh `vim +'@{vim-commands}' '@{rendered-file}' < /dev/tty`))) -- cgit v1.2.3