projects / ~bandali / bndl.org / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: e02deb2)
add rel="alternate" links to articles and indices
authorAmin Bandali <bandali@gnu.org>
Sun, 10 Oct 2021 04:17:54 +0000 (00:17 -0400)
committerAmin Bandali <bandali@gnu.org>
Sun, 10 Oct 2021 04:17:54 +0000 (00:17 -0400)
GNUmakefile patch | blob | blame | history
fa/fsf-internship-beyond.fa.txt patch | blob | blame | history
txt2html patch | blob | blame | history

diff --git a/GNUmakefile b/GNUmakefile
index f5b4014..d791a55 100644 (file)
--- a/GNUmakefile
+++ b/GNUmakefile
@@ -8,8 +8,7 @@
 # without any warranty.
 
 
 # without any warranty.
 
 
-gen = perl txt2html < $< > $@
-gen_fa = perl txt2html --lang='fa' < $< > $@
+gen-html = perl txt2html $(1) < $< > $@
 port := $(if $(port),$(port),8000)
 
 TXT := $(filter-out bandali-pubkey.txt bandali.txt,$(wildcard *.txt))
 port := $(if $(port),$(port),8000)
 
 TXT := $(filter-out bandali-pubkey.txt bandali.txt,$(wildcard *.txt))
@@ -22,13 +21,13 @@ OUT_FA := $(patsubst fa/bandali-%.html,fa/%.html,$(OUT_FA))
 
 all: $(OUT) $(OUT_FA) index.html fa/index.html
 
 
 all: $(OUT) $(OUT_FA) index.html fa/index.html
 
-%.html: bandali-%.txt ; $(gen)
-%.html: %.txt ; $(gen)
-index.html: bandali.txt ; $(gen)
+%.html: bandali-%.txt; $(gen-html)
+%.html: %.txt; $(gen-html)
+index.html: bandali.txt; $(call gen-html,--index)
 
 
-fa/%.html: fa/bandali-%.fa.txt ; $(gen_fa)
-fa/%.html: fa/%.fa.txt ; $(gen_fa)
-fa/index.html: fa/bandali.fa.txt ; $(gen_fa)
+fa/%.html: fa/bandali-%.fa.txt; $(call gen-html,--lang='fa')
+fa/%.html: fa/%.fa.txt; $(call gen-html,--lang='fa')
+fa/index.html: fa/bandali.fa.txt; $(call gen-html,--lang='fa' --index)
 
 
 clean:
 
 
 clean:
diff --git a/fa/fsf-internship-beyond.fa.txt b/fa/fsf-internship-beyond.fa.txt
index 5826162..5634f75 100644 (file)
--- a/fa/fsf-internship-beyond.fa.txt
+++ b/fa/fsf-internship-beyond.fa.txt
@@ -101,4 +101,3 @@ without any warranty.
 شوند.  این پرونده به صورت موجود و بدون هیچ گونه ضمانت ارائه می‌شود.
 
 متن ساده: https://bndl.org/fa/fsf-internship-beyond.fa.txt
 شوند.  این پرونده به صورت موجود و بدون هیچ گونه ضمانت ارائه می‌شود.
 
 متن ساده: https://bndl.org/fa/fsf-internship-beyond.fa.txt
-
diff --git a/txt2html b/txt2html
index f2a23d9..5b0acb8 100644 (file)
--- a/txt2html
+++ b/txt2html
@@ -26,7 +26,9 @@ use warnings 'all';
 use Getopt::Long;
 
 my $opt_lang = 'en';
 use Getopt::Long;
 
 my $opt_lang = 'en';
-GetOptions ('lang=s' => \$opt_lang)
+my $opt_index;
+GetOptions ('lang=s' => \$opt_lang,
+            'index' => \$opt_index)
     or die("bad command line arguments\n");
 
 my $link_re =
     or die("bad command line arguments\n");
 
 my $link_re =
@@ -101,21 +103,34 @@ if ($opt_lang eq 'fa') {
 } else {
     $title .= ' &mdash; bandali' if $title !~ /bandali/;
 }
 } else {
     $title .= ' &mdash; bandali' if $title !~ /bandali/;
 }
+my ($url) = $txt =~ /(?:plain text|متن ساده): (.*)\r?\n?\z/;
+$url = 'https://bndl.org/bandali-cv.txt'
+    if (!$url and $title =~ /curriculum vitae/);
+$url = html_esc($url) if $url;
 
 $txt = linkify(html_esc($txt));
 
 
 $txt = linkify(html_esc($txt));
 
-print('<!doctype html>',
+print("<!doctype html>",
       qq(<html lang="$opt_lang"),
       qq(<html lang="$opt_lang"),
-      $opt_lang eq 'fa' ? ' dir="rtl"' : '', '>',
-      '<head><meta
-http-equiv="Content-Type"
-content="text/html; charset=utf-8"
-/>',
-      "<title>$title</title>",
+      $opt_lang eq 'fa' ? ' dir="rtl"' : '',
+      ">",
+      qq(<head>
+<meta http-equiv="Content-Type"
+content="text/html; charset=utf-8" />\n),
+      "<title>$title</title>\n",
+      $url ? qq(<link rel="alternate" href="$url"
+title="plain text" type="text/plain" />\n) : '',
+      ($opt_index and $opt_lang eq 'en')
+      ? qq(<link rel="alternate" href="https://bndl.org/fa/"
+hreflang="fa" title="persian" />\n)
+      : ($opt_index and $opt_lang eq 'fa')
+      ? qq(<link rel="alternate" href="https://bndl.org/"
+hreflang="en" title="english" />\n)
+      : '',
       $opt_lang eq 'fa'
       $opt_lang eq 'fa'
-      ? "\n<style>\@font-face{font-family:sahel;font-weight:normal;
+      ? qq(<style>\@font-face{font-family:sahel;font-weight:normal;
 src:local('Sahel WOL'),local('Sahel'),
 src:local('Sahel WOL'),local('Sahel'),
-url('sahel.woff2')format('woff2');}pre{font-family:sahel}</style>\n"
+url('sahel.woff2')format('woff2');}pre{font-family:sahel}</style>\n)
       : '',
       : '',
-      '</head><body><pre>', $txt, '</pre></body></html>');
+      "</head><body><pre>$txt</pre></body></html>\n");
 STDOUT->flush;
 STDOUT->flush;
Sources for my personal site