fix(org): remove extra line when deadline or scheduled added

pull/2698/head
leizhe 2021-08-22 18:35:38 +09:00 committed by Tienson Qin
parent 953f3ad335
commit 76fbeb87de
1 changed files with 4 additions and 3 deletions

View File

@ -990,9 +990,10 @@
new-line (str (string/upper-case key) ": " value)
new-content (let [lines (string/split-lines content)
new-lines (map (fn [line]
(if (string/starts-with? (string/lower-case line) key)
new-line
line))
(string/trim
(if (string/starts-with? (string/lower-case line) key)
new-line
line)))
lines)
new-lines (if (not= lines new-lines)
new-lines