diff options
| author | tslil clingman <> | 2020-03-24 11:00:36 -0700 |
|---|---|---|
| committer | tslil clingman <> | 2020-03-24 11:00:36 -0700 |
| commit | 67759e2a72916e697c67fc23c5c47f64ccda8647 (patch) | |
| tree | 5e2e99819688d514b3931a2b9f661ad4bf2fa36e /emacs/scripts/cdm-mode.el | |
| parent | 131eae8d53e8bf41023e11da7382294f187ea41d (diff) | |
Separated 2-cells between 1-cells and 2-cell arrows in diagrams
Diffstat (limited to 'emacs/scripts/cdm-mode.el')
| -rw-r--r-- | emacs/scripts/cdm-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
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)) |