fix: batch copy page titles

src/main/frontend/components/selection.cljs

@@ -11,7 +11,8 @@
   [& {:keys [on-cut on-copy selected-blocks hide-dots? button-border?]
       :or {on-cut #(editor-handler/cut-selection-blocks true)}}]
   (let [on-copy (if (and selected-blocks (nil? on-copy))
-                  #(editor-handler/copy-selection-blocks true {:selected-blocks selected-blocks})
+                  #(editor-handler/copy-selection-blocks true {:selected-blocks selected-blocks
+                                                               :page-title-only? true})
                   (or on-copy #(editor-handler/copy-selection-blocks true)))
         button-opts {:variant :outline
                      :size :sm

src/main/frontend/handler/editor.cljs

@@ -924,14 +924,16 @@
   (block-handler/select-block! block-uuid))
 
 (defn- compose-copied-blocks-contents
-  [repo block-ids]
+  [repo block-ids & {:as opts}]
   (let [blocks (db-utils/pull-many repo '[*] (mapv (fn [id] [:block/uuid id]) block-ids))
         top-level-block-uuids (->> (block-handler/get-top-level-blocks blocks)
                                    (map :block/uuid))
         content (export-text/export-blocks-as-markdown
                  repo top-level-block-uuids
-                 {:indent-style (state/get-export-block-text-indent-style)
-                  :remove-options (set (state/get-export-block-text-remove-options))})]
+                 (merge
+                  opts
+                  {:indent-style (state/get-export-block-text-indent-style)
+                   :remove-options (set (state/get-export-block-text-remove-options))}))]
     [top-level-block-uuids content]))
 
 (defn- get-all-blocks-by-ids
@@ -947,14 +949,14 @@
       result)))
 
 (defn copy-selection-blocks
-  [html? & {:keys [selected-blocks]}]
+  [html? & {:keys [selected-blocks] :as opts}]
   (let [repo (state/get-current-repo)
         blocks (seq (state/get-selection-blocks))
         ids (if blocks
               (distinct (keep #(when-let [id (dom/attr % "blockid")]
                                  (uuid id)) blocks))
               (map :block/uuid selected-blocks))
-        [top-level-block-uuids content] (compose-copied-blocks-contents repo ids)
+        [top-level-block-uuids content] (compose-copied-blocks-contents repo ids opts)
         block (db/entity [:block/uuid (first ids)])
         db-based? (config/db-based-graph? repo)]
     (when block

src/main/frontend/handler/export/common.cljs

@@ -5,6 +5,7 @@
   (:refer-clojure :exclude [map filter mapcat concat remove])
   (:require [cljs.core.match :refer [match]]
             [clojure.string :as string]
+            [frontend.common.file.core :as common-file]
             [frontend.db :as db]
             [frontend.format.mldoc :as mldoc]
             [frontend.modules.file.core :as outliner-file]
@@ -12,11 +13,10 @@
             [frontend.persist-db.browser :as db-browser]
             [frontend.state :as state]
             [frontend.util :as util :refer [concatv mapcatv removev]]
-            [frontend.common.file.core :as common-file]
+            [logseq.db :as ldb]
             [malli.core :as m]
             [malli.util :as mu]
-            [promesa.core :as p]
-            [logseq.db :as ldb]))
+            [promesa.core :as p]))
 
 ;;; TODO: split frontend.handler.export.text related states
 (def ^:dynamic *state*
@@ -64,8 +64,14 @@
       (outliner-file/tree->file-content {:init-level init-level})))
 
 (defn root-block-uuids->content
-  [repo root-block-uuids]
-  (let [contents (mapv #(get-blocks-contents repo %) root-block-uuids)]
+  [repo root-block-uuids & {:keys [page-title-only?]}]
+  (let [contents (mapv (fn [id]
+                         (if-let [page (and page-title-only?
+                                            (let [e (db/entity [:block/uuid id])]
+                                              (when (:block/name e)
+                                                e)))]
+                           (:block/title page)
+                           (get-blocks-contents repo id))) root-block-uuids)]
     (string/join "\n" (mapv string/trim-newline contents))))
 
 (declare remove-block-ast-pos Properties-block-ast?)

src/main/frontend/handler/export/text.cljs

@@ -506,7 +506,8 @@
   "options:
   :indent-style \"dashes\" | \"spaces\" | \"no-indent\"
   :remove-options [:emphasis :page-ref :tag :property]
-  :other-options {:keep-only-level<=N int :newline-after-block bool}"
+  :other-options {:keep-only-level<=N int :newline-after-block bool}
+  :page-title-only? boolean"
   [repo root-block-uuids-or-page-uuid options]
   {:pre [(or (coll? root-block-uuids-or-page-uuid)
              (uuid? root-block-uuids-or-page-uuid))]}
@@ -517,7 +518,7 @@
            (if (uuid? root-block-uuids-or-page-uuid)
              ;; page
              (common/get-page-content root-block-uuids-or-page-uuid)
-             (common/root-block-uuids->content repo root-block-uuids-or-page-uuid))
+             (common/root-block-uuids->content repo root-block-uuids-or-page-uuid options))
            first-block (and (coll? root-block-uuids-or-page-uuid)
                             (db/entity [:block/uuid (first root-block-uuids-or-page-uuid)]))
            format (get first-block :block/format :markdown)]