#!/usr/bin/perl use v5.36; use strict; use utf8; =head1 NAME hedgedoc2quarto - convert HedgeDoc content to Quarto =head1 VERSION Version 0.0.1 =head1 SYNOPSIS hedgedoc2quarto INFILE OUTFILE hedgedoc2quarto < INFILE > OUTFILE =head1 DESCRIPTION B reformats text content from HedgeDoc- to Quarto-flavored Markdown, and adapts embedded diagram code. Both HedgeDoc and Quarto uses Markdown, but different flavors, and whereas both handle (different subsets of) Mermaid diagrams, Quarto also (through plugins) handles PlantUML diagrams. =cut # slurp INFILE if passed as first argument, or else STDIN my ( $infile, $outfile, $bogus ) = @ARGV; die 'Too many arguments: expected INFILE and OUTFILE' if $bogus; @ARGV = ($infile) if $infile; my $content = do { local $/ = undef; <> }; # TODO: integrate with subroutine handler below $content =~ s/^ (?'fence'[``~]{3,})\s* \Kgraphviz\n (?'code'.*?\n) \k'fence' $/{dot}\n\/\/| fig-width: 100\%\n$+{code}$+{fence}/gsmx; $content =~ s/^ (?'fence'[``~]{3,})\s* \Kmermaid\n (?'type'gantt)\n (?'code'.*?\n) \k'fence' $/ # FIXME: implement option to choose output diagram language # "{mermaid}\n\%\%| fig-width: 100\%\n" # . &mmd2mmd( $+{type}, $+{code} ) "{.plantuml}\n\%\%| fig-width: 100\%\n" . &mmd2puml( $+{type}, $+{code} ) . $+{fence} /gsmex; if ($outfile) { open( FH, '>', $outfile ) or die $!; print FH $content; } else { print $content; } sub mmd2mmd ( $type, $code ) { # strip special comment marker '%%QUARTO%%' $code =~ s/^\s*+\K%%QUARTO%%//gm; return "$type\n$code"; } sub mmd2puml ( $type, $code ) { my @newcode; # strip special comment marker '%%QUARTO%%' $code =~ s/^\s*+\K%%QUARTO%%//gm; open my $fh, '<', \$code or die $!; while (<$fh>) { /^\s*+$/ and push @newcode, '' and next; /^(\s*+)%%PLANTUML%%\K.*/ and push @newcode, "$1$&" and next; # convert comments markers /^(\s*+)(?:[%]{2,}(?'comment'\s*+))?+\K.*/; my $indent = defined( $+{comment} ) ? "$1'$2" : $1; $_ = $&; /^title\s/i and push @newcode, "${indent}$_" and next; /^excludes\s+weekends\b/i and push @newcode, "${indent}saturday are closed" and push @newcode, "${indent}sunday are closed" and next; /^weekday\s+\K(?:mon|tues|wednes|thurs|fri|satur|sun)day\b/i and push @newcode, "${indent}weeks start on $&" and next; /^(?:date|axis)Format\s/i and push @newcode, "${indent}'UNSUPPORTED: $_" and next; /^todayMarker\s+(off|on)\b/i and push @newcode, "${indent}'UNSUPPORTED' $_" and next; /^section\s+\K\S+(?:\s+\S+)*/i and push @newcode, "${indent}-- $& --" and next; if (/^tickInterval\s+(?'tickAmount'\d+)(?'tickUnit'millisecond|second|minute|hour|day|week|month)\s*$/i ) { push @newcode, "${indent}projectscale daily" and next if $+{tickAmount} eq 1 and $+{tickUnit} eq 'day'; push @newcode, "${indent}projectscale weekly" and next if $+{tickAmount} eq 1 and $+{tickUnit} eq 'week'
  1. SSH_HOST = www-ruc@xayide.jones.dk
  2. SSH_BASE_PATH = public_websites/thoughtroam.abcde.../
  4. BASE_SSH = $(SSH_HOST):$(SSH_BASE_PATH)
  5. BASE_IRI = https://thoughtroam.abcdefghijklmnopqrstuvxyzæøå.dk/
  6. BASE_URI = https://thoughtroam.xn--abcdefghijklmnopqrstuvxyz-0fc0a81c.dk/
  8. PAD_ARTICLES = worlding
  9. ARTICLES = waste worlding
  11. ONTOLOGIES = learn waste
  12. ONTOLOGIES_VERSION = 0.1
  14. GRAPHS = $(patsubst ex/%.ttl,%,$(wildcard ex/*.ttl))
  16. PERL_FILES = bin/biblatex-tidy bin/hedgedoc2quarto bin/xmp2rdfxml
  18. TIDY_MARKDOWN = worlding
  20. export HEDGEDOC_COOKIES_FILE = $(CURDIR)/cookies.txt
  21. export HEDGEDOC_SERVER = https://pad.degrowth.net/
  23. all: preview
  25. preview:
  26. quarto preview
  28. render:
  29. quarto render
  31. publish:
  32. rsync -avH --delete-after _site/ $(BASE_SSH)
  34. prepare: $(patsubst %,learn/$(ONTOLOGIES_VERSION)/%.ttl,core tentacular)
  36. learn/$(ONTOLOGIES_VERSION)/%.ttl: learn/%.ttl
  37. mkdir --parents learn/0.1
  38. perl -p \
  39. -e 's,\b$(subst tentacular,learn10tac,$(subst core,learn,$*)):,:,g;' \
  40. -e 's,\Q$(BASE_URI)stub/foaf#,http://xmlns.com/foaf/0.1/,g;' \
  41. -e 's,\Q$(BASE_URI)stub/doap#,http://usefulinc.com/ns/doap#,g;' \
  42. -e 's,purl\.org/learn/\K(?=[^\d]),$(ONTOLOGIES_VERSION)/,g;' \
  43. < $< > $@
  45. cal-all: cal-fetch cal-render cal-publish
  47. cal-fetch:
  48. bin/cal-fetch.sh
  50. cal-render:
  51. bin/cal-publish.sh
  53. cal-publish:
  54. ssh $(SSH_HOST) mkdir -p $(SSH_BASE_PATH)events/
  55. rsync -avH --delete-after $(patsubst %,events/%,$(ARTICLES) superteam) $(BASE_SSH)events/
  57. pad-login:
  58. hedgedoc login --email
  60. pad-list:
  61. hedgedoc history
  63. pad-export-all: $(PAD_ARTICLES:%=pad-export-%)
  65. pad-export-worlding: ref.bib worlding/index.qmd \
  66. $(patsubst %,worlding/_%.qmd,baggrund teori_og_metode undersøgelser konklusion perspektivering kilder planer)
  68. ref.bib:
  69. hedgedoc export --md 8krqOrqnR0iAIExDTtTrxw $@
  70. perl -g -e 's/\s*\z/\n/' $@
  72. worlding/index.qmd:
  73. hedgedoc export --md MJei_2e-SjahCtmRT-xiPw $@
  74. perl -g -e 's/\s*\z/\n/' $@
  76. worlding/_baggrund.qmd:
  77. hedgedoc export --md mGHhKvXyQ5SVeTIU11isQQ $@
  78. perl -g -e 's/\s*\z/\n/' $@
  80. worlding/_teori_og_metode.qmd:
  81. hedgedoc export --md 5AbKoR-mTOij6TsCMFFDRw $@
  82. perl -g -e 's/\s*\z/\n/' $@
  84. worlding/_undersøgelser.qmd:
  85. hedgedoc export --md 5XR69V5rSEm9LwsLNtSXcQ $@
  86. perl -g -e 's/\s*\z/\n/' $@
  88. worlding/_konklusion.qmd:
  89. hedgedoc export --md ofRbx2f4QcWLR-o_kqTNCQ $@
  90. perl -g -e 's/\s*\z/\n/' $@
  92. worlding/_perspektivering.qmd:
  93. hedgedoc export --md lU8aUxCkR5GNrP-8frklFA $@
  94. perl -g -e 's/\s*\z/\n/' $@
  96. worlding/_kilder.qmd:
  97. hedgedoc export --md Jt6S4tAhQM-BUrAP-OllCg $@
  98. perl -g -e 's/\s*\z/\n/' $@
  100. worlding/_planer.qmd:
  101. hedgedoc export --md qfFl3xiaQWCbpoyNPbNsEA $@~
  102. bin/hedgedoc2quarto $@~ $@
  104. $(PAD_ARTICLES:%=pad-import-%): pad-import-%:
  105. hedgedoc import $*/index.qmd
  107. pad-import-ref:
  108. hedgedoc import ref.bib
  110. lint: lint-markdown
  112. lint-markdown:
  113. @mdl --ignore-front-matter --style .mdl.rb $(filter-out %/index.qmd,$(wildcard $(addsuffix /*.qmd,$(TIDY_MARKDOWN))))
  115. tidy: tidy-bibtex tidy-perl
  117. tidy-bibtex: ref.bib
  118. bin/biblatex-tidy $<
  120. tidy-perl:
  121. perltidy -b -bext='/' --profile=.perltidyrc $(PERL_FILES)
  123. $(ARTICLES:%=screening-of-%): screening-of-%:
  124. QUARTO_LOG_LEVEL=quiet \
  125. quarto render $*/index.qmd --to man --output - | man -l -
  127. $(ARTICLES:%=wordcount-of-%): wordcount-of-%:
  128. QUARTO_LOG_LEVEL=quiet \
  129. quarto render $*/index.qmd --to plain --columns=9999 --output - \
  130. | perl -nE 'next if /^-*$$/; $$bilag += $$_ =~ "^Bilag\\b"; $$chars += length unless $$bilag; END { say $$chars }'
  132. $(ARTICLES:%=turtle-from-%): turtle-from-%:
  133. @bin/xmp2rdfxml _site/$*/S*.pdf \
  134. | rapper -i rdfxml -o turtle - $(BASE_IRI)$*/
  136. $(ARTICLES:%=dotgraph-from-%): dotgraph-from-%:
  137. @bin/xmp2rdfxml _site/$*/S*.pdf \
  138. | rapper -i rdfxml -o dot - $(BASE_IRI)$*/
  140. diff-all: $(ARTICLES:%=diff-of-%)
  142. $(ARTICLES:%=diff-of-%): diff-of-%: %/changes.tex
  144. $(ARTICLES:%=%/changes.tex): %/changes.tex: %/a.tex %/b.tex
  145. latexdiff --type CULINECHBAR --subtype COLOR --replace-context2cmd '' $^ > $*/changes.tex
  146. perl -i -pe 's/\[pdftex\]{changebar}/[luatex]{changebar}/g' $*/changes.tex
  147. latexmk --gg --lualatex --cd --silent --Werror $*/changes.tex
  148. find $*/ -name 'changes.*' -not -name changes.pdf -delete
  149. rm -f $^
  151. $(ARTICLES:%=%/a.tex): %/a.tex:
  152. git switch --detach $(shell git describe --tags --abbrev=0)
  153. QUARTO_LOG_LEVEL=quiet \
  154. quarto render $*/index.qmd --to pdf -M keep-tex:true --output a.pdf
  155. mv --force $*/index.tex $@
  156. rm --force _site/a.pdf
  158. $(ARTICLES:%=%/b.tex): %/b.tex:
  159. git switch -
  160. QUARTO_LOG_LEVEL=quiet \
  161. quarto render $*/index.qmd --to pdf -M keep-tex:true --output b.pdf
  162. mv --force $*/index.tex $@
  163. rm --force _site/b.pdf
  165. %/concepts.svg: %/core.sdm
  166. sdml draw --diagram concepts -i $< -f svg -o $@
  168. %/er.svg: %/core.sdm
  169. sdml draw --diagram entity-relationship -i $< -f svg -o $@
  171. %/uml.svg: %/core.sdm
  172. sdml draw --diagram uml-class -i $< -f svg -o $@
  174. %.ttl: %.sdm
  175. sdml convert -i $< -f rdf -o $@ --no-color
  177. %/core.puml: %/core.ttl %/prefixes.ttl
  178. rdfpuml $<
  180. %/core.png: %/core.puml
  181. plantuml -tpng $<
  183. %/core.svg: %/core.puml
  184. plantuml -tsvg $<
  186. ex/%.puml: ex/%.ttl ex/prefixes.ttl
  187. rdfpuml $<
  189. ex/%.png: ex/%.puml
  190. plantuml -tpng $<
  192. ex/%.svg: ex/%.puml
  193. plantuml -tsvg $<
  195. %/docs/index.html: %/core.ttl
  196. mkdir --parents $*/docs
  197. ontospy gendocs --type 2 -x -o $(CURDIR)/$*/docs $<
  199. $(ONTOLOGIES:%=view-%-concept-diagram): view-%-concept-diagram: %/concepts.svg
  200. inkview $<
  202. $(ONTOLOGIES:%=view-%-er-diagram): view-%-er-diagram: %/er.svg
  203. inkview $<
  205. $(ONTOLOGIES:%=view-%-uml-diagram): view-%-uml-diagram: %/uml.svg
  206. inkview $<
  208. $(ONTOLOGIES:%=view-%-rdfs-graf): view-%-rdfs-graf: %/core.ttl
  209. rdfs2dot -f turtle $< | xdot -
  211. view-learn_tentacular-rdfs-graf: learn/tentacular.ttl
  212. rdfs2dot -f turtle $< | xdot -
  214. view-learn_all-rdfs-graf: learn/core.ttl learn/tentacular.ttl
  215. rdfs2dot -f turtle $^ | xdot -
  217. #$(ONTOLOGIES:%=view-%-puml-diagram): view-%-puml-diagram: %/core.svg
  218. # inkview $<
  219. $(ONTOLOGIES:%=view-%-puml-diagram): view-%-puml-diagram: %/core.png
  220. imv-wayland $<
  221. $(GRAPHS:%=view-%-puml-diagram): view-%-puml-diagram: ex/%.png
  222. imv-wayland $<
  224. $(ONTOLOGIES:%=render-%-ontology): render-%-ontology: %/docs/index.html
generated by cgit v1.2.3 (git 2.46.0) at 2025-08-20 06:57:12 +0000