diff --git a/src/constants.lisp b/src/constants.lisp index c5fedcc..3203e5b 100644 --- a/src/constants.lisp +++ b/src/constants.lisp @@ -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=) diff --git a/src/gui/client/internal-paths.lisp b/src/gui/client/internal-paths.lisp index f494347..3730ae2 100644 --- a/src/gui/client/internal-paths.lisp +++ b/src/gui/client/internal-paths.lisp @@ -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)) diff --git a/src/package.lisp b/src/package.lisp index 0732df3..9f5b028 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -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+