From 67759e2a72916e697c67fc23c5c47f64ccda8647 Mon Sep 17 00:00:00 2001
From: tslil clingman <>
Date: Tue, 24 Mar 2020 11:00:36 -0700
Subject: Separated 2-cells between 1-cells and 2-cell arrows in diagrams

---
 emacs/scripts/cdm-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'emacs')

diff --git a/emacs/scripts/cdm-mode.el b/emacs/scripts/cdm-mode.el
index 86638dd..d645e66 100644
--- a/emacs/scripts/cdm-mode.el
+++ b/emacs/scripts/cdm-mode.el
@@ -1,6 +1,7 @@
-;; Time-stamp: <2020-03-04 11:09:04 (tslil@bison)>
+;; Time-stamp: <2020-03-19 11:07:15 (tslil@bison)>
 
 (defvar cdm-arr-type-list '(("arrow" . "a")
+                            ("2-cell arrow" . "n")
                             ("id" . "d")
                             ("universal" . "u")
                             ("2-cell" . "cn")
@@ -156,7 +157,7 @@
   (interactive)
   (let* ((name (or node-name
                    (read-string "New node name: " (cdm--next-name))))
-         (position (cdm--complete-position))
+         (position (when cdm--node-list (cdm--complete-position)))
          (rel-to (when position (cdm--complete-alist position cdm--node-list)))
          (midway-other (when (and position
                                   (string-prefix-p "midway" position))
-- 
cgit v1.2.3