hiro/myway
1
0
Fork 0
mirror of https://github.com/vale981/myway synced 2025-03-04 17:31:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add "find-route-by-name"

Browse source 
"
This commit is contained in:
Valentin Boettcher 2019-09-29 23:20:39 +02:00
parent 286230082a
commit 4399e05cad
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/mapper.lisp
View file

@ -4,6 +4,7 @@
(:import-from :myway.route (:import-from :myway.route
:route-rule :route-rule
:route-handler :route-handler
:route-name
:equal-route :equal-route
:match-route) :match-route)
(:import-from :myway.rule (:import-from :myway.rule
@ -18,6 +19,7 @@
:make-mapper :make-mapper
:mapper-routes :mapper-routes
:member-route :member-route
:member-route-by-name
:add-route :add-route
:next-route :next-route
:dispatch)) :dispatch))
@ -37,6 +39,12 @@
(mapper-routes mapper) (mapper-routes mapper)
:test #'equal-route)) :test #'equal-route))
(defun member-route-by-name (mapper name)
(member name
(mapper-routes mapper)
:test #'eq
:key #'route-name))
(defun add-route (mapper route) (defun add-route (mapper route)
(let ((routes (member-route mapper route))) (let ((routes (member-route mapper route)))
(if routes (if routes

6
src/myway.lisp
View file

@ -7,6 +7,7 @@
:mapper-routes :mapper-routes
:make-mapper :make-mapper
:member-route :member-route
:member-route-by-name
:add-route :add-route
:next-route :next-route
:dispatch) :dispatch)
@ -32,6 +33,7 @@
:mapper-routes :mapper-routes
:add-route :add-route
:find-route :find-route
:find-route-by-name
:route :route
:route-name :route-name
@ -58,6 +60,10 @@
:url url :url url
(delete-from-plist args :route-class))))) (delete-from-plist args :route-class)))))
(defun find-route-by-name (mapper name)
(car
(member-route-by-name mapper name)))
(defparameter *env* nil) (defparameter *env* nil)
(defun to-app (mapper) (defun to-app (mapper)