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

enhance(mobile): add list icon

Browse Source 
Features:
- create an empty list
- toggle current line to a list item
- toggle ordered/unordered list
This commit is contained in:
leizhe
2022-01-04 20:22:03 +08:00
committed by Andelf
parent c317836857
commit b45ed4534e
4 changed files with 111 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,20 +1,42 @@
(ns frontend.util.list
(:require [frontend.util.thingatpt :as thingatpt]
[frontend.util.cursor :as cursor]))
[frontend.util.cursor :as cursor]
[clojure.string :as string]
[frontend.state :as state]
[frontend.db :as db]))
(defn- get-prev-item [& [input]]
(when-let [item (thingatpt/list-item-at-point input)]
(let [{:keys [bullet ordered]} item]
(when-not (or (cursor/textarea-cursor-first-row? input)
(and ordered
(= bullet "1")))
(cursor/move-cursor-up input)
(thingatpt/list-item-at-point input)))))
(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]]
(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)))