Lipat wilayah file org

Apakah ada cara untuk melipat suatu wilayah dalam mode-org? (Bukan seluruh file, dan bukan item individual, tetapi wilayah yang mengandung banyak item.)

Seringkali saya ingin menutup hanya sebagian orgfile, misalnya lipat:

* a
** a1
** a2
* b
** b1
** b2
** b3
* c
** c1
** c2
* d
** d1
** d2

ke

* a
** a1
** a2
* b ...
* c ...
* d
** d1
** d2

Saya tahu dalam contoh khusus ini saya hanya bisa melipat seluruh file menggunakan org-cycle, kemudian memperluas adan secara dindividual, tetapi bayangkan ada ratusan item dan saya ingin melipat selusin item yang berdekatan yang terkandung dalam wilayah aktif sambil meninggalkan sisa item di file diperluas.

Ini tampaknya melakukan apa yang Anda inginkan:

(defun org-hide-subtrees-in-region (beg end)
  (interactive "r")
  (save-restriction
    (narrow-to-region beg end)
    (outline-hide-sublevels 1)))

EDIT: Saya pertama kali memberikan solusi yang salah, yang saya simpan di sini karena juga menarik IMO (tetapi tidak menjawab pertanyaan)

Fungsi ini outline-hide-region-bodytampaknya persis seperti yang Anda inginkan, tetapi karena alasan tertentu itu tidak interaktif. Kita dapat menambahkan spesifikasi interaktif untuk itu, tetapi mari kita definisikan org-hide-subtrees-in-regionsebagai:

(defun org-hide-subtrees-in-region (beg end)
  (interactive "r")
  (outline-hide-region-body beg end))