From ccb2aa148e25e4033cd89583ab7f7f3a04d701d3 Mon Sep 17 00:00:00 2001
From: Derek Stevens <nilix@nilfm.cc>
Date: Thu, 7 Apr 2022 15:52:36 -0600
Subject: [PATCH] update Toolbox and scripts

---
 Toolbox        |  5 +++--
 scripts/F+     | 17 +++++++++++++++++
 scripts/F-     | 16 ++++++++++++++++
 scripts/Slide  |  5 +++++
 scripts/Slide+ | 23 +++++++++++++++++++++++
 scripts/Slide- | 17 +++++++++++++++++
 6 files changed, 81 insertions(+), 2 deletions(-)
 create mode 100755 scripts/F+
 create mode 100755 scripts/F-
 create mode 100755 scripts/Slide
 create mode 100755 scripts/Slide+
 create mode 100755 scripts/Slide-

diff --git a/Toolbox b/Toolbox
index fa03e3c..db81408 100644
--- a/Toolbox
+++ b/Toolbox
@@ -3,6 +3,7 @@
 [ Edit 1,$-1d ] # clear win
 [ Edit x/^[ ]*/ a/# / ] # comment (replace # with comment prefix)
 [ Edit x/^[ ]*# ?/ x/# ?/d ] # uncomment (replace # with comment prefix)
-[ Edit s/^[ ][ ]//g ] # unindent
-[ Edit s/^/  /g ] # indent
+[ Edit s/^([ ][ ]|[\t]//g ] # unindent (2 spaces or tab)
+[ Edit s/^/  /g ] # indent 2 spaces
+[ Edit s/^/\t/g ] #indent tabs
 [ Edit x/[^\n]\n[^\n]/ s/\n/ / ] # join lines
\ No newline at end of file
diff --git a/scripts/F+ b/scripts/F+
new file mode 100755
index 0000000..d899e32
--- /dev/null
+++ b/scripts/F+
@@ -0,0 +1,17 @@
+#!/bin/sh
+
+nx=1
+
+if [ ! -z "$1" ]; then
+	nx=$1
+fi
+
+ctl=$(9p read acme/$winid/ctl)
+set -- $ctl
+size=$(echo $7 | awk -F/ '{print $5}')
+size=${size%a}
+newsize=$((size + nx))
+
+newfont=$(echo $7 | sed -e s/$size/$newsize/g)
+
+echo font ${newfont} | 9p write acme/${winid}/ctl
diff --git a/scripts/F- b/scripts/F-
new file mode 100755
index 0000000..a225736
--- /dev/null
+++ b/scripts/F-
@@ -0,0 +1,16 @@
+#!/bin/sh
+
+nx=1
+if [ ! -z "$1" ]; then
+	nx=$1
+fi
+
+ctl=$(9p read acme/$winid/ctl)
+set -- $ctl
+size=$(echo $7 | awk -F/ '{print $5}')
+size=${size%a}
+newsize=$((size - nx))
+
+newfont=$(echo $7 | sed -e s/$size/$newsize/g)
+
+echo font ${newfont} | 9p write acme/${winid}/ctl
\ No newline at end of file
diff --git a/scripts/Slide b/scripts/Slide
new file mode 100755
index 0000000..800d6fd
--- /dev/null
+++ b/scripts/Slide
@@ -0,0 +1,5 @@
+#!/bin/sh
+
+echo name $(pwd)/$1 | 9p write acme/${winid}/ctl
+echo clean | 9p write acme/${winid}/ctl
+echo get | 9p write acme/${winid}/ctl
\ No newline at end of file
diff --git a/scripts/Slide+ b/scripts/Slide+
new file mode 100755
index 0000000..df74eee
--- /dev/null
+++ b/scripts/Slide+
@@ -0,0 +1,23 @@
+#!/bin/sh
+
+tagdata=$(9p read acme/${winid}/tag)
+set -- ${tagdata}
+path=$1
+slide=$(basename ${path})
+oldifs=${IFS}
+IFS='
+'
+
+found=0
+for s in *; do
+  if [ ${found} -eq 1 ]; then
+    Slide ${s}
+    break;
+  fi
+    
+  if [ "${s}" != "${slide}" ]; then
+    continue
+  else
+    found=1
+  fi
+done
\ No newline at end of file
diff --git a/scripts/Slide- b/scripts/Slide-
new file mode 100755
index 0000000..e02897b
--- /dev/null
+++ b/scripts/Slide-
@@ -0,0 +1,17 @@
+#!/bin/sh
+
+tagdata=$(9p read acme/${winid}/tag)
+set -- ${tagdata}
+path=$1
+slide=$(basename ${path})
+IFS='
+'
+
+for s in *; do
+  if [ "${s}" != "${slide}" ]; then
+    newslide=${s}
+  else
+    Slide ${newslide}
+    break;
+  fi
+done
\ No newline at end of file