Add support for win32 custom titleBar

This commit is contained in:
Aitor Gamarra
2023-05-16 18:41:42 +02:00
parent ff13060a04
commit 425dc801b7
11 changed files with 127 additions and 56 deletions

View File

@@ -98,7 +98,9 @@
[name path-params]
(case name
:home
"Logseq"
(t :home)
:whiteboards
(t :whiteboards)
:repos
"Repos"
:repo-add
@@ -129,6 +131,15 @@
(let [page (db/pull [:block/name (util/page-name-sanity-lc name)])]
(or (util/get-page-original-name page)
"Logseq"))))
:whiteboard
(let [name (:name path-params)
block? (util/uuid-string? name)]
(str
(if block?
(t :untitled)
(let [page (db/pull [:block/name (util/page-name-sanity-lc name)])]
(or (util/get-page-original-name page)
"Logseq"))) " - " (t :whiteboard)))
:tag
(str "#" (:name path-params))
:diff