cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- fixed code formatting.

Browse Source
This commit is contained in:
cage 2024-09-01 13:03:56 +02:00
parent f7cd82b684
commit 92a0dc9db4
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/constants.lisp
View File

@ -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=)

14
src/gemini-viewer.lisp
View File

@ -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)))

6
src/gui/server/public-api-gemini-stream.lisp
View File

@ -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)

2
src/kami/client.lisp
View File

@ -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)