luciano/specter-wiki
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add protocolpath example and improve defpathedfn description.

Browse source
This commit is contained in:
Chris O'Donnell 2016-06-12 23:06:16 -04:00
parent ad19789422
commit 35c5129017
1 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
List-of-Macros.md
View file

@ -23,7 +23,17 @@ Declares a new symbol available to be defined as a path. If the path will requir
`(defpathedfn name & args)` `(defpathedfn name & args)`
This is sugar to add [:pathedfn true] to the metadata map of the function. The syntax is the same as `defn` (optional docstring, etc.). Often used with [fixed-pathed-nav](#fixed-pathed-nav) or [variable-pathed-nav](#variable-pathed-nav) to enable late binding parameters. Non-path arguments should be preceded by ^:notpath. Defines a higher order navigator (a function that returns a navigator) that itself takes in one or more paths
as input. This macro is generally used in conjunction with [fixed-pathed-nav](#fixed-pathed-nav)
or [variable-pathed-nav](#variable-pathed-nav). When inline factoring is applied to a path containing
one of these higher order navigators, it will automatically interepret all
arguments as paths, factor them accordingly, and set up the callsite to
provide the parameters dynamically. Use `^:notpath` metadata on arguments
to indicate non-path arguments that should not be factored – note that in order
to be inline factorable, these arguments must be statically resolvable (e.g. a
top level var).
The syntax is the same as `defn` (optional docstring, etc.).
```clojure ```clojure
=> (defpathedfn walk-pred => (defpathedfn walk-pred
@ -77,6 +87,15 @@ Currently not available for ClojureScript.
[(->SingleAccount 100) (->SingleAccount 3) [(->SingleAccount 100) (->SingleAccount 3)
(->FamilyAccount [(->SingleAccount 15) (->SingleAccount 12)])]) (->FamilyAccount [(->SingleAccount 15) (->SingleAccount 12)])])
[100 3 15 12] [100 3 15 12]
=> (defprotocolpath AfterFeePath [fee-fn])
=> (extend-protocolpath AfterFeePath
SingleAccount [:funds view]
FamilyAccount [:single-accounts ALL AfterFeePath])
=> (select [ALL (AfterFeePath dec)]
[(->SingleAccount 100) (->SingleAccount 3)
(->FamilyAccount [(->SingleAccount 15) (->SingleAccount 12)])])
[99 2 14 11]
``` ```
### extend-protocolpath ### extend-protocolpath