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

More fixed to mobile support

This commit is contained in:
Carsten Dominik 2009-10-12 09:21:37 +02:00
parent 06bcedfd15
commit db607b3e2f
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-mobile.el
View File

@ -303,6 +303,7 @@ agenda view showing the flagged items."
def-tags)) def-tags))
(setq def-tags (delq nil def-tags)) (setq def-tags (delq nil def-tags))
(setq tags (org-delete-all def-tags tags)) (setq tags (org-delete-all def-tags tags))
(setq tags (sort tags (lambda (a b) (string< (downcase a) (downcase b)))))
(setq tags (append def-tags tags nil)) (setq tags (append def-tags tags nil))
(insert "#+TAGS: " (mapconcat 'identity tags " ") "\n") (insert "#+TAGS: " (mapconcat 'identity tags " ") "\n")
(insert "#+DRAWERS: " (mapconcat 'identity drawers " ") "\n") (insert "#+DRAWERS: " (mapconcat 'identity drawers " ") "\n")
@ -527,7 +528,11 @@ If BEG and END are given, only do this in that region."
(setq beg (or beg (point-min)) end (or end (point-max))) (setq beg (or beg (point-min)) end (or end (point-max)))
(goto-char beg) (goto-char beg)
;; First, find all the referenced entries ;; Remove all Note IDs
(while (re-search-forward "^\\*\\* Note ID: [-0-9A-F]+[ \t]*\n" nil t)
(replace-match ""))
;; Find all the referenced entries, without making any changes yet
(let ((marker (make-marker)) (let ((marker (make-marker))
(bos-marker (make-marker)) (bos-marker (make-marker))
(end (move-marker (make-marker) end)) (end (move-marker (make-marker) end))