[elpa] elpa cf4ce35 18/23: TikZ: Add more path connector types.

[Tassilo Horn]

branch: elpa
commit cf4ce35278f294c0c054c8662fc4e6891624dc5d
Author: Matthew Leach <address@hidden>
Commit: Matthew Leach <address@hidden>

    TikZ: Add more path connector types.
    
    * style/tikz.el (TeX-TikZ-path-connector-function-map): New.
      (TeX-TikZ-draw-arg-function-map): Use
      `TeX-TikZ-path-connector-function-map'.
---
 style/tikz.el |   17 ++++++++++++++---
 1 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/style/tikz.el b/style/tikz.el
index 5091e8d..be93110 100644
--- a/style/tikz.el
+++ b/style/tikz.el
@@ -179,11 +179,22 @@ them as a list of strings, dropping the '()'."
     ("Named Point" TeX-TikZ-arg-named-point))
   "An alist of point specification types and their functions." )
 
+(defconst TeX-TikZ-path-connector-function-map
+  (let ((connectors '("--" "|-" "-|")))
+    (apply 'append (mapcar
+                     (lambda (connector)
+                       `((,connector identity)
+                         (,(concat connector " +") identity)
+                         (,(concat connector " ++") identity)))
+                     connectors)))
+  "An alist of path connectors.
+A set of base connectors along with variants that have \" +\" and
+\" ++\" appended to them, mapping to the identity function.")
+
 (defconst TeX-TikZ-draw-arg-function-map
   `(,@TeX-TikZ-point-function-map
-    ("Node" TeX-TikZ-arg-node)
-    ("--" identity)
-    ("-+" identity))
+    ,@TeX-TikZ-path-connector-function-map
+    ("Node" TeX-TikZ-arg-node))
   "An alist of argument names and functoins for TikZ's \draw.")
 
 (defun TeX-TikZ-draw-arg (_ignored)