clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-28 08:04:40 +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

61
src/main/frontend/handler/editor.cljs
View File

@@ -38,7 +38,6 @@
[frontend.util.keycode :as keycode]
[frontend.util.list :as list]
[frontend.util.marker :as marker]
[frontend.util.priority :as priority]
[frontend.util.property :as property]
[frontend.util.text :as text-util]
[frontend.util.thingatpt :as thingatpt]
@@ -756,17 +755,6 @@
(util/format "[#%s]" new-priority))]
(save-block-if-changed! block new-content)))
(defn cycle-priority!
[]
(when (state/get-edit-block)
(let [format (or (db/get-page-format (state/get-current-page))
(state/get-preferred-format))
input-id (state/get-edit-input-id)
content (state/get-edit-content)
new-priority (priority/cycle-priority-state content)
new-value (priority/add-or-update-priority content format new-priority)]
(state/set-edit-content! input-id new-value))))
(defn delete-block-aux!
[{:block/keys [uuid repo] :as _block} children?]
(let [repo (or repo (state/get-current-repo))
@@ -2251,55 +2239,6 @@
(state/set-edit-content! (state/get-edit-input-id) value')
(cursor/move-cursor-to input cursor'))))))))))))
(defn toggle-list!
[]
(when-not (auto-complete?)
(let [{:keys [block]} (get-state)]
(when block
(let [input (state/get-input)
format (or (db/get-page-format (state/get-current-page)) (state/get-preferred-format))
new-unordered-bullet (case format :org "-" "*")
current-pos (cursor/pos input)
content (state/get-edit-content)
pos (atom current-pos)]
(if-let [item (thingatpt/list-item-at-point input)]
(let [{:keys [ordered]} item
list-beginning-pos (list/list-beginning-pos input)
list-end-pos (list/list-end-pos input)
list (subs content list-beginning-pos list-end-pos)
items (string/split-lines list)
splitter-reg (if ordered #"[\d]*\.\s*" #"[-\*]{1}\s*")
items-without-bullet (vec (map #(last (string/split % splitter-reg 2)) items))
new-list (string/join "\n"
(if ordered
(map #(str new-unordered-bullet " " %) items-without-bullet)
(map-indexed #(str (inc %1) ". " %2) items-without-bullet)))
index-of-current-item (inc (.indexOf items-without-bullet
(last (string/split (:raw-content item) splitter-reg 2))))
numbers-length (->> (map-indexed
#_:clj-kondo/ignore
#(str (inc %1) ". ")
(subvec items-without-bullet 0 index-of-current-item))
string/join
count)
pos-diff (- numbers-length (* 2 index-of-current-item))]
(delete-and-update input list-beginning-pos list-end-pos)
(insert new-list)
(reset! pos (if ordered
(- current-pos pos-diff)
(+ current-pos pos-diff))))
(let [prev-item (list/get-prev-item input)]
(cursor/move-cursor-down input)
(cursor/move-cursor-to-line-beginning input)
(if prev-item
(let [{:keys [bullet ordered]} prev-item
current-bullet (if ordered (str (inc bullet) ".") bullet)]
(insert (str current-bullet " "))
(reset! pos (+ current-pos (count current-bullet) 1)))
(do (insert (str new-unordered-bullet " "))
(reset! pos (+ current-pos 2))))))
(cursor/move-cursor-to input @pos))))))
(defn toggle-page-reference-embed
[parent-id]
(let [{:keys [block]} (get-state)]