[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dash 7b2584c 294/316: Simplify GitHub link creation
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dash 7b2584c 294/316: Simplify GitHub link creation |
Date: |
Mon, 15 Feb 2021 15:58:20 -0500 (EST) |
branch: externals/dash
commit 7b2584c3715cb29dd147d23de1a65b89ade09884
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>
Simplify GitHub link creation
* dev/examples-to-docs.el (github-id): Rename function...
(dash--github-link): ...to this, returning a full link.
(function-summary, format-link): Simplify accordingly.
(docs--chop-prefix, docs--chop-prefix): Remove; replaced with their
subr-x counterparts.
* README.md: Regenerate.
---
README.md | 352 ++++++++++++++++++++++++------------------------
dev/examples-to-docs.el | 48 +++----
2 files changed, 191 insertions(+), 209 deletions(-)
diff --git a/README.md b/README.md
index 52de5e8..2b87b36 100644
--- a/README.md
+++ b/README.md
@@ -112,83 +112,83 @@ is then applied sequentially to each or selected elements
of the
input list. The results are collected in order and returned as a
new list.
-* [-map](#-map-fn-list) `(fn list)`
-* [-map-when](#-map-when-pred-rep-list) `(pred rep list)`
-* [-map-first](#-map-first-pred-rep-list) `(pred rep list)`
-* [-map-last](#-map-last-pred-rep-list) `(pred rep list)`
-* [-map-indexed](#-map-indexed-fn-list) `(fn list)`
-* [-annotate](#-annotate-fn-list) `(fn list)`
-* [-splice](#-splice-pred-fun-list) `(pred fun list)`
-* [-splice-list](#-splice-list-pred-new-list-list) `(pred new-list list)`
-* [-mapcat](#-mapcat-fn-list) `(fn list)`
-* [-copy](#-copy-list) `(list)`
+* [`-map`](#-map-fn-list) `(fn list)`
+* [`-map-when`](#-map-when-pred-rep-list) `(pred rep list)`
+* [`-map-first`](#-map-first-pred-rep-list) `(pred rep list)`
+* [`-map-last`](#-map-last-pred-rep-list) `(pred rep list)`
+* [`-map-indexed`](#-map-indexed-fn-list) `(fn list)`
+* [`-annotate`](#-annotate-fn-list) `(fn list)`
+* [`-splice`](#-splice-pred-fun-list) `(pred fun list)`
+* [`-splice-list`](#-splice-list-pred-new-list-list) `(pred new-list list)`
+* [`-mapcat`](#-mapcat-fn-list) `(fn list)`
+* [`-copy`](#-copy-list) `(list)`
### Sublist selection
Functions returning a sublist of the original list.
-* [-filter](#-filter-pred-list) `(pred list)`
-* [-remove](#-remove-pred-list) `(pred list)`
-* [-remove-first](#-remove-first-pred-list) `(pred list)`
-* [-remove-last](#-remove-last-pred-list) `(pred list)`
-* [-remove-item](#-remove-item-item-list) `(item list)`
-* [-non-nil](#-non-nil-list) `(list)`
-* [-slice](#-slice-list-from-optional-to-step) `(list from &optional to step)`
-* [-take](#-take-n-list) `(n list)`
-* [-take-last](#-take-last-n-list) `(n list)`
-* [-drop](#-drop-n-list) `(n list)`
-* [-drop-last](#-drop-last-n-list) `(n list)`
-* [-take-while](#-take-while-pred-list) `(pred list)`
-* [-drop-while](#-drop-while-pred-list) `(pred list)`
-* [-select-by-indices](#-select-by-indices-indices-list) `(indices list)`
-* [-select-columns](#-select-columns-columns-table) `(columns table)`
-* [-select-column](#-select-column-column-table) `(column table)`
+* [`-filter`](#-filter-pred-list) `(pred list)`
+* [`-remove`](#-remove-pred-list) `(pred list)`
+* [`-remove-first`](#-remove-first-pred-list) `(pred list)`
+* [`-remove-last`](#-remove-last-pred-list) `(pred list)`
+* [`-remove-item`](#-remove-item-item-list) `(item list)`
+* [`-non-nil`](#-non-nil-list) `(list)`
+* [`-slice`](#-slice-list-from-optional-to-step) `(list from &optional to
step)`
+* [`-take`](#-take-n-list) `(n list)`
+* [`-take-last`](#-take-last-n-list) `(n list)`
+* [`-drop`](#-drop-n-list) `(n list)`
+* [`-drop-last`](#-drop-last-n-list) `(n list)`
+* [`-take-while`](#-take-while-pred-list) `(pred list)`
+* [`-drop-while`](#-drop-while-pred-list) `(pred list)`
+* [`-select-by-indices`](#-select-by-indices-indices-list) `(indices list)`
+* [`-select-columns`](#-select-columns-columns-table) `(columns table)`
+* [`-select-column`](#-select-column-column-table) `(column table)`
### List to list
Functions returning a modified copy of the input list.
-* [-keep](#-keep-fn-list) `(fn list)`
-* [-concat](#-concat-rest-lists) `(&rest lists)`
-* [-flatten](#-flatten-l) `(l)`
-* [-flatten-n](#-flatten-n-num-list) `(num list)`
-* [-replace](#-replace-old-new-list) `(old new list)`
-* [-replace-first](#-replace-first-old-new-list) `(old new list)`
-* [-replace-last](#-replace-last-old-new-list) `(old new list)`
-* [-insert-at](#-insert-at-n-x-list) `(n x list)`
-* [-replace-at](#-replace-at-n-x-list) `(n x list)`
-* [-update-at](#-update-at-n-func-list) `(n func list)`
-* [-remove-at](#-remove-at-n-list) `(n list)`
-* [-remove-at-indices](#-remove-at-indices-indices-list) `(indices list)`
+* [`-keep`](#-keep-fn-list) `(fn list)`
+* [`-concat`](#-concat-rest-lists) `(&rest lists)`
+* [`-flatten`](#-flatten-l) `(l)`
+* [`-flatten-n`](#-flatten-n-num-list) `(num list)`
+* [`-replace`](#-replace-old-new-list) `(old new list)`
+* [`-replace-first`](#-replace-first-old-new-list) `(old new list)`
+* [`-replace-last`](#-replace-last-old-new-list) `(old new list)`
+* [`-insert-at`](#-insert-at-n-x-list) `(n x list)`
+* [`-replace-at`](#-replace-at-n-x-list) `(n x list)`
+* [`-update-at`](#-update-at-n-func-list) `(n func list)`
+* [`-remove-at`](#-remove-at-n-list) `(n list)`
+* [`-remove-at-indices`](#-remove-at-indices-indices-list) `(indices list)`
### Reductions
Functions reducing lists to a single value (which may also be a list).
-* [-reduce-from](#-reduce-from-fn-init-list) `(fn init list)`
-* [-reduce-r-from](#-reduce-r-from-fn-init-list) `(fn init list)`
-* [-reduce](#-reduce-fn-list) `(fn list)`
-* [-reduce-r](#-reduce-r-fn-list) `(fn list)`
-* [-reductions-from](#-reductions-from-fn-init-list) `(fn init list)`
-* [-reductions-r-from](#-reductions-r-from-fn-init-list) `(fn init list)`
-* [-reductions](#-reductions-fn-list) `(fn list)`
-* [-reductions-r](#-reductions-r-fn-list) `(fn list)`
-* [-count](#-count-pred-list) `(pred list)`
-* [-sum](#-sum-list) `(list)`
-* [-running-sum](#-running-sum-list) `(list)`
-* [-product](#-product-list) `(list)`
-* [-running-product](#-running-product-list) `(list)`
-* [-inits](#-inits-list) `(list)`
-* [-tails](#-tails-list) `(list)`
-* [-common-prefix](#-common-prefix-rest-lists) `(&rest lists)`
-* [-common-suffix](#-common-suffix-rest-lists) `(&rest lists)`
-* [-min](#-min-list) `(list)`
-* [-min-by](#-min-by-comparator-list) `(comparator list)`
-* [-max](#-max-list) `(list)`
-* [-max-by](#-max-by-comparator-list) `(comparator list)`
+* [`-reduce-from`](#-reduce-from-fn-init-list) `(fn init list)`
+* [`-reduce-r-from`](#-reduce-r-from-fn-init-list) `(fn init list)`
+* [`-reduce`](#-reduce-fn-list) `(fn list)`
+* [`-reduce-r`](#-reduce-r-fn-list) `(fn list)`
+* [`-reductions-from`](#-reductions-from-fn-init-list) `(fn init list)`
+* [`-reductions-r-from`](#-reductions-r-from-fn-init-list) `(fn init list)`
+* [`-reductions`](#-reductions-fn-list) `(fn list)`
+* [`-reductions-r`](#-reductions-r-fn-list) `(fn list)`
+* [`-count`](#-count-pred-list) `(pred list)`
+* [`-sum`](#-sum-list) `(list)`
+* [`-running-sum`](#-running-sum-list) `(list)`
+* [`-product`](#-product-list) `(list)`
+* [`-running-product`](#-running-product-list) `(list)`
+* [`-inits`](#-inits-list) `(list)`
+* [`-tails`](#-tails-list) `(list)`
+* [`-common-prefix`](#-common-prefix-rest-lists) `(&rest lists)`
+* [`-common-suffix`](#-common-suffix-rest-lists) `(&rest lists)`
+* [`-min`](#-min-list) `(list)`
+* [`-min-by`](#-min-by-comparator-list) `(comparator list)`
+* [`-max`](#-max-list) `(list)`
+* [`-max-by`](#-max-by-comparator-list) `(comparator list)`
### Unfolding
@@ -196,180 +196,180 @@ Functions reducing lists to a single value (which may
also be a list).
Operations dual to reductions, building lists from a seed
value rather than consuming a list to produce a single value.
-* [-iterate](#-iterate-fun-init-n) `(fun init n)`
-* [-unfold](#-unfold-fun-seed) `(fun seed)`
+* [`-iterate`](#-iterate-fun-init-n) `(fun init n)`
+* [`-unfold`](#-unfold-fun-seed) `(fun seed)`
### Predicates
-* [-any?](#-any-pred-list) `(pred list)`
-* [-all?](#-all-pred-list) `(pred list)`
-* [-none?](#-none-pred-list) `(pred list)`
-* [-only-some?](#-only-some-pred-list) `(pred list)`
-* [-contains?](#-contains-list-element) `(list element)`
-* [-same-items?](#-same-items-list-list2) `(list list2)`
-* [-is-prefix?](#-is-prefix-prefix-list) `(prefix list)`
-* [-is-suffix?](#-is-suffix-suffix-list) `(suffix list)`
-* [-is-infix?](#-is-infix-infix-list) `(infix list)`
-* [-cons-pair?](#-cons-pair-obj) `(obj)`
+* [`-any?`](#-any-pred-list) `(pred list)`
+* [`-all?`](#-all-pred-list) `(pred list)`
+* [`-none?`](#-none-pred-list) `(pred list)`
+* [`-only-some?`](#-only-some-pred-list) `(pred list)`
+* [`-contains?`](#-contains-list-element) `(list element)`
+* [`-same-items?`](#-same-items-list-list2) `(list list2)`
+* [`-is-prefix?`](#-is-prefix-prefix-list) `(prefix list)`
+* [`-is-suffix?`](#-is-suffix-suffix-list) `(suffix list)`
+* [`-is-infix?`](#-is-infix-infix-list) `(infix list)`
+* [`-cons-pair?`](#-cons-pair-obj) `(obj)`
### Partitioning
Functions partitioning the input list into a list of lists.
-* [-split-at](#-split-at-n-list) `(n list)`
-* [-split-with](#-split-with-pred-list) `(pred list)`
-* [-split-on](#-split-on-item-list) `(item list)`
-* [-split-when](#-split-when-fn-list) `(fn list)`
-* [-separate](#-separate-pred-list) `(pred list)`
-* [-partition](#-partition-n-list) `(n list)`
-* [-partition-all](#-partition-all-n-list) `(n list)`
-* [-partition-in-steps](#-partition-in-steps-n-step-list) `(n step list)`
-* [-partition-all-in-steps](#-partition-all-in-steps-n-step-list) `(n step
list)`
-* [-partition-by](#-partition-by-fn-list) `(fn list)`
-* [-partition-by-header](#-partition-by-header-fn-list) `(fn list)`
-* [-partition-after-pred](#-partition-after-pred-pred-list) `(pred list)`
-* [-partition-before-pred](#-partition-before-pred-pred-list) `(pred list)`
-* [-partition-before-item](#-partition-before-item-item-list) `(item list)`
-* [-partition-after-item](#-partition-after-item-item-list) `(item list)`
-* [-group-by](#-group-by-fn-list) `(fn list)`
+* [`-split-at`](#-split-at-n-list) `(n list)`
+* [`-split-with`](#-split-with-pred-list) `(pred list)`
+* [`-split-on`](#-split-on-item-list) `(item list)`
+* [`-split-when`](#-split-when-fn-list) `(fn list)`
+* [`-separate`](#-separate-pred-list) `(pred list)`
+* [`-partition`](#-partition-n-list) `(n list)`
+* [`-partition-all`](#-partition-all-n-list) `(n list)`
+* [`-partition-in-steps`](#-partition-in-steps-n-step-list) `(n step list)`
+* [`-partition-all-in-steps`](#-partition-all-in-steps-n-step-list) `(n step
list)`
+* [`-partition-by`](#-partition-by-fn-list) `(fn list)`
+* [`-partition-by-header`](#-partition-by-header-fn-list) `(fn list)`
+* [`-partition-after-pred`](#-partition-after-pred-pred-list) `(pred list)`
+* [`-partition-before-pred`](#-partition-before-pred-pred-list) `(pred list)`
+* [`-partition-before-item`](#-partition-before-item-item-list) `(item list)`
+* [`-partition-after-item`](#-partition-after-item-item-list) `(item list)`
+* [`-group-by`](#-group-by-fn-list) `(fn list)`
### Indexing
Return indices of elements based on predicates, sort elements by indices etc.
-* [-elem-index](#-elem-index-elem-list) `(elem list)`
-* [-elem-indices](#-elem-indices-elem-list) `(elem list)`
-* [-find-index](#-find-index-pred-list) `(pred list)`
-* [-find-last-index](#-find-last-index-pred-list) `(pred list)`
-* [-find-indices](#-find-indices-pred-list) `(pred list)`
-* [-grade-up](#-grade-up-comparator-list) `(comparator list)`
-* [-grade-down](#-grade-down-comparator-list) `(comparator list)`
+* [`-elem-index`](#-elem-index-elem-list) `(elem list)`
+* [`-elem-indices`](#-elem-indices-elem-list) `(elem list)`
+* [`-find-index`](#-find-index-pred-list) `(pred list)`
+* [`-find-last-index`](#-find-last-index-pred-list) `(pred list)`
+* [`-find-indices`](#-find-indices-pred-list) `(pred list)`
+* [`-grade-up`](#-grade-up-comparator-list) `(comparator list)`
+* [`-grade-down`](#-grade-down-comparator-list) `(comparator list)`
### Set operations
Operations pretending lists are sets.
-* [-union](#-union-list-list2) `(list list2)`
-* [-difference](#-difference-list-list2) `(list list2)`
-* [-intersection](#-intersection-list-list2) `(list list2)`
-* [-powerset](#-powerset-list) `(list)`
-* [-permutations](#-permutations-list) `(list)`
-* [-distinct](#-distinct-list) `(list)`
+* [`-union`](#-union-list-list2) `(list list2)`
+* [`-difference`](#-difference-list-list2) `(list list2)`
+* [`-intersection`](#-intersection-list-list2) `(list list2)`
+* [`-powerset`](#-powerset-list) `(list)`
+* [`-permutations`](#-permutations-list) `(list)`
+* [`-distinct`](#-distinct-list) `(list)`
### Other list operations
Other list functions not fit to be classified elsewhere.
-* [-rotate](#-rotate-n-list) `(n list)`
-* [-repeat](#-repeat-n-x) `(n x)`
-* [-cons*](#-cons-rest-args) `(&rest args)`
-* [-snoc](#-snoc-list-elem-rest-elements) `(list elem &rest elements)`
-* [-interpose](#-interpose-sep-list) `(sep list)`
-* [-interleave](#-interleave-rest-lists) `(&rest lists)`
-* [-iota](#-iota-count-optional-start-step) `(count &optional start step)`
-* [-zip-with](#-zip-with-fn-list1-list2) `(fn list1 list2)`
-* [-zip](#-zip-rest-lists) `(&rest lists)`
-* [-zip-lists](#-zip-lists-rest-lists) `(&rest lists)`
-* [-zip-fill](#-zip-fill-fill-value-rest-lists) `(fill-value &rest lists)`
-* [-unzip](#-unzip-lists) `(lists)`
-* [-cycle](#-cycle-list) `(list)`
-* [-pad](#-pad-fill-value-rest-lists) `(fill-value &rest lists)`
-* [-table](#-table-fn-rest-lists) `(fn &rest lists)`
-* [-table-flat](#-table-flat-fn-rest-lists) `(fn &rest lists)`
-* [-first](#-first-pred-list) `(pred list)`
-* [-some](#-some-pred-list) `(pred list)`
-* [-last](#-last-pred-list) `(pred list)`
-* [-first-item](#-first-item-list) `(list)`
-* [-second-item](#-second-item-list) `(list)`
-* [-third-item](#-third-item-list) `(list)`
-* [-fourth-item](#-fourth-item-list) `(list)`
-* [-fifth-item](#-fifth-item-list) `(list)`
-* [-last-item](#-last-item-list) `(list)`
-* [-butlast](#-butlast-list) `(list)`
-* [-sort](#-sort-comparator-list) `(comparator list)`
-* [-list](#-list-arg) `(arg)`
-* [-fix](#-fix-fn-list) `(fn list)`
+* [`-rotate`](#-rotate-n-list) `(n list)`
+* [`-repeat`](#-repeat-n-x) `(n x)`
+* [`-cons*`](#-cons-rest-args) `(&rest args)`
+* [`-snoc`](#-snoc-list-elem-rest-elements) `(list elem &rest elements)`
+* [`-interpose`](#-interpose-sep-list) `(sep list)`
+* [`-interleave`](#-interleave-rest-lists) `(&rest lists)`
+* [`-iota`](#-iota-count-optional-start-step) `(count &optional start step)`
+* [`-zip-with`](#-zip-with-fn-list1-list2) `(fn list1 list2)`
+* [`-zip`](#-zip-rest-lists) `(&rest lists)`
+* [`-zip-lists`](#-zip-lists-rest-lists) `(&rest lists)`
+* [`-zip-fill`](#-zip-fill-fill-value-rest-lists) `(fill-value &rest lists)`
+* [`-unzip`](#-unzip-lists) `(lists)`
+* [`-cycle`](#-cycle-list) `(list)`
+* [`-pad`](#-pad-fill-value-rest-lists) `(fill-value &rest lists)`
+* [`-table`](#-table-fn-rest-lists) `(fn &rest lists)`
+* [`-table-flat`](#-table-flat-fn-rest-lists) `(fn &rest lists)`
+* [`-first`](#-first-pred-list) `(pred list)`
+* [`-some`](#-some-pred-list) `(pred list)`
+* [`-last`](#-last-pred-list) `(pred list)`
+* [`-first-item`](#-first-item-list) `(list)`
+* [`-second-item`](#-second-item-list) `(list)`
+* [`-third-item`](#-third-item-list) `(list)`
+* [`-fourth-item`](#-fourth-item-list) `(list)`
+* [`-fifth-item`](#-fifth-item-list) `(list)`
+* [`-last-item`](#-last-item-list) `(list)`
+* [`-butlast`](#-butlast-list) `(list)`
+* [`-sort`](#-sort-comparator-list) `(comparator list)`
+* [`-list`](#-list-arg) `(arg)`
+* [`-fix`](#-fix-fn-list) `(fn list)`
### Tree operations
Functions pretending lists are trees.
-* [-tree-seq](#-tree-seq-branch-children-tree) `(branch children tree)`
-* [-tree-map](#-tree-map-fn-tree) `(fn tree)`
-* [-tree-map-nodes](#-tree-map-nodes-pred-fun-tree) `(pred fun tree)`
-* [-tree-reduce](#-tree-reduce-fn-tree) `(fn tree)`
-* [-tree-reduce-from](#-tree-reduce-from-fn-init-value-tree) `(fn init-value
tree)`
-* [-tree-mapreduce](#-tree-mapreduce-fn-folder-tree) `(fn folder tree)`
-* [-tree-mapreduce-from](#-tree-mapreduce-from-fn-folder-init-value-tree) `(fn
folder init-value tree)`
-* [-clone](#-clone-list) `(list)`
+* [`-tree-seq`](#-tree-seq-branch-children-tree) `(branch children tree)`
+* [`-tree-map`](#-tree-map-fn-tree) `(fn tree)`
+* [`-tree-map-nodes`](#-tree-map-nodes-pred-fun-tree) `(pred fun tree)`
+* [`-tree-reduce`](#-tree-reduce-fn-tree) `(fn tree)`
+* [`-tree-reduce-from`](#-tree-reduce-from-fn-init-value-tree) `(fn init-value
tree)`
+* [`-tree-mapreduce`](#-tree-mapreduce-fn-folder-tree) `(fn folder tree)`
+* [`-tree-mapreduce-from`](#-tree-mapreduce-from-fn-folder-init-value-tree)
`(fn folder init-value tree)`
+* [`-clone`](#-clone-list) `(list)`
### Threading macros
-* [->](#--x-optional-form-rest-more) `(x &optional form &rest more)`
-* [->>](#--x-optional-form-rest-more) `(x &optional form &rest more)`
-* [-->](#---x-rest-forms) `(x &rest forms)`
-* [-as->](#-as--value-variable-rest-forms) `(value variable &rest forms)`
-* [-some->](#-some--x-optional-form-rest-more) `(x &optional form &rest more)`
-* [-some->>](#-some--x-optional-form-rest-more) `(x &optional form &rest more)`
-* [-some-->](#-some---expr-rest-forms) `(expr &rest forms)`
-* [-doto](#-doto-init-rest-forms) `(init &rest forms)`
+* [`->`](#--x-optional-form-rest-more) `(x &optional form &rest more)`
+* [`->>`](#--x-optional-form-rest-more) `(x &optional form &rest more)`
+* [`-->`](#---x-rest-forms) `(x &rest forms)`
+* [`-as->`](#-as--value-variable-rest-forms) `(value variable &rest forms)`
+* [`-some->`](#-some--x-optional-form-rest-more) `(x &optional form &rest
more)`
+* [`-some->>`](#-some--x-optional-form-rest-more) `(x &optional form &rest
more)`
+* [`-some-->`](#-some---expr-rest-forms) `(expr &rest forms)`
+* [`-doto`](#-doto-init-rest-forms) `(init &rest forms)`
### Binding
Convenient versions of `let` and `let*` constructs combined with flow control.
-* [-when-let](#-when-let-var-val-rest-body) `((var val) &rest body)`
-* [-when-let*](#-when-let-vars-vals-rest-body) `(vars-vals &rest body)`
-* [-if-let](#-if-let-var-val-then-rest-else) `((var val) then &rest else)`
-* [-if-let*](#-if-let-vars-vals-then-rest-else) `(vars-vals then &rest else)`
-* [-let](#-let-varlist-rest-body) `(varlist &rest body)`
-* [-let*](#-let-varlist-rest-body) `(varlist &rest body)`
-* [-lambda](#-lambda-match-form-rest-body) `(match-form &rest body)`
-* [-setq](#-setq-match-form-val) `([match-form val] ...)`
+* [`-when-let`](#-when-let-var-val-rest-body) `((var val) &rest body)`
+* [`-when-let*`](#-when-let-vars-vals-rest-body) `(vars-vals &rest body)`
+* [`-if-let`](#-if-let-var-val-then-rest-else) `((var val) then &rest else)`
+* [`-if-let*`](#-if-let-vars-vals-then-rest-else) `(vars-vals then &rest else)`
+* [`-let`](#-let-varlist-rest-body) `(varlist &rest body)`
+* [`-let*`](#-let-varlist-rest-body) `(varlist &rest body)`
+* [`-lambda`](#-lambda-match-form-rest-body) `(match-form &rest body)`
+* [`-setq`](#-setq-match-form-val) `([match-form val] ...)`
### Side effects
Functions iterating over lists for side effect only.
-* [-each](#-each-list-fn) `(list fn)`
-* [-each-while](#-each-while-list-pred-fn) `(list pred fn)`
-* [-each-indexed](#-each-indexed-list-fn) `(list fn)`
-* [-each-r](#-each-r-list-fn) `(list fn)`
-* [-each-r-while](#-each-r-while-list-pred-fn) `(list pred fn)`
-* [-dotimes](#-dotimes-num-fn) `(num fn)`
+* [`-each`](#-each-list-fn) `(list fn)`
+* [`-each-while`](#-each-while-list-pred-fn) `(list pred fn)`
+* [`-each-indexed`](#-each-indexed-list-fn) `(list fn)`
+* [`-each-r`](#-each-r-list-fn) `(list fn)`
+* [`-each-r-while`](#-each-r-while-list-pred-fn) `(list pred fn)`
+* [`-dotimes`](#-dotimes-num-fn) `(num fn)`
### Destructive operations
-* [!cons](#cons-car-cdr) `(car cdr)`
-* [!cdr](#cdr-list) `(list)`
+* [`!cons`](#cons-car-cdr) `(car cdr)`
+* [`!cdr`](#cdr-list) `(list)`
### Function combinators
These combinators require Emacs 24 for its lexical scope. So they are offered
in a separate package: `dash-functional`.
-* [-partial](#-partial-fn-rest-args) `(fn &rest args)`
-* [-rpartial](#-rpartial-fn-rest-args) `(fn &rest args)`
-* [-juxt](#-juxt-rest-fns) `(&rest fns)`
-* [-compose](#-compose-rest-fns) `(&rest fns)`
-* [-applify](#-applify-fn) `(fn)`
-* [-on](#-on-operator-transformer) `(operator transformer)`
-* [-flip](#-flip-func) `(func)`
-* [-const](#-const-c) `(c)`
-* [-cut](#-cut-rest-params) `(&rest params)`
-* [-not](#-not-pred) `(pred)`
-* [-orfn](#-orfn-rest-preds) `(&rest preds)`
-* [-andfn](#-andfn-rest-preds) `(&rest preds)`
-* [-iteratefn](#-iteratefn-fn-n) `(fn n)`
-* [-fixfn](#-fixfn-fn-optional-equal-test-halt-test) `(fn &optional equal-test
halt-test)`
-* [-prodfn](#-prodfn-rest-fns) `(&rest fns)`
+* [`-partial`](#-partial-fn-rest-args) `(fn &rest args)`
+* [`-rpartial`](#-rpartial-fn-rest-args) `(fn &rest args)`
+* [`-juxt`](#-juxt-rest-fns) `(&rest fns)`
+* [`-compose`](#-compose-rest-fns) `(&rest fns)`
+* [`-applify`](#-applify-fn) `(fn)`
+* [`-on`](#-on-operator-transformer) `(operator transformer)`
+* [`-flip`](#-flip-func) `(func)`
+* [`-const`](#-const-c) `(c)`
+* [`-cut`](#-cut-rest-params) `(&rest params)`
+* [`-not`](#-not-pred) `(pred)`
+* [`-orfn`](#-orfn-rest-preds) `(&rest preds)`
+* [`-andfn`](#-andfn-rest-preds) `(&rest preds)`
+* [`-iteratefn`](#-iteratefn-fn-n) `(fn n)`
+* [`-fixfn`](#-fixfn-fn-optional-equal-test-halt-test) `(fn &optional
equal-test halt-test)`
+* [`-prodfn`](#-prodfn-rest-fns) `(&rest fns)`
## Maps
diff --git a/dev/examples-to-docs.el b/dev/examples-to-docs.el
index 8beeddc..9012470 100644
--- a/dev/examples-to-docs.el
+++ b/dev/examples-to-docs.el
@@ -26,6 +26,9 @@
(require 'help-fns)
(require 'lisp-mnt)
+(eval-when-compile
+ (require 'subr-x))
+
(defvar functions ())
(defun dash--print-lisp-as-md (obj)
@@ -81,12 +84,10 @@ Based on `describe-function-1'."
(push ,desc functions))
,@examples))
-(defun format-link (string-name)
- (-let* ((name (intern string-name))
- ((_ signature _ _) (assoc name functions)))
- (if signature
- (format "[`%s`](#%s)" name (github-id name signature))
- (format "`%s`" name))))
+(defun format-link (name)
+ (pcase (assq (intern name) functions)
+ (`(,_ ,signature . ,_) (dash--github-link name signature))
+ (_ (format "`%s`" name))))
(defun dash--quote-argnames ()
"Downcase and quote arg names in current buffer for Markdown."
@@ -145,35 +146,16 @@ Based on `describe-function-1'."
(dash--format-docstring docstring)
(mapconcat #'example-to-string (-take 3 examples) "\n")))))
-(defun docs--chop-prefix (prefix s)
- "Remove PREFIX if it is at the start of S."
- (let ((pos (length prefix)))
- (if (and (>= (length s) (length prefix))
- (string= prefix (substring s 0 pos)))
- (substring s pos)
- s)))
-
-(defun docs--chop-suffix (suffix s)
- "Remove SUFFIX if it is at end of S."
- (let ((pos (- (length suffix))))
- (if (and (>= (length s) (length suffix))
- (string= suffix (substring s pos)))
- (substring s 0 pos)
- s)))
-
-(defun github-id (command-name signature)
- (docs--chop-suffix
- "-"
- (replace-regexp-in-string "[^a-zA-Z0-9-]+" "-" (docs--chop-prefix
- "!"
- (format "%S %S"
command-name signature)))))
+(defun dash--github-link (fn signature)
+ (--> (string-remove-prefix "!" (format "%s%s" fn signature))
+ (replace-regexp-in-string (rx (+ (not (in alnum ?-)))) "-" it t t)
+ (format "[`%s`](#%s)" fn (string-remove-suffix "-" it))))
(defun function-summary (function)
- (if (stringp function)
- (concat "\n" function "\n")
- (let ((command-name (car function))
- (signature (cadr function)))
- (format "* [%s](#%s) `%s`" command-name (github-id command-name
signature) signature))))
+ (pcase function
+ (`(,fn ,signature . ,_)
+ (format "* %s `%s`" (dash--github-link fn signature) signature))
+ (_ (concat "\n" function "\n"))))
(defun dash--replace-all (old new)
"Replace occurrences of OLD with NEW in current buffer."
- [elpa] externals/dash eaf33b3 226/316: Add info-lookup-symbol support, (continued)
- [elpa] externals/dash eaf33b3 226/316: Add info-lookup-symbol support, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 565055e 229/316: * dash.el (---truthy?): Simplify., ELPA Syncer, 2021/02/15
- [elpa] externals/dash 97bd233 231/316: Use lexical binding for -grade-up/down, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 1152feb 237/316: Deprecate variadic -list, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 609ac28 245/316: Improve Texinfo markup when documenting errors, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 999cae9 253/316: Fix short-circuiting of --first, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 3726eb1 254/316: Improve the examples of -some, ELPA Syncer, 2021/02/15
- [elpa] externals/dash b0bef0f 276/316: Don't set text-quoting-style globally, ELPA Syncer, 2021/02/15
- [elpa] externals/dash bedc804 282/316: Improve function-to-info, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 9727f7c 288/316: Simplify Lisp -> Texinfo printing, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 7b2584c 294/316: Simplify GitHub link creation,
ELPA Syncer <=
- [elpa] externals/dash 7048e68 296/316: Restore some newlines in docstrings, ELPA Syncer, 2021/02/15
- [elpa] externals/dash f6554c3 298/316: Unquote results in README examples, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 39e5b12 306/316: Merge pull request #370 from blc/news, ELPA Syncer, 2021/02/15
- [elpa] externals/dash af21da3 307/316: * dash-functional.el: Fix Author header., ELPA Syncer, 2021/02/15
- [elpa] externals/dash 9c6b979 309/316: Unify dev/examples-to-*.el files, ELPA Syncer, 2021/02/15