1 files changed, 14 insertions, 0 deletions

@@ -649,5 +649,19 @@ and POST-PROCESS are passed to `org-export-to-file'."
       (while (re-search-forward "\n\u000c\n" to t)
         (org-flag-region (match-beginning 0) (match-end 0) t 'visible)))))
 
+;;; Emacs 28+: wrap on hyphens
+;; https://emacs.stackexchange.com/a/71342/37239
+
+(defcustom +org-category-table (let ((table (copy-category-table)))
+                                 (modify-category-entry ?- ?| table)
+                                 table)
+  "Character category table for `org-mode'."
+  :type 'sexp)
+
+(defun +org-wrap-on-hyphens ()
+  "Soft-wrap `org-mode' buffers on spaces and hyphens."
+  (set-category-table +org-category-table)
+  (setq-local word-wrap-by-category t))
+
 (provide '+org)
 ;;; +org.el ends here