|
@@ -325,6 +325,13 @@
|
|
|
(p/let [_ (rename-file-aux! repo old-path new-path)]
|
|
(p/let [_ (rename-file-aux! repo old-path new-path)]
|
|
|
(println "Renamed " old-path " to " new-path)))))))
|
|
(println "Renamed " old-path " to " new-path)))))))
|
|
|
|
|
|
|
|
|
|
+(defn favorited?
|
|
|
|
|
+ [page-name]
|
|
|
|
|
+ (let [favorites (->> (:favorites (state/get-config))
|
|
|
|
|
+ (map string/lower-case)
|
|
|
|
|
+ (set))]
|
|
|
|
|
+ (contains? favorites page-name)))
|
|
|
|
|
+
|
|
|
(defn favorite-page!
|
|
(defn favorite-page!
|
|
|
[page-name]
|
|
[page-name]
|
|
|
(when-not (string/blank? page-name)
|
|
(when-not (string/blank? page-name)
|
|
@@ -445,8 +452,9 @@
|
|
|
|
|
|
|
|
(repo-handler/push-if-auto-enabled! repo)
|
|
(repo-handler/push-if-auto-enabled! repo)
|
|
|
|
|
|
|
|
- (p/let [_ (unfavorite-page! old-name)]
|
|
|
|
|
- (favorite-page! new-name))
|
|
|
|
|
|
|
+ (when (favorited? old-name)
|
|
|
|
|
+ (p/let [_ (unfavorite-page! old-name)]
|
|
|
|
|
+ (favorite-page! new-name)))
|
|
|
|
|
|
|
|
(ui-handler/re-render-root!))))
|
|
(ui-handler/re-render-root!))))
|
|
|
|
|
|