wilderjds
/
dash.el
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Simplify quotes in readme.

Browse Source
master
Magnar Sveen 14 years ago
parent 5f6ea16a35
commit de5ff6af38
2 changed files with 47 additions and 35 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 68
      README.md
  2. 14
      examples-to-docs.el

68
README.md
Unescape View File

@ -58,9 +58,9 @@ instead of one.
Returns a new list consisting of the result of applying `fn` to the items in `list`. Returns a new list consisting of the result of applying `fn` to the items in `list`.
```cl ```cl
(!map (lambda (num) (* num num)) (quote (1 2 3 4))) ;; => (quote (1 4 9 16)) (!map (lambda (num) (* num num)) '(1 2 3 4)) ;; => '(1 4 9 16)
(!map (quote square) (quote (1 2 3 4))) ;; => (quote (1 4 9 16)) (!map 'square '(1 2 3 4)) ;; => '(1 4 9 16)
(!!map (* it it) (quote (1 2 3 4))) ;; => (quote (1 4 9 16)) (!!map (* it it) '(1 2 3 4)) ;; => '(1 4 9 16)
``` ```
### !reduce-from `(fn initial-value list)` ### !reduce-from `(fn initial-value list)`
@ -71,9 +71,9 @@ item, etc. If `list` contains no items, returns `initial-value` and
`fn` is not called. `fn` is not called.
```cl ```cl
(!reduce-from (quote +) 7 (quote (1 2))) ;; => 10 (!reduce-from '+ 7 '(1 2)) ;; => 10
(!reduce-from (lambda (memo item) (+ memo item)) 7 (quote (1 2))) ;; => 10 (!reduce-from (lambda (memo item) (+ memo item)) 7 '(1 2)) ;; => 10
(!!reduce-from (+ acc it) 7 (quote (1 2 3))) ;; => 13 (!!reduce-from (+ acc it) 7 '(1 2 3)) ;; => 13
``` ```
### !reduce `(fn list)` ### !reduce `(fn list)`
@ -85,9 +85,9 @@ reduce returns the result of calling `fn` with no arguments. If
`list` has only 1 item, it is returned and `fn` is not called. `list` has only 1 item, it is returned and `fn` is not called.
```cl ```cl
(!reduce (quote +) (quote (1 2))) ;; => 3 (!reduce '+ '(1 2)) ;; => 3
(!reduce (lambda (memo item) (format %s-%s memo item)) (quote (1 2 3))) ;; => 1-2-3 (!reduce (lambda (memo item) (format %s-%s memo item)) '(1 2 3)) ;; => 1-2-3
(!!reduce (format %s-%s acc it) (quote (1 2 3))) ;; => 1-2-3 (!!reduce (format %s-%s acc it) '(1 2 3)) ;; => 1-2-3
``` ```
### !filter `(fn list)` ### !filter `(fn list)`
@ -95,9 +95,9 @@ reduce returns the result of calling `fn` with no arguments. If
Returns a new list of the items in `list` for which `fn` returns a non-nil value. Returns a new list of the items in `list` for which `fn` returns a non-nil value.
```cl ```cl
(!filter (lambda (num) (= 0 (% num 2))) (quote (1 2 3 4))) ;; => (quote (2 4)) (!filter (lambda (num) (= 0 (% num 2))) '(1 2 3 4)) ;; => '(2 4)
(!filter (quote even?) (quote (1 2 3 4))) ;; => (quote (2 4)) (!filter 'even? '(1 2 3 4)) ;; => '(2 4)
(!!filter (= 0 (% it 2)) (quote (1 2 3 4))) ;; => (quote (2 4)) (!!filter (= 0 (% it 2)) '(1 2 3 4)) ;; => '(2 4)
``` ```
### !remove `(fn list)` ### !remove `(fn list)`
@ -105,9 +105,9 @@ Returns a new list of the items in `list` for which `fn` returns a non-nil value
Returns a new list of the items in `list` for which `fn` returns nil. Returns a new list of the items in `list` for which `fn` returns nil.
```cl ```cl
(!remove (lambda (num) (= 0 (% num 2))) (quote (1 2 3 4))) ;; => (quote (1 3)) (!remove (lambda (num) (= 0 (% num 2))) '(1 2 3 4)) ;; => '(1 3)
(!remove (quote even?) (quote (1 2 3 4))) ;; => (quote (1 3)) (!remove 'even? '(1 2 3 4)) ;; => '(1 3)
(!!remove (= 0 (% it 2)) (quote (1 2 3 4))) ;; => (quote (1 3)) (!!remove (= 0 (% it 2)) '(1 2 3 4)) ;; => '(1 3)
``` ```
### !concat `(&rest lists)` ### !concat `(&rest lists)`
@ -116,9 +116,9 @@ Returns a new list with the concatenation of the elements in
the supplied `lists`. the supplied `lists`.
```cl ```cl
(!concat (quote (1))) ;; => (quote (1)) (!concat '(1)) ;; => '(1)
(!concat (quote (1)) (quote (2))) ;; => (quote (1 2)) (!concat '(1) '(2)) ;; => '(1 2)
(!concat (quote (1)) (quote (2 3)) (quote (4))) ;; => (quote (1 2 3 4)) (!concat '(1) '(2 3) '(4)) ;; => '(1 2 3 4)
``` ```
### !mapcat `(fn list)` ### !mapcat `(fn list)`
@ -127,9 +127,9 @@ Returns the result of applying concat to the result of applying map to `fn` and
Thus function `fn` should return a collection. Thus function `fn` should return a collection.
```cl ```cl
(!mapcat (quote list) (quote (1 2 3))) ;; => (quote (1 2 3)) (!mapcat 'list '(1 2 3)) ;; => '(1 2 3)
(!mapcat (lambda (item) (list 0 item)) (quote (1 2 3))) ;; => (quote (0 1 0 2 0 3)) (!mapcat (lambda (item) (list 0 item)) '(1 2 3)) ;; => '(0 1 0 2 0 3)
(!!mapcat (list 0 it) (quote (1 2 3))) ;; => (quote (0 1 0 2 0 3)) (!!mapcat (list 0 it) '(1 2 3)) ;; => '(0 1 0 2 0 3)
``` ```
### !partial `(fn &rest args)` ### !partial `(fn &rest args)`
@ -140,8 +140,8 @@ When called, the returned function calls `fn` with args +
additional args. additional args.
```cl ```cl
(funcall (!partial (quote +) 5) 3) ;; => 8 (funcall (!partial '+ 5) 3) ;; => 8
(funcall (!partial (quote +) 5 2) 3) ;; => 10 (funcall (!partial '+ 5 2) 3) ;; => 10
``` ```
### !difference `(list list2)` ### !difference `(list list2)`
@ -151,9 +151,9 @@ The test for equality is done with `equal`,
or with `!compare-fn` if that's non-nil. or with `!compare-fn` if that's non-nil.
```cl ```cl
(!difference (quote nil) (quote nil)) ;; => (quote nil) (!difference 'nil 'nil) ;; => 'nil
(!difference (quote (1 2 3)) (quote (4 5 6))) ;; => (quote (1 2 3)) (!difference '(1 2 3) '(4 5 6)) ;; => '(1 2 3)
(!difference (quote (1 2 3 4)) (quote (3 4 5 6))) ;; => (quote (1 2)) (!difference '(1 2 3 4) '(3 4 5 6)) ;; => '(1 2)
``` ```
### !intersection `(list list2)` ### !intersection `(list list2)`
@ -163,9 +163,9 @@ The test for equality is done with `equal`,
or with `!compare-fn` if that's non-nil. or with `!compare-fn` if that's non-nil.
```cl ```cl
(!intersection (quote nil) (quote nil)) ;; => (quote nil) (!intersection 'nil 'nil) ;; => 'nil
(!intersection (quote (1 2 3)) (quote (4 5 6))) ;; => (quote nil) (!intersection '(1 2 3) '(4 5 6)) ;; => 'nil
(!intersection (quote (1 2 3 4)) (quote (3 4 5 6))) ;; => (quote (3 4)) (!intersection '(1 2 3 4) '(3 4 5 6)) ;; => '(3 4)
``` ```
### !uniq `(list)` ### !uniq `(list)`
@ -175,8 +175,8 @@ The test for equality is done with `equal`,
or with `!compare-fn` if that's non-nil. or with `!compare-fn` if that's non-nil.
```cl ```cl
(!uniq (quote nil)) ;; => (quote nil) (!uniq 'nil) ;; => 'nil
(!uniq (quote (1 2 2 4))) ;; => (quote (1 2 4)) (!uniq '(1 2 2 4)) ;; => '(1 2 4)
``` ```
### !contains? `(list element)` ### !contains? `(list element)`
@ -186,9 +186,9 @@ The test for equality is done with `equal`,
or with `!compare-fn` if that's non-nil. or with `!compare-fn` if that's non-nil.
```cl ```cl
(!contains? (quote (1 2 3)) 1) ;; => t (!contains? '(1 2 3) 1) ;; => t
(!contains? (quote (1 2 3)) 2) ;; => t (!contains? '(1 2 3) 2) ;; => t
(!contains? (quote (1 2 3)) 4) ;; => nil (!contains? '(1 2 3) 4) ;; => nil
``` ```
## License ## License

14
examples-to-docs.el
Unescape View File

@ -44,6 +44,17 @@
(signature (cadr function))) (signature (cadr function)))
(format "%s %s" command-name signature))) (format "%s %s" command-name signature)))
(defun simplify-quotes ()
(goto-char (point-min))
(while (search-forward "(quote " nil t)
(forward-char -7)
(let ((p (point)))
(forward-sexp 1)
(delete-char -1)
(goto-char p)
(delete-char 7)
(insert "'"))))
(defun create-docs-file () (defun create-docs-file ()
(let ((functions (nreverse functions))) (let ((functions (nreverse functions)))
(with-temp-file "./README.md" (with-temp-file "./README.md"
@ -66,7 +77,8 @@ instead of one.")
(newline 2) (newline 2)
(insert (mapconcat 'function-to-md functions "\n")) (insert (mapconcat 'function-to-md functions "\n"))
(newline) (newline)
(insert-file-contents-literally "./readme-postfix.md")))) (insert-file-contents-literally "./readme-postfix.md")
(simplify-quotes))))
(defun three-first (list) (defun three-first (list)
(let (first) (let (first)

Write Preview
Loading…
Cancel
Save