ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New hook to preprocess captured data from MobileOrg.

This commit is contained in:
Carsten Dominik 2009-11-06 17:40:52 +01:00
parent 824f6efbe4
commit 9916ae2b33
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2009-11-06 Carsten Dominik <carsten.dominik@gmail.com> 2009-11-06 Carsten Dominik <carsten.dominik@gmail.com>
* org-mobile.el (org-mobile-before-process-capture-hook): New hook.
(org-mobile-pull): Run `org-mobile-before-process-capture-hook'.
* org.el (org-indent-mode): Define variable already in org.el. * org.el (org-indent-mode): Define variable already in org.el.
(org-unfontify-region): Remove line-prefix and wrap-prefix (org-unfontify-region): Remove line-prefix and wrap-prefix
properties only if org-indent-mode is active. properties only if org-indent-mode is active.

9
lisp/org-mobile.el
View File

@ -252,6 +252,11 @@ create all custom agenda views, for upload to the mobile phone."
(select-window cw))))) (select-window cw)))))
(message "Files for mobile viewer staged")) (message "Files for mobile viewer staged"))
(defvar org-mobile-before-process-capture-hook nil
"Hook that is run after content was moved to `org-mobile-inbox-for-pull'.
The inbox file is in the current buffer, and the buffer is arrowed to the
new captured data.")
;;;###autoload ;;;###autoload
(defun org-mobile-pull () (defun org-mobile-pull ()
"Pull the contents of `org-mobile-capture-file' and integrate them. "Pull the contents of `org-mobile-capture-file' and integrate them.
@ -263,6 +268,10 @@ agenda view showing the flagged items."
(let ((insertion-marker (org-mobile-move-capture))) (let ((insertion-marker (org-mobile-move-capture)))
(if (not (markerp insertion-marker)) (if (not (markerp insertion-marker))
(message "No new items") (message "No new items")
(org-with-point-at insertion-marker
(save-restriction
(narrow-to-region (point) (point-max))
(run-hooks 'org-mobile-before-process-capture-hook)))
(org-with-point-at insertion-marker (org-with-point-at insertion-marker
(org-mobile-apply (point) (point-max))) (org-mobile-apply (point) (point-max)))
(move-marker insertion-marker nil) (move-marker insertion-marker nil)