cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-01 04:26:47 +01:00
Code Issues

- [gemini] removed unused arg from 'refresh-gemini-message-window'.

Browse Source
This commit is contained in:
cage 2021-04-07 15:23:15 +02:00
parent 3ca18e1fd9
commit 149c6931f2
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/program-events.lisp
View File

@ -1047,13 +1047,11 @@
nil nil
"" ""
:comes-from-local-file t)) :comes-from-local-file t))
(text (gemini-parser:sexp->text parsed
gemini-client:*gemini-page-theme*))
(ir (gemini-parser:sexp->text-rows parsed (ir (gemini-parser:sexp->text-rows parsed
gemini-client:*gemini-page-theme*))) gemini-client:*gemini-page-theme*)))
(gemini-viewer:maybe-initialize-metadata window) (gemini-viewer:maybe-initialize-metadata window)
(gemini-viewer:add-url-to-history window index-path) (gemini-viewer:add-url-to-history window index-path)
(refresh-gemini-message-window links raw-text text ir nil) (refresh-gemini-message-window links raw-text ir nil)
(windows:draw window))) (windows:draw window)))
(t (t
(let* ((file-string (fs:slurp-file local-path)) (let* ((file-string (fs:slurp-file local-path))
@ -1065,12 +1063,10 @@
parent-dir parent-dir
:comes-from-local-file t)) :comes-from-local-file t))
(ir-text (gemini-parser:sexp->text-rows parsed (ir-text (gemini-parser:sexp->text-rows parsed
gemini-client:*gemini-page-theme*)) gemini-client:*gemini-page-theme*)))
(flat-text (gemini-parser:sexp->text parsed
gemini-client:*gemini-page-theme*)))
(gemini-viewer:maybe-initialize-metadata window) (gemini-viewer:maybe-initialize-metadata window)
(gemini-viewer:add-url-to-history window local-path) (gemini-viewer:add-url-to-history window local-path)
(refresh-gemini-message-window links file-string flat-text ir-text nil) (refresh-gemini-message-window links file-string ir-text nil)
(windows:draw window)))))))) (windows:draw window))))))))
(defclass gemini-back-event (program-event) ()) (defclass gemini-back-event (program-event) ())
@ -1094,7 +1090,7 @@
:reader skip-rendering-p :reader skip-rendering-p
:writer (setf skip-rendering)))) :writer (setf skip-rendering))))
(defun refresh-gemini-message-window (links source rendered-text ir-rows append-text) (defun refresh-gemini-message-window (links source ir-rows append-text)
(let* ((win specials:*message-window*) (let* ((win specials:*message-window*)
(window-metadata (message-window:metadata win))) (window-metadata (message-window:metadata win)))
(with-accessors ((rows message-window::rows)) win (with-accessors ((rows message-window::rows)) win
@ -1129,12 +1125,10 @@
(not (skip-rendering-p object))) (not (skip-rendering-p object)))
(let* ((win specials:*message-window*) (let* ((win specials:*message-window*)
(ir-line (gemini-parser:sexp->text-rows parsed-file (ir-line (gemini-parser:sexp->text-rows parsed-file
text-rendering-theme))
(rendered-line (gemini-parser:sexp->text parsed-file
text-rendering-theme))) text-rendering-theme)))
(setf (windows:keybindings win) (setf (windows:keybindings win)
keybindings:*gemini-message-keymap*) keybindings:*gemini-message-keymap*)
(refresh-gemini-message-window links source rendered-line ir-line append-text) (refresh-gemini-message-window links source ir-line append-text)
(windows:draw win)))))) (windows:draw win))))))
;; (defclass gemini-compact-lines-event (program-event) ;; (defclass gemini-compact-lines-event (program-event)
@ -1295,7 +1289,6 @@
(refresh-gemini-message-window links (refresh-gemini-message-window links
gemini-page gemini-page
(gemini-parser:sexp->text parsed theme) (gemini-parser:sexp->text parsed theme)
(gemini-parser:sexp->text-rows parsed theme)
nil) nil)
(setf (windows:keybindings specials:*message-window*) (setf (windows:keybindings specials:*message-window*)
keybindings:*gemini-message-keymap*) keybindings:*gemini-message-keymap*)