No longer quote keywords

Keywords are self-quoting.

Author: tarsius

treepy.el

@@ -208,31 +208,31 @@ ROOT is the root node."
 
 (defun treepy-branch-p (loc)
   "Return t if the node at LOC is a branch."
-  (funcall (treepy--meta loc ':branchp) (treepy-node loc)))
+  (funcall (treepy--meta loc :branchp) (treepy-node loc)))
 
 (defun treepy-children (loc)
   "Return a children list of the node at LOC, which must be a branch."
   (if (treepy-branch-p loc)
-      (funcall (treepy--meta loc ':children) (treepy-node loc))
+      (funcall (treepy--meta loc :children) (treepy-node loc))
     (error "Called children on a leaf node")))
 
 (defun treepy-make-node (loc node children)
   "Return a new branch node.
 Given an existing LOC, NODE and new CHILDREN, creates a new LOC
 with them.  The LOC is only used to supply the constructor."
-  (funcall (treepy--meta loc ':make-node) node children))
+  (funcall (treepy--meta loc :make-node) node children))
 
 (defun treepy-path (loc)
   "Return a list of nodes leading to the given LOC."
-  (reverse (treepy--context loc ':pnodes)))
+  (reverse (treepy--context loc :pnodes)))
 
 (defun treepy-lefts (loc)
   "Return a list of the left siblings of this LOC."
-  (reverse (treepy--context loc ':l)))
+  (reverse (treepy--context loc :l)))
 
 (defun treepy-rights (loc)
   "Return a list of the right siblings of this LOC."
-  (treepy--context loc ':r))
+  (treepy--context loc :r))
 
 ;;;; Navigation
 
@@ -261,7 +261,7 @@ nil if at the top."
          (if changed?
              (cons (treepy-make-node loc pnode
                                      (treepy--join-children l (cons node r)))
-                   (and ppath (treepy--context-assoc ppath ':changed? t)))
+                   (and ppath (treepy--context-assoc ppath :changed? t)))
            (cons pnode ppath))
          (treepy--meta loc))))))
 
@@ -289,8 +289,8 @@ nil if there's no more right siblings."
           (treepy--with-meta
            (cons cr
                  (treepy--context-assoc context
-                   ':l (cons node l)
-                   ':r rnext))
+                   :l (cons node l)
+                   :r rnext))
            (treepy--meta loc)))))))
 
 
@@ -302,8 +302,8 @@ If LOC is already the rightmost sibling, return self."
         (treepy--with-meta
          (cons (car (last r))
                (treepy--context-assoc context
-                 ':l (treepy--join-children l (cons node (butlast r)))
-                 ':r nil))
+                 :l (treepy--join-children l (cons node (butlast r)))
+                 :r nil))
          (treepy--meta loc))
       loc)))
 
@@ -316,8 +316,8 @@ nil if no more left siblings."
         (treepy--with-meta
          (cons cl
                (treepy--context-assoc context
-                 ':l lnext
-                 ':r (cons node r)))
+                 :l lnext
+                 :r (cons node r)))
          (treepy--meta loc))))))
 
 (defun treepy-leftmost (loc)
@@ -328,8 +328,8 @@ If LOC is already the leftmost sibling, return self."
         (treepy--with-meta
          (cons (car (last l))
                (treepy--context-assoc context
-                 ':l []
-                 ':r (treepy--join-children (butlast l) (cons node r))))
+                 :l []
+                 :r (treepy--join-children (butlast l) (cons node r))))
          (treepy--meta loc))
       loc)))
 
@@ -351,8 +351,8 @@ Return same loc with siblings updated."
       (treepy--with-meta
        (cons node
              (treepy--context-assoc context
-               ':l (cons item l)
-               ':changed? t))
+               :l (cons item l)
+               :changed? t))
        (treepy--meta loc)))))
 
 (defun treepy-insert-right (loc item)
@@ -364,8 +364,8 @@ Return same loc with siblings updated."
       (treepy--with-meta
        (cons node
              (treepy--context-assoc context
-               ':r (cons item r)
-               ':changed? t))
+               :r (cons item r)
+               :changed? t))
        (treepy--meta loc)))))
 
 (defun treepy-replace (loc node)
@@ -374,7 +374,7 @@ Return same loc with siblings updated."
     (treepy--with-meta
      (cons node
            (treepy--context-assoc context
-             ':changed? t))
+             :changed? t))
      (treepy--meta loc))))
 
 (defun treepy-edit (loc f &rest args)
@@ -405,8 +405,8 @@ walk."
       (if (> (length l) 0)
           (let ((nloc (treepy--with-meta (cons (car l)
                                                (treepy--context-assoc context
-                                                 ':l (cdr l)
-                                                 ':changed? t))
+                                                 :l (cdr l)
+                                                 :changed? t))
                                          (treepy--meta loc)))
                 (child nil))
             (while (setq child (and (treepy-branch-p nloc)
@@ -415,7 +415,7 @@ walk."
             nloc)
         (treepy--with-meta
          (cons (treepy-make-node loc (car pnodes) r)
-               (and ppath (treepy--context-assoc context ':changed? t)))
+               (and ppath (treepy--context-assoc context :changed? t)))
          (treepy--meta loc))))))
 
 ;;;; Enumeration
@@ -452,7 +452,7 @@ When reaching the end, returns a distinguished loc detectable via
   "Move to the next LOC in the hierarchy, depth-first.
 Use ORDER if given.  Possible values for ORDER are `:preorder' and
 `:postorder', defaults to the former."
-  (cl-case (or order ':preorder)
+  (cl-case (or order :preorder)
     (:preorder (treepy--preorder-next loc))
     (:postorder (treepy--postorder-next loc))
     (t (error "Unrecognized order"))))
@@ -484,7 +484,7 @@ If already at the root, returns nil."
   "Move to the previous LOC in the hierarchy, depth-first.
 Use ORDER if given.  Possible values for ORDER are `:preorder' and `:postorder',
 defaults to the former."
-  (cl-case (or order ':preorder)
+  (cl-case (or order :preorder)
     (:preorder (treepy--preorder-prev loc))
     (:postorder (treepy--postorder-prev loc))
     (t (error "Unrecognized order"))))