cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- changed a couple of constants names.

This commit is contained in:
cage 2024-05-11 14:52:25 +02:00
parent 7fd900bbd2
commit 3db84cb571
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/constants.lisp
View File

@ -173,11 +173,11 @@ General Public License for more details."
(define-constant +file-scheme+ "file" :test #'string=)
(define-constant +internal-scheme+ "about" :test #'string=)
(define-constant +about-scheme+ "about" :test #'string=)
(define-constant +internal-path-bookmark+ "bookmark" :test #'string=)
(define-constant +internal-scheme-bookmark+ "bookmark" :test #'string=)
(define-constant +internal-path-gemlogs+ "gemlog" :test #'string=)
(define-constant +internal-scheme-gemlogs+ "gemlog" :test #'string=)
(define-constant +internal-scheme-view-source+ "view-source" :test #'string=)

6
src/gui/client/internal-paths.lisp
View File

@ -1,13 +1,13 @@
(in-package :client-main-window)
(defun make-internal-iri (path &optional (query nil) (fragment nil))
(iri:make-iri +internal-scheme+ nil nil nil path query fragment))
(iri:make-iri +about-scheme+ nil nil nil path query fragment))
(defun internal-iri-bookmark ()
(make-internal-iri +internal-path-bookmark+))
(make-internal-iri +internal-scheme-bookmark+))
(defun internal-iri-gemlogs ()
(make-internal-iri +internal-path-gemlogs+))
(make-internal-iri +internal-scheme-gemlogs+))
(defun internal-iri-view-source (path &optional (query nil) (fragment nil))
(iri:make-iri +internal-scheme-view-source+ nil nil nil path query fragment))

6
src/package.lisp
View File

@ -74,9 +74,9 @@
:+octect-type+
:+gemini-file-extension+
:+file-scheme+
:+internal-scheme+
:+internal-path-bookmark+
:+internal-path-gemlogs+
:+about-scheme+
:+internal-scheme-bookmark+
:+internal-scheme-gemlogs+
:+internal-scheme-view-source+
:+internal-scheme-local-posts+
:+fediverse-account-name-server-separator+