Check-in by ben on 2025-04-11 21:04:36

 Fix navigation to avoid moving the cursor to blank spots in the
 periodic table. Add Wikipedia link when displaying an individual
 element. Bump version to 2.

 INSERTED    DELETED
       48         22 periodic.awk
       48         22 TOTAL over 1 changed file

Index: periodic.awk
==================================================================
--- periodic.awk
+++ periodic.awk
@@ -1,6 +1,6 @@
-# periodic.awk version 1 by Ben Collver
+# periodic.awk version 2 by Ben Collver
#
# Generate static gopher content for the periodic table of elements.
#
# Edit gopher_dir, gopher_host, and gopher_port in function main()
#
@@ -165,47 +165,67 @@

    # navigation

    str = "Left"
    if (table_col[element] > 1) {
-        key = table_row[element] "_" (table_col[element] - 1)
-        path = gopher_dir "/element/" table[key] "/"
-        printf "[1|%s|%s|%s|%s]\n", str, path, gopher_host, gopher_port >>f
-    } else {
-        printf "%s\n", str >>f
+        for (i = table_col[element] - 1; i >= 1; i--) {
+            key = table_row[element] "_" i
+            if (length(table[key]) > 0) {
+                path = gopher_dir "/element/" table[key] "/"
+                str = sprintf("[1|Left|%s|%s|%s]", path, \
+                    gopher_host, gopher_port)
+                break
+            }
+        }
    }
+    print str >>f

    str = "Up"
    if (table_row[element] > 1) {
-        key = (table_row[element] - 1) "_" table_col[element]
-        path = gopher_dir "/element/" table[key] "/"
-        printf "[1|%s|%s|%s|%s]\n", str, path, gopher_host, gopher_port >>f
-    } else {
-        printf "%s\n", str >>f
+        for (i = table_row[element] - 1; i >= 1; i--) {
+            key = i "_" table_col[element]
+            if (length(table[key]) > 0) {
+                path = gopher_dir "/element/" table[key] "/"
+                str = sprintf("[1|Up|%s|%s|%s]", path, gopher_host, \
+                    gopher_port)
+                break
+            }
+        }
    }
+    print str >>f

    str = "Down"
    if (table_row[element] < table["rows"]) {
-        key = (table_row[element] + 1) "_" table_col[element]
-        path = gopher_dir "/element/" table[key] "/"
-        printf "[1|%s|%s|%s|%s]\n", str, path, gopher_host, gopher_port >>f
-    } else {
-        printf "%s\n", str >>f
+        for (i = table_row[element] + 1; i <= table["rows"]; i++) {
+            key = i "_" table_col[element]
+            if (length(table[key]) > 0) {
+                path = gopher_dir "/element/" table[key] "/"
+                str = sprintf("[1|Down|%s|%s|%s]", path, gopher_host, \
+                    gopher_port)
+                break
+            }
+        }
    }
+    print str >>f

    str = "Right"
    if (table_col[element] < table["cols"]) {
-        key = table_row[element] "_" (table_col[element] + 1)
-        path = gopher_dir "/element/" table[key] "/"
-        printf "[1|%s|%s|%s|%s]\n", str, path, gopher_host, gopher_port >>f
-    } else {
-        printf "%s\n", str >>f
+        for (i = table_col[element] + 1; i <= table["cols"]; i++) {
+            key = table_row[element] "_" i
+            if (length(table[key]) > 0) {
+                path = gopher_dir "/element/" table[key] "/"
+                str = sprintf("[1|Right|%s|%s|%s]", path, \
+                    gopher_host, gopher_port)
+                break
+            }
+        }
    }
+    print str >>f

    str = "List All"
    path = gopher_dir "/list/atomic/"
-    printf "[1|%s|%s|%s|%s]\n", str, path, gopher_host, gopher_port >>f
+    printf "[1|%s|%s|%s|%s]\n\n", str, path, gopher_host, gopher_port >>f

    # element detail

    cmd = "figlet " symbol
    printf "+--------------------+\n" >>f
@@ -223,10 +243,12 @@
    str = center(20, name)
    printf "|%s|\n", str >>f
    str = center(20, mass)
    printf "|%s|\n", str >>f
    printf "+--------------------+\n\n" >>f
+    str = sprintf("%-23s %s", "Wiki Article:", name)
+    print_wiki_item(f, str, name)
    print format_field(f, element, "Electron Configuration") >>f
    print format_field(f, element, "Electronegativity") >>f
    print format_field(f, element, "Atomic Radius") >>f
    print format_field(f, element, "Ionization Energy") >>f
    print format_field(f, element, "Electron Affinity") >>f
@@ -825,10 +847,14 @@
    printf "[9|Code (.zip)|%s/periodic.zip|%s|%s]\n", gopher_dir,
        gopher_host, gopher_port >>f
    close(f)
    return
}
+
+function print_wiki_item(f, label, id) {
+    printf "[0|%s|/%s|gopherpedia.com|70]\n", label, id >>f
+}

function print_wrap(str, wraplen, outfile,    after, before, buf, chunk) {
    buf = str
    while (length(buf) > wraplen) {
        chunk = substr(buf, 0, wraplen)

You are viewing proxied material from tilde.pink. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.