Files
logseq/src/main/frontend/components/right_sidebar.cljs

368 lines
15 KiB
Clojure

(ns frontend.components.right-sidebar
(:require [cljs-bean.core :as bean]
[clojure.string :as string]
[frontend.components.block :as block]
[frontend.components.onboarding :as onboarding]
[frontend.components.page :as page]
[frontend.components.shortcut :as shortcut]
[frontend.components.svg :as svg]
[frontend.context.i18n :refer [t]]
[frontend.date :as date]
[frontend.db :as db]
[frontend.db-mixins :as db-mixins]
[frontend.db.model :as db-model]
[frontend.extensions.slide :as slide]
[frontend.handler.editor :as editor-handler]
[frontend.handler.ui :as ui-handler]
[frontend.state :as state]
[frontend.ui :as ui]
[frontend.util :as util]
[frontend.config :as config]
[frontend.modules.editor.undo-redo :as undo-redo]
[goog.object :as gobj]
[medley.core :as medley]
[reitit.frontend.easy :as rfe]
[rum.core :as rum]))
(rum/defc toggle
[]
(when-not (util/sm-breakpoint?)
(ui/with-shortcut :ui/toggle-right-sidebar "left"
[:button.button.icon.toggle-right-sidebar
{:title (t :right-side-bar/toggle-right-sidebar)
:on-click ui-handler/toggle-right-sidebar!}
(ui/icon "layout-sidebar-right" {:size 20})])))
(rum/defc block-cp < rum/reactive
[repo idx block]
(let [id (:block/uuid block)]
(page/page {:parameters {:path {:name (str id)}}
:sidebar? true
:sidebar/idx idx
:repo repo})))
(rum/defc page-cp < rum/reactive
[repo page-name]
(page/page {:parameters {:path {:name page-name}}
:sidebar? true
:repo repo}))
(rum/defc contents < rum/reactive db-mixins/query
[]
[:div.contents.flex-col.flex.ml-3
(when-let [contents (db/entity [:block/name "contents"])]
(page/contents-page contents))])
(rum/defc shortcut-settings
[]
[:div.contents.flex-col.flex.ml-3
(shortcut/shortcut-page {:show-title? false})])
(defn- block-with-breadcrumb
[repo block idx sidebar-key ref?]
(when-let [block-id (:block/uuid block)]
[[:div.mt-1 {:class (if ref? "ml-8" "ml-1")}
(block/breadcrumb {:id "block-parent"
:block? true
:sidebar-key sidebar-key} repo block-id {})]
[:div.ml-2
(block-cp repo idx block)]]))
(rum/defc history-action-info
[[k v]]
(when v [:.ml-4 (ui/foldable
[:div (str k)]
[:.ml-4 (case k
:tx-id
[:.my-1 [:pre.code.pre-wrap-white-space.bg-base-4 (str v)]]
:blocks
(map (fn [block]
[:.my-1 [:pre.code.pre-wrap-white-space.bg-base-4 (str block)]]) v)
:txs
(map (fn [[_ key val]]
(when val
[:pre.code.pre-wrap-white-space.bg-base-4
[:span.font-bold (str key) " "] (str val)])) v)
(map (fn [[key val]]
(when val
[:pre.code.pre-wrap-white-space.bg-base-4
[:span.font-bold (str key) " "] (str val)])) v))]
{:default-collapsed? true})]))
(rum/defc history-stack
[label stack]
[:.ml-4 (ui/foldable
[:div label " (" (count stack) ")"]
(map-indexed (fn [index item]
[:.ml-4 (ui/foldable [:div (str index " " (-> item :tx-meta :outliner-op))]
(map history-action-info item)
{:default-collapsed? true})]) stack)
{:default-collapsed? true})])
(rum/defc history < rum/reactive
[]
(let [state (undo-redo/get-state)
page-only-mode? (state/sub :history/page-only-mode?)]
[:div.ml-4
[:div.ml-3.font-bold (if page-only-mode? "page only" "global")]
[:div.p-4 [:.ml-4.mb-2
(history-stack "Undos" (rum/react (:undo-stack state)))
(history-stack "Redos" (rum/react (:redo-stack state)))]]]))
(defn build-sidebar-item
[repo idx db-id block-type]
(case (keyword block-type)
:contents
[(t :right-side-bar/contents)
(contents)]
:help
[(t :right-side-bar/help) (onboarding/help)]
:page-graph
[(t :right-side-bar/page-graph)
(page/page-graph)]
:history
[(t :right-side-bar/history)
(history)]
:block-ref
#_:clj-kondo/ignore
(let [lookup (if (integer? db-id) db-id [:block/uuid db-id])]
(when-let [block (db/entity repo lookup)]
[(t :right-side-bar/block-ref)
(block-with-breadcrumb repo block idx [repo db-id block-type] true)]))
:block
#_:clj-kondo/ignore
(let [lookup (if (integer? db-id) db-id [:block/uuid db-id])]
(when-let [block (db/entity repo lookup)]
(block-with-breadcrumb repo block idx [repo db-id block-type] false)))
:page
(when-let [page-name (if (integer? db-id)
(:block/name (db/entity db-id))
db-id)]
[[:a.page-title {:href (if (db-model/whiteboard-page? page-name)
(rfe/href :whiteboard {:name page-name})
(rfe/href :page {:name page-name}))
:draggable true
:on-drag-start (fn [event] (editor-handler/block->data-transfer! page-name event))
:on-click (fn [e]
(when (gobj/get e "shiftKey")
(.preventDefault e)))}
(db-model/get-page-original-name page-name)]
[:div.ml-2
(page-cp repo page-name)]])
:page-presentation
(let [page-name (:block/name (db/entity db-id))]
[[:a.page-title {:href (rfe/href :page {:name page-name})}
(db-model/get-page-original-name page-name)]
[:div.ml-2.slide.mt-2
(slide/slide page-name)]])
:shortcut-settings
[(t :help/shortcuts) (shortcut-settings)]
["" [:span]]))
(defn close
([on-close]
(close nil on-close))
([class on-close]
[:a.close.flex.items-center
(cond-> {:on-click on-close
:style {:margin-right -4}}
class
(assoc :class class))
svg/close]))
(rum/defc sidebar-item < rum/reactive
[repo idx db-id block-type]
(let [item (build-sidebar-item repo idx db-id block-type)]
(when item
(let [collapse? (state/sub [:ui/sidebar-collapsed-blocks db-id])]
[:div.sidebar-item.content.color-level.px-4.shadow-md
(let [[title component] item]
[:div.flex.flex-col
[:div.flex.flex-row.justify-between
[:div.flex.flex-row.justify-center
[:a.opacity-50.hover:opacity-100.flex.items-center.pr-1
{:on-click #(state/sidebar-block-toggle-collapse! db-id)}
(ui/rotating-arrow collapse?)]
[:div.ml-1.font-medium
title]]
(close #(state/sidebar-remove-block! idx))]
[:div {:class (if collapse? "hidden" "initial")}
component]])]))))
(defn- get-page
[match]
(let [route-name (get-in match [:data :name])
page (case route-name
:page
(get-in match [:path-params :name])
:file
(get-in match [:path-params :path])
(date/journal-name))]
(when page
(string/lower-case page))))
(defn get-current-page
[]
(let [match (:route-match @state/state)]
(get-page match)))
(rum/defc sidebar-resizer
[sidebar-open? sidebar-id handler-position]
(let [el-ref (rum/use-ref nil)
min-px-width 144 ; Custom window controls width
min-ratio 0.1
max-ratio 0.7
keyboard-step 5
add-resizing-class #(.. js/document.documentElement -classList (add "is-resizing-buf"))
remove-resizing-class (fn []
(.. js/document.documentElement -classList (remove "is-resizing-buf"))
(reset! ui-handler/*right-sidebar-resized-at (js/Date.now)))
set-width! (fn [ratio]
(when el-ref
(let [value (* ratio 100)
width (str value "%")]
(.setAttribute (rum/deref el-ref) "aria-valuenow" value)
(ui-handler/persist-right-sidebar-width! width))))]
(rum/use-effect!
(fn []
(when-let [el (and (fn? js/window.interact) (rum/deref el-ref))]
(-> (js/interact el)
(.draggable
(bean/->js
{:listeners
{:move
(fn [^js/MouseEvent e]
(let [width js/document.documentElement.clientWidth
min-ratio (max min-ratio (/ min-px-width width))
sidebar-el (js/document.getElementById sidebar-id)
offset (.-pageX e)
ratio (.toFixed (/ offset width) 6)
ratio (if (= handler-position :west) (- 1 ratio) ratio)
cursor-class (str "cursor-" (first (name handler-position)) "-resize")]
(if (= (.getAttribute el "data-expanded") "true")
(cond
(< ratio (/ min-ratio 2))
(state/hide-right-sidebar!)
(< ratio min-ratio)
(.. js/document.documentElement -classList (add cursor-class))
(and (< ratio max-ratio) sidebar-el)
(when sidebar-el
(#(.. js/document.documentElement -classList (remove cursor-class))
(set-width! ratio)))
:else
#(.. js/document.documentElement -classList (remove cursor-class)))
(when (> ratio (/ min-ratio 2)) (state/open-right-sidebar!)))))}}))
(.styleCursor false)
(.on "dragstart" add-resizing-class)
(.on "dragend" remove-resizing-class)
(.on "keydown" (fn [e]
(when-let [sidebar-el (js/document.getElementById sidebar-id)]
(let [width js/document.documentElement.clientWidth
min-ratio (max min-ratio (/ min-px-width width))
keyboard-step (case (.-code e)
"ArrowLeft" (- keyboard-step)
"ArrowRight" keyboard-step
0)
offset (+ (.-x (.getBoundingClientRect sidebar-el)) keyboard-step)
ratio (.toFixed (/ offset width) 6)
ratio (if (= handler-position :west) (- 1 ratio) ratio)]
(when (and (> ratio min-ratio) (< ratio max-ratio) (not (zero? keyboard-step)))
((add-resizing-class)
(set-width! ratio)))))))
(.on "keyup" remove-resizing-class)))
#())
[])
(rum/use-effect!
(fn []
;; sidebar animation duration
(js/setTimeout
#(reset! ui-handler/*right-sidebar-resized-at (js/Date.now)) 300))
[sidebar-open?])
[:.resizer {:ref el-ref
:role "separator"
:aria-orientation "vertical"
:aria-label (t :right-side-bar/separator)
:aria-valuemin (* min-ratio 100)
:aria-valuemax (* max-ratio 100)
:tabIndex "0"
:data-expanded sidebar-open?}]))
(rum/defcs sidebar-inner <
(rum/local false ::anim-finished?)
{:will-mount (fn [state]
(js/setTimeout (fn [] (reset! (get state ::anim-finished?) true)) 300)
state)}
[state repo t blocks]
(let [*anim-finished? (get state ::anim-finished?)]
[:div.cp__right-sidebar-inner.flex.flex-col.h-full#right-sidebar-container
[:div.cp__right-sidebar-scrollable
[:div.cp__right-sidebar-topbar.flex.flex-row.justify-between.items-center.px-2.h-12
[:div.cp__right-sidebar-settings.hide-scrollbar.gap-1 {:key "right-sidebar-settings"}
[:div.text-sm
[:button.button.cp__right-sidebar-settings-btn {:on-click (fn [_e]
(state/sidebar-add-block! repo "contents" :contents))}
(t :right-side-bar/contents)]]
[:div.text-sm
[:button.button.cp__right-sidebar-settings-btn {:on-click (fn []
(when-let [page (get-current-page)]
(state/sidebar-add-block!
repo
page
:page-graph)))}
(t :right-side-bar/page-graph)]]
[:div.text-sm
[:button.button.cp__right-sidebar-settings-btn {:on-click (fn [_e]
(state/sidebar-add-block! repo "help" :help))}
(t :right-side-bar/help)]]
(when config/dev? [:div.text-sm
[:button.button.cp__right-sidebar-settings-btn {:on-click (fn [_e]
(state/sidebar-add-block! repo "history" :history))}
(t :right-side-bar/history)]])]]
[:.sidebar-item-list.flex-1.scrollbar-spacing.flex.flex-col.gap-2
(if @*anim-finished?
(for [[idx [repo db-id block-type]] (medley/indexed blocks)]
(rum/with-key
(sidebar-item repo idx db-id block-type)
(str "sidebar-block-" idx)))
[:div.p-4
[:span.font-medium.opacity-50 "Loading ..."]])]]]))
(rum/defcs sidebar < rum/reactive
[state]
(let [blocks (state/sub-right-sidebar-blocks)
blocks (if (empty? blocks)
[[(state/get-current-repo) "contents" :contents nil]]
blocks)
sidebar-open? (state/sub :ui/sidebar-open?)
width (state/sub :ui/sidebar-width)
repo (state/sub :git/current-repo)]
[:div#right-sidebar.cp__right-sidebar.h-screen
{:class (if sidebar-open? "open" "closed")
:style {:width width}}
(sidebar-resizer sidebar-open? "right-sidebar" :west)
(when sidebar-open?
(sidebar-inner repo t blocks))]))