clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-04 19:06:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

chore: remove unused code

Browse Source
This commit is contained in:
Tienson Qin
2022-11-08 23:30:11 +08:00
parent f90e8ee7d5
commit 4aeaaeb01e
6 changed files with 8 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
src/main/frontend/util/list.cljs
View File

@@ -1,44 +1,6 @@
(ns frontend.util.list
"High level list operations for use in editor"
(:require [frontend.util.thingatpt :as thingatpt]
[frontend.util.cursor :as cursor]
[clojure.string :as string]))
(defn get-prev-item [& [input]]
(when-not (cursor/textarea-cursor-first-row? input)
(if-let [item (thingatpt/list-item-at-point input)]
(let [{:keys [bullet ordered]} item]
(when-not (and ordered (= bullet "1"))
(cursor/move-cursor-up input)))
(cursor/move-cursor-up input))
(thingatpt/list-item-at-point input)))
(defn get-next-item [& [input]]
(when-let [item (thingatpt/list-item-at-point input)]
(let [{:keys [_bullet _ordered]} item]
(when-not (cursor/textarea-cursor-last-row? input)
(cursor/move-cursor-down input)
(thingatpt/list-item-at-point input)))))
(defn list-beginning-pos [& [input]]
(when-let [item (thingatpt/list-item-at-point input)]
(let [current-pos (cursor/pos input)
item-start (:start item)
beginning-pos (atom item-start)]
(while (when-let [prev-item (get-prev-item input)]
(reset! beginning-pos (:start prev-item))))
(cursor/move-cursor-to input current-pos)
@beginning-pos)))
(defn list-end-pos [& [input]]
(when-let [item (thingatpt/list-item-at-point input)]
(let [current-pos (cursor/pos input)
item-end (:end item)
end-pos (atom item-end)]
(while (when-let [next-item (get-next-item input)]
(reset! end-pos (:end next-item))))
(cursor/move-cursor-to input current-pos)
@end-pos)))
(:require [clojure.string :as string]))
(defn- newline?
[line]