mirror of https://codeberg.org/cage/tinmop/
- changed constant's name.
This commit is contained in:
parent
ee9f9c03c7
commit
d043506a4f
|
@ -175,7 +175,7 @@ General Public License for more details."
|
|||
|
||||
(define-constant +http-scheme+ "http" :test #'string=)
|
||||
|
||||
(define-constant +about-scheme+ "about" :test #'string=)
|
||||
(define-constant +internal-about-scheme+ "about" :test #'string=)
|
||||
|
||||
(define-constant +internal-scheme-bookmark+ "bookmark" :test #'string=)
|
||||
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
(in-package :client-main-window)
|
||||
|
||||
(defun make-internal-iri (path &optional (query nil) (fragment nil))
|
||||
(iri:make-iri +about-scheme+ nil nil nil path query fragment))
|
||||
(iri:make-iri +internal-about-scheme+ nil nil nil path query fragment))
|
||||
|
||||
(defun internal-iri-bookmark ()
|
||||
(make-internal-iri +internal-scheme-bookmark+))
|
||||
|
|
|
@ -75,7 +75,7 @@
|
|||
:+gemini-file-extension+
|
||||
:+file-scheme+
|
||||
:+http-scheme+
|
||||
:+about-scheme+
|
||||
:+internal-about-scheme+
|
||||
:+internal-scheme-bookmark+
|
||||
:+internal-scheme-gemlogs+
|
||||
:+internal-scheme-view-source+
|
||||
|
|
Loading…
Reference in New Issue