mirror of https://codeberg.org/cage/tinmop/
- [gemini] ensure just a single gemini file is in rendering state at
the same time; - [gemini] add a newline to data before parsing a gemini file only when needed (thre is no one at the end); - commented and improved some regular expressions for coloring.
This commit is contained in:
parent
f6744dad4a
commit
0cfdb8844e
|
@ -84,11 +84,11 @@ color-regexp = "-?[0-9]+(.[0-9]+)?%" #ff00ff bold
|
|||
|
||||
# *bold*
|
||||
|
||||
color-regexp = "\*[^*]+\*" #ffff00 bold
|
||||
color-regexp = "\*[^[:space:]*]+\*" #ffff00 bold
|
||||
|
||||
# _underline_
|
||||
|
||||
color-regexp = "_[^_]+_" #ffff00 underline
|
||||
# color-regexp = "_[^_]+_" #ffff00 underline
|
||||
|
||||
# /italic/
|
||||
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
|
||||
(in-package :gemini-viewer)
|
||||
|
||||
(defparameter *gemini-db-streams-lock* (bt:make-recursive-lock))
|
||||
|
||||
(define-constant +read-buffer-size+ 1024
|
||||
:documentation "Chunk's size of the buffer when reading non gemini contents from stream")
|
||||
|
||||
|
@ -41,12 +43,21 @@
|
|||
(defun find-db-stream-url (url)
|
||||
(find-db-stream-if (lambda (a) (string= (download-uri a) url))))
|
||||
|
||||
(defun ensure-just-one-stream-rendering ()
|
||||
(with-lock (*gemini-db-streams-lock*)
|
||||
(when-let ((current-rendering (find-db-stream-if (lambda (a)
|
||||
(eq (stream-status a)
|
||||
:rendering)))))
|
||||
(setf (stream-status current-rendering) :streaming))))
|
||||
|
||||
(defun db-entry-to-foreground (uri)
|
||||
(when-let* ((stream-object (find-db-stream-url uri)))
|
||||
(with-accessors ((support-file support-file)
|
||||
(meta meta)) stream-object
|
||||
(if (gemini-client:mime-gemini-p meta)
|
||||
(setf (stream-status stream-object) :rendering)
|
||||
(progn
|
||||
(ensure-just-one-stream-rendering)
|
||||
(setf (stream-status stream-object) :rendering))
|
||||
(os-utils:xdg-open support-file)))))
|
||||
|
||||
(defclass gemini-stream ()
|
||||
|
@ -338,7 +349,7 @@
|
|||
(%fill-buffer)))))))
|
||||
(%fill-buffer))))))
|
||||
|
||||
(defun request (url &key (enqueue nil))
|
||||
(defun request (url &key (enqueue nil) (do-nothing-if-exists-in-db t))
|
||||
(let ((parsed-uri (quri:uri url)))
|
||||
(maybe-initialize-metadata specials:*message-window*)
|
||||
(if (null parsed-uri)
|
||||
|
@ -350,16 +361,23 @@
|
|||
(query (quri:uri-query parsed-uri))
|
||||
(port (or (quri:uri-port parsed-uri)
|
||||
gemini-client:+gemini-default-port+)))
|
||||
(when (not (and do-nothing-if-exists-in-db
|
||||
(find-db-stream-url (gemini-parser:make-gemini-uri host
|
||||
path
|
||||
query
|
||||
port))))
|
||||
(when (null enqueue)
|
||||
(ensure-just-one-stream-rendering))
|
||||
(handler-case
|
||||
(labels ((gemini-file-stream-p (meta)
|
||||
(gemini-client:mime-gemini-p meta))
|
||||
(starting-status (meta)
|
||||
(if (gemini-file-stream-p meta)
|
||||
(if enqueue
|
||||
nil
|
||||
:streaming
|
||||
:rendering)
|
||||
(if enqueue
|
||||
nil
|
||||
:streaming
|
||||
:running)))
|
||||
(get-user-input (hide-input host prompt)
|
||||
(flet ((on-input-complete (input)
|
||||
|
@ -478,7 +496,7 @@
|
|||
(_ "Error getting ~s: ~a")
|
||||
url
|
||||
e)
|
||||
:as-error t)))))))
|
||||
:as-error t))))))))
|
||||
|
||||
(defun history-back (window)
|
||||
(when-let* ((metadata (message-window:metadata window))
|
||||
|
|
|
@ -378,9 +378,12 @@
|
|||
(write-string (linkify link-value link-value) stream)))))))))
|
||||
|
||||
(defun parse-gemini-file (data)
|
||||
(let ((was-raw-mode *raw-mode*)
|
||||
(parsed (parse 'gemini-file (strcat data (string #\Newline))
|
||||
:junk-allowed t)))
|
||||
(let* ((was-raw-mode *raw-mode*)
|
||||
(actual-data (if (and (string-not-empty-p data)
|
||||
(char/= (last-elt data) #\Newline))
|
||||
(strcat data (string #\Newline))
|
||||
data))
|
||||
(parsed (parse 'gemini-file actual-data :junk-allowed t)))
|
||||
(if was-raw-mode
|
||||
(if *raw-mode*
|
||||
(list (html-utils:make-tag-node :as-is nil data))
|
||||
|
|
|
@ -2002,6 +2002,7 @@
|
|||
:remove-db-stream
|
||||
:find-db-stream-if
|
||||
:find-db-stream-url
|
||||
:ensure-just-one-stream-rendering
|
||||
:db-entry-to-foreground
|
||||
:gemini-metadata-p
|
||||
:make-gemini-metadata
|
||||
|
|
|
@ -1549,6 +1549,7 @@ mot recent updated to least recent"
|
|||
(flet ((on-input-complete (url)
|
||||
(if (gemini-parser:gemini-uri-p url)
|
||||
(let* ((event (make-instance 'gemini-request-event
|
||||
:priority program-events:+maximum-event-priority+
|
||||
:url url)))
|
||||
(program-events:push-event event))
|
||||
(error-message (_ "This is not a valid gemini address")))))
|
||||
|
|
Loading…
Reference in New Issue