1
0
Fork 0

[oni-org] Add keybinding to refile items to the top of a heading

This commit is contained in:
Tom Willemse 2023-03-25 21:39:56 -07:00
parent b468287aa7
commit 94a7eeef18

View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2023.0320.225105 ;; Version: 2023.0325.213834
;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-contrib org-bullets org-edna diminish all-the-icons olivetti form-feed) ;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-contrib org-bullets org-edna diminish all-the-icons olivetti form-feed)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -777,6 +777,11 @@ After running it once remove it from `org-capture-after-finalize-hook'."
;;; Refile ;;; Refile
(defun oni-org-refile-to-top ()
(interactive)
(let ((org-reverse-note-order t))
(org-refile)))
;; Set it up so that I can refile easily and still create new nodes when I ;; Set it up so that I can refile easily and still create new nodes when I
;; refile. Include the file in the outline path so that I can refile into them ;; refile. Include the file in the outline path so that I can refile into them
;; and create top-level headings. ;; and create top-level headings.
@ -791,6 +796,8 @@ After running it once remove it from `org-capture-after-finalize-hook'."
(oni-org-todo-main-file . (:maxlevel . 10)) (oni-org-todo-main-file . (:maxlevel . 10))
(oni-org-todo-someday-file . (:maxlevel . 1)))) (oni-org-todo-someday-file . (:maxlevel . 1))))
(define-key org-mode-map (kbd "C-c C-S-w") #'oni-org-refile-to-top 'remove)
;;; Export ;;; Export
(require 'ox-html) (require 'ox-html)
(require 'nxml-mode) (require 'nxml-mode)