fix: auto-complete for and

src/main/frontend/handler/editor.cljs

@@ -1580,15 +1580,16 @@
  "^" "^"
  "=" "="
  "/" "/"
- "+" "+"})
+ "+" "+"
+ "$" "$"})
 ;; ":" ":" ; TODO: only properties editing and org mode tag
 
 (def reversed-autopair-map
  (zipmap (vals autopair-map)
  (keys autopair-map)))
 
 (def autopair-when-selected
- #{"*" "^" "_" "=" "+" "/"})
+ #{"*" "^" "_" "=" "+" "/" "$"})
 
 (def delete-map
  (assoc autopair-map
@@ -2901,6 +2902,26 @@
  (= (get-current-input-char input) key))
  (do (util/stop e)
  (cursor/move-cursor-forward input))
+
+ (let [sym "$"]
+ (and (= key sym)
+ (>= (count value) 1)
+ (> pos 0)
+ (= (nth value (dec pos)) sym)
+ (if (> (count value) pos)
+ (not= (nth value pos) sym)
+ true)))
+ (commands/simple-insert! input-id "$$" {:backward-pos 2})
+
+ (let [sym "^"]
+ (and (= key sym)
+ (>= (count value) 1)
+ (> pos 0)
+ (= (nth value (dec pos)) sym)
+ (if (> (count value) pos)
+ (not= (nth value pos) sym)
+ true)))
+ (commands/simple-insert! input-id "^^" {:backward-pos 2})
 
  (and (autopair-when-selected key) (string/blank? (util/get-selected-text)))
  nil
@@ -2932,26 +2953,6 @@
  (cursor/move-cursor-forward input)
  (autopair input-id key format nil)))
 
- (let [sym "$"]
- (and (= key sym)
- (>= (count value) 1)
- (> pos 0)
- (= (nth value (dec pos)) sym)
- (if (> (count value) pos)
- (not= (nth value pos) sym)
- true)))
- (commands/simple-insert! input-id "$$" {:backward-pos 2})
-
- (let [sym "^"]
- (and (= key sym)
- (>= (count value) 1)
- (> pos 0)
- (= (nth value (dec pos)) sym)
- (if (> (count value) pos)
- (not= (nth value pos) sym)
- true)))
- (commands/simple-insert! input-id "^^" {:backward-pos 2})
-
  :else
  nil))))