mirror of
https://codeberg.org/cage/tinmop/
synced 2025-02-13 07:30:35 +01:00
- fixed code formatting.
This commit is contained in:
parent
f7cd82b684
commit
92a0dc9db4
@ -167,7 +167,7 @@ General Public License for more details."
|
||||
(define-constant +standard-editor+ "ed" :test #'string=
|
||||
:documentation "Ed is the standard editor!")
|
||||
|
||||
(define-constant +octet-type+ '(unsigned-byte 8) :test #'equalp)
|
||||
(define-constant +octet-type+ '(unsigned-byte 8) :test #'equalp)
|
||||
|
||||
(define-constant +gemini-file-extension+ "gmi" :test #'string=)
|
||||
|
||||
|
@ -188,16 +188,16 @@
|
||||
(format stream
|
||||
"~a ~d ~a ~a"
|
||||
(download-iri object)
|
||||
(octet-count object)
|
||||
(meta object)
|
||||
(stream-status object))))
|
||||
(octet-count object)
|
||||
(meta object)
|
||||
(stream-status object))))
|
||||
|
||||
(defmethod to-tui-string ((object gemini-stream) &key (window nil))
|
||||
(flet ((pad (string width)
|
||||
(right-padding (ellipsize string width) width)))
|
||||
(let* ((window-width (win-width window))
|
||||
(url-w (truncate (* window-width 2/3)))
|
||||
(octet-count-w (truncate (* window-width 1/9)))
|
||||
(octet-count-w (truncate (* window-width 1/9)))
|
||||
(meta-w (truncate (* window-width 1/9)))
|
||||
(status-w (truncate (* window-width 1/9)))
|
||||
(color-re (swconf:color-regexps))
|
||||
@ -309,7 +309,7 @@
|
||||
(with-accessors ((octet-count octet-count)) object
|
||||
(if convert-to-octets
|
||||
(incf octet-count (babel:string-size-in-octets data
|
||||
:errorp nil))
|
||||
:errorp nil))
|
||||
(incf octet-count (length data)))))
|
||||
|
||||
(defmethod increment-bytes-count ((object gemini-stream) (data number)
|
||||
@ -380,7 +380,7 @@
|
||||
(open-with-external-program t))
|
||||
(with-accessors ((download-socket download-socket)
|
||||
(download-stream download-stream)
|
||||
(octet-count octet-count)
|
||||
(octet-count octet-count)
|
||||
(support-file support-file)) wrapper-object
|
||||
(labels ((rendering-in-tinmop-p ()
|
||||
(or gemini-format-p
|
||||
@ -528,7 +528,7 @@
|
||||
status-code status-code-description meta))
|
||||
(with-accessors ((download-socket download-socket)
|
||||
(download-stream download-stream)
|
||||
(octet-count octet-count)
|
||||
(octet-count octet-count)
|
||||
(support-file support-file)) wrapper-object
|
||||
(lambda ()
|
||||
(when-let ((extension (fs:get-extension path)))
|
||||
|
@ -67,7 +67,7 @@
|
||||
status-code status-code-description meta))
|
||||
(with-accessors ((download-socket gemini-viewer:download-socket)
|
||||
(download-stream gemini-viewer:download-stream)
|
||||
(octet-count gemini-viewer:octet-count)
|
||||
(octet-count gemini-viewer:octet-count)
|
||||
(support-file gemini-viewer:support-file)) wrapper-object
|
||||
(lambda ()
|
||||
(a:when-let ((extension (fs:get-extension path)))
|
||||
@ -372,7 +372,7 @@
|
||||
(start-time gw:start-time)
|
||||
(support-file gw:support-file)
|
||||
(parsed-lines gw:parsed-lines)
|
||||
(octet-count gw:octet-count)
|
||||
(octet-count gw:octet-count)
|
||||
(port gw:port)
|
||||
(status-code gw:status-code)
|
||||
(status-code-description gw:status-code-description)
|
||||
@ -386,7 +386,7 @@
|
||||
(cons "download-iri" download-iri)
|
||||
(cons "start-time" actual-start-time)
|
||||
(cons "support-file" support-file)
|
||||
(cons "octet-count" octet-count)
|
||||
(cons "octet-count" octet-count)
|
||||
(cons "port" port)
|
||||
(cons "status-code" status-code)
|
||||
(cons "status-code-description" status-code-description)
|
||||
|
@ -4,7 +4,7 @@
|
||||
|
||||
(a:define-constant +download-buffer+ (expt 2 24) :test #'=)
|
||||
|
||||
(a:define-constant +octet-type+ '(unsigned-byte 8) :test #'equalp)
|
||||
(a:define-constant +octet-type+ '(unsigned-byte 8) :test #'equalp)
|
||||
|
||||
(defparameter *stream* nil)
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user