From e28f6464f9b6b68c9c5d9ffea8d1f5c2d78ccb39 Mon Sep 17 00:00:00 2001
From: pi-bot-01 <pi-bot-01@dominat.us>
Date: Thu, 26 Mar 2026 01:01:07 -0700
Subject: [PATCH] Initial commit

---
 stride-el.el | 124 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 124 insertions(+)
 create mode 100644 stride-el.el

diff --git a/stride-el.el b/stride-el.el
new file mode 100644
index 0000000..2cc21ed
--- /dev/null
+++ b/stride-el.el
@@ -0,0 +1,124 @@
+;;; Provides Stride minor mode.
+;;; 
+(require 'eww)
+(require 'eww-http-code-advice)
+
+(defgroup stride nil
+  "Stride custom group."
+  :group 'novels)
+
+(defcustom stride-nav-file (concat user-emacs-directory "stride-nav.el")
+  "File that Stride reads site navigation info from."
+  :group 'stride)
+
+;; (defcustom stride-nav
+;;   (with-temp-buffer
+;;     (insert-file-contents stride-nav-file)
+;;     (read (buffer-string)))
+;;   "Stride navigation list."
+;;   :type '()
+;;   :group 'stride)
+
+(defun stride-read-file ()
+  "Read `stride-nav' from `stride-nav-file' file."
+  (interactive)
+  (with-temp-buffer
+    (insert-file-contents stride-nav-file)
+    (setq stride-nav (read (buffer-string)))))
+
+(defun stride-write-file ()
+  "Write `stride-nav' to `stride-nav-file' file."
+  (interactive)
+  (let ((inhibit-message t))
+    (with-temp-buffer
+      (insert (pp stride-nav))
+      (write-file stride-nav-file))) )
+
+(defun stride-match ()
+  "Return matching stride-nav member."
+  (interactive)
+  ;; (defvar-local stride-nav '())
+  (catch 'break
+    (dolist (s stride-nav)
+      (if (string-match (car s) (plist-get eww-data :url))
+	  (progn
+	    (throw 'break s))))))
+
+(defun stride-head ()
+  "Attempt to match site in stride-nav list and go to chapter heading."
+  (interactive)
+  ;;; first version. Looks for error message string in buffer contents.
+  ;; (catch 'break
+  ;;   (unless
+  ;; 	(catch 'reload
+  ;; 	  (let ((line (buffer-substring-no-properties 1 (line-end-position))))
+  ;; 	    (mapcan
+  ;; 	     (lambda (substr)
+  ;; 	       (if (search substr line)
+  ;; 		   (throw 'break (eww-reload))))
+  ;; 	     '("400 Bad Request"
+  ;; 	       "404 File Not Found")))))
+  ;;   (eval (car (cdr (stride-match)))))
+
+  ;;; second version. Uses error code in eww-data to determine response. Requires eww-render-fix.
+  ;; (let ((status (third (plist-get eww-data :error))))
+  ;;   (if (member status '(400 404))
+  ;; 	(eww-reload)
+  ;;     (eval (nth 1 (stride-match)))))
+
+  ;;; Third version. Only gives eww-reload 3 tries.
+  (let ((status (third (plist-get eww-data :error)))
+	(tries (or (plist-get eww-data :tries) 1)))
+    (if (eq status 400)
+	(when (<= tries 3)
+	  (plist-put eww-data :tries (+ tries 1))
+	  (message "HTTP/1.1 ERROR 400, retry count: %i" (+ tries 1))
+	  (eww-reload))
+      (plist-put eww-data :tries 1)
+      (eval (second (stride-match)))))
+  )
+
+(defun stride-forward ()
+  "Goes to next chapter if in view, else advances to next page.
+TODO: move function definition to stride-nav for more flexibility
+when dealing with dificult sites. then eval the lisp here."
+  (interactive)
+  (move-to-window-line -1)
+  (setq-local bottom (point))
+  (move-to-window-line 0)
+  (if (re-search-forward
+       (car (cdr (cdr (stride-match))))
+       bottom t)
+      (progn
+  	(backward-char)
+  	(eww-follow-link))
+    (scroll-up-command)))
+
+(defun stride-eww-after-render-hook ()
+  (progn
+    (stride-head)))
+
+(setq stride-mode-map (make-sparse-keymap))
+(define-key stride-mode-map [?\s] 'stride-forward)
+;; (define-key stride-mode-map (kbd "<mouse-5>") 'stride-forward)
+
+(define-minor-mode stride-mode
+  "More intelligent space bar navigation."
+  :lighter " Stride"
+  :keymap stride-mode-map
+  (if stride-mode
+      (progn
+	(add-hook 'eww-after-render-hook 'stride-eww-after-render-hook nil t)
+	(setq stride-nav (with-temp-buffer
+				 (insert-file-contents stride-nav-file)
+				 (read (buffer-string))))
+	;; (setq-local stride-mode-on t)
+	;; (stride-update)
+	)
+    (remove-hook 'eww-after-render-hook 'stride-eww-after-render-hook t) ))
+
+(provide 'stride)
+
+;; Local Variables:
+;; nameless-current-name: "stride"
+;; End: