fix: Shift clicking items under "Recent" tab makes new web page

Resolved #1092

src/main/frontend/components/right_sidebar.cljs

@@ -60,7 +60,16 @@
      (if (seq pages)
        (for [page pages]
          [:a.mb-1 {:key (str "recent-page-" page)
-                   :href (rfe/href :page {:name page})}
+                   :href (rfe/href :page {:name page})
+                   :on-click (fn [e]
+                               (.preventDefault e)
+                               (when (gobj/get e "shiftKey")
+                                 (when-let [page (db/pull [:page/name (string/lower-case page)])]
+                                   (state/sidebar-add-block!
+                                    (state/get-current-repo)
+                                    (:db/id page)
+                                    :page
+                                    {:page page}))))}
           page]))]))
 
 (rum/defcs foldable-list <