adding link rendering toggle

1 files changed, 43 insertions, 7 deletions

diff --git a/luwak.el b/luwak.el
index e82f8cf..c8e5470 100644
--- a/luwak.el
+++ b/luwak.el
@@ -40,7 +40,8 @@ When non-nill, swap the tor-switch in prefix-arg effect."
 (defcustom luwak-render-link-function 'luwak-render-link-id
   "Function to render a link."
   :group 'luwak :type '(choice (const luwak-render-link-id)
-                               (const luwak-render-link-forward-sexp)))
+                               (const luwak-render-link-forward-sexp)
+                               (const luwak-render-link-hide-link)))
 
 (put luwak-history 'history-length luwak-max-history-length)
 
@@ -66,10 +67,27 @@ When non-nill, swap the tor-switch in prefix-arg effect."
     (define-key kmap "o" 'luwak-open)
     (define-key kmap "s" 'luwak-search)
     (define-key kmap "d" 'luwak-save-dump)
+    (define-key kmap "j" 'imenu)
+    (define-key kmap "t" 'luwak-toggle-links)
     kmap))
 
 (define-derived-mode luwak-mode special-mode (luwak-mode-name)
-  "Major mode for browsing the web using lynx -dump.")
+  "Major mode for browsing the web using lynx -dump."
+  (setq-local imenu-create-index-function #'luwak-imenu-create-index
+              imenu-space-replacement " "
+              imenu-max-item-length nil
+              imenu-auto-rescan t))
+
+(defun luwak-imenu-create-index ()
+  (goto-char (point-min))
+  (let ((index) (position))
+    (while (re-search-forward "^[^[:space:]]" nil t)
+      (push (cons (buffer-substring-no-properties
+                   (setq position (1- (point)))
+                   (progn (end-of-line 1) (point)))
+                  position)
+            index))
+    (reverse index)))
 
 (defun luwak-open (url)
   "Open URL in luwak."
@@ -115,13 +133,27 @@ When non-nill, swap the tor-switch in prefix-arg effect."
     (unless (derived-mode-p 'luwak-mode) (luwak-mode))
     (setq luwak-data (list :url url :no-tor no-tor
                            :history-pos history-pos :dump dump))
-    (let ((inhibit-read-only t))
-      (erase-buffer)
-      (insert dump)
-      (luwak-render-links (luwak-get-links)))
+    (luwak-insert-and-render)
     (setq mode-name (luwak-mode-name))
     (goto-char (point-min))))
 
+(defun luwak-toggle-links ()
+  (interactive)
+  (pcase luwak-render-link-function
+    ('luwak-render-link-id
+     (setq luwak-render-link-function 'luwak-render-link-hide-link))
+    ('luwak-render-link-hide-link
+     (setq luwak-render-link-function 'luwak-render-link-forward-sexp))
+    (_
+     (setq luwak-render-link-function 'luwak-render-link-id)))
+  (save-excursion (luwak-insert-and-render)))
+
+(defun luwak-insert-and-render ()
+  (let ((inhibit-read-only t))
+    (erase-buffer)
+    (insert (plist-get luwak-data :dump))
+    (luwak-render-links (luwak-get-links))))
+
 (defun luwak-add-to-history ()
   (let ((history-delete-duplicates nil))
     (setq luwak-history (nthcdr (plist-get luwak-data :history-pos)
@@ -172,7 +204,7 @@ When non-nill, swap the tor-switch in prefix-arg effect."
       (goto-char (point-min))
       (let ((i 1))
         (dolist (url urls)
-          (luwak-render-link-id i url)
+          (funcall luwak-render-link-function i url)
           (setq i (1+ i)))))))
 
 (defun luwak-render-link-forward-sexp (idx url)
@@ -194,6 +226,10 @@ When non-nill, swap the tor-switch in prefix-arg effect."
                       'action 'luwak-follow-link
                       'face 'button)))
 
+(defun luwak-render-link-hide-link (idx _)
+  (when (re-search-forward (format "\\[%d\\]" idx) nil t)
+    (replace-match "")))
+
 (defun luwak-get-links ()
   "Get links and remove the reference section if any."
   (with-current-buffer luwak-buffer