Initial Commit

themes/hugo-theme-relearn/exampleSite/layouts/shortcodes/piratify.html

@@ -0,0 +1,97 @@
+{{- $langsrc := .Get 1 | default "en" }}
+{{- $langtrg := .Page.Language.Lang }}
+{{- $words := dict
+	"Hugo" "Cap'n Hugo"
+	"Info" "Ahoi"
+	"Note" "Avast"
+	"Tip" "Smarrrt Arrrse"
+	"Warning" "Arrr"
+	"good" "bloody"
+	"shortcode" "shorrrtcode"
+	"Shortcode" "Shorrrtcode"
+	"shortcodes" "shorrrtcodes"
+	"Shortcodes" "Shorrrtcodes"
+	"Mermaid" "Merrrmaid"
+	"Markdown" "Marrrkdown"
+	"Markup" "Marrrkup"
+	"markup" "marrrkup"
+	"for" "fer"
+	"Your" "Yer"
+	"your" "yer"
+	"You" "Ye"
+	"you" "ye"
+	"the" "th'"
+	"The" "Th'"
+	"is" "be"
+	"Is" "Be"
+	"are" "be"
+	"Are" "Be"
+	"Of" "O'"
+	"of" "o'"
+	"To" "T'"
+	"to" "t'"
+	"in" "'n"
+	"With" "Wit'"
+	"with" "wit'"
+	"Where" "Whar'"
+	"where" "whar'"
+	"After" "Aft"
+	"after" "aft"
+	"And" "An'"
+	"and" "an'"
+	"Load" "Board"
+	"load" "board"
+	"Loaded" "Boarded"
+	"loaded" "boarded"
+	"Content" "Rambling"
+	"content" "rambling"
+	"icon" "ay'con"
+	"Icon" "Ay'con"
+	"icons" "ay'cons"
+	"Icons" "Ay'cons"
+	"syntax" "rules"
+	"Syntax" "Rules"
+	"Site" "Ship"
+	"site" "ship"
+	"Page" "Plank"
+	"page" "plank"
+	"Pages" "Planks"
+	"pages" "planks"
+	"Relearn" "Relearrrn"
+	"Learn" "Learrrn"
+}}
+{{- $specials := dict
+	"(\\w)ing([\\s\\n<.,;?!:])" "'n"
+	"(\\w)ings([\\s\\n<.,;?!:])" "'ns"
+	"(\\w)tion([\\s\\n<.,;?!:])" "t'n"
+	"(\\w)tions([\\s\\n<.,;?!:])" "t'ns"
+	"(\\w)(?:[aeiou])ble([\\s\\n<.,;?!:])" "'ble"
+	"(\\w)(?:[aeiou])mize([\\s\\n<.,;?!:])" "'mize"
+	"(\\w)(?:[aeiou])mizes([\\s\\n<.,;?!:])" "'mizes"
+	"(\\w)(?:[aeiou])nize([\\s\\n<.,;?!:])" "'nize"
+	"(\\w)(?:[aeiou])nizes([\\s\\n<.,;?!:])" "'nizes"
+	"(.)=\"/([^\".]*?\")" (printf "=\"/%s/" $langtrg)
+}}
+{{- $fix := dict
+	"warn'n" "warning"
+	"sect'n" "section"
+	"n Cap'n" "n"
+	"Documentat'n fer Cap'n Hugo Relearrrn Theme" "Documentation for Hugo Relearn Theme"
+	"Avast right o' John" "Note right of John"
+}}
+{{- $c := "" }}
+{{- range .Page.Translations }}
+	{{- if eq .Language.Lang $langsrc }}
+		{{- $c = .Content }}
+		{{- range $from, $to := $words }}
+			{{- $c = replaceRE (printf "([\\s\\n>])%s([\\s\\n<.,;?!:])" $from) (printf "${1}%s${2}" $to) $c }}
+		{{- end }}
+		{{- range $from, $to := $specials }}
+			{{- $c = replaceRE $from (printf "${1}%s${2}" $to) $c }}
+		{{- end }}
+		{{- range $from, $to := $fix }}
+			{{ $c = replace $c $from $to }}
+		{{- end }}
+	{{- end }}
+{{- end }}
+{{- $c | safeHTML }}