Mercurial > emacs
view lisp/org/org-mobile.el @ 105341:2a8a3a69c1c7
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-set-tags-to): New command.
* org-latex.el (org-export-latex-set-initial-vars): Also check in
the plist.
* org.el (org-additional-option-like-keywords): Add LATEX_CLASS
keyword.
* org-exp.el (org-infile-export-plist): Add LATEX_CLASS keyword.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-inlinetask.el (org-inlinetask-export): Option removed.
(org-inlinetask-export-handler): Better export.
* org-xoxo.el (org-export-xoxo-final-hook): New hook.
(org-export-as-xoxo): Run the new hook.
* org-html.el (org-export-html-final-hook): New hook.
(org-export-as-html): Run the new hook.
* org-docbook.el (org-export-docbook-final-hook): New hook.
(org-export-as-docbook): Run the new hook.
* org-ascii.el (org-export-ascii-final-hook): New hook.
(org-export-as-ascii): Run the new hook.
* org-latex.el (org-export-latex-treat-sub-super-char): Allow a
space character as the character before the ^/_.
(org-export-latex-final-hook): New hook.
(org-export-as-latex): Run `org-export-latex-final-hook'.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-macs.el (org-if-unprotected-at): Fix docstring.
* org-agenda.el (org-agenda-change-all-lines): Handle invisible
text in the prefix (if category is a link).
* org-latex.el (org-export-latex-preprocess): Deal properly with
empty lines in verse environments.
* org.el (org-format-latex-header): Inline fullpage.sty.
* org-footnote.el (org-footnote-create-definition): Reveal context
to add a new footnote definition.
* org.el (org-ctrl-c-ctrl-c): Pass prefix arg to
org-table-recalculate when cursor is in TBLFM line.
* org-list.el (org-renumber-ordered-list): Fix cursor position
when bullet length has changed.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-format-latex): Mention `org-format-latex-options' in
the docstring.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-agenda-get): New function.
* org-agenda.el (org-agenda-post-command-hook): No longer move
point away from end of line.
(org-agenda-add-entry-text, org-agenda-collect-markers)
(org-finalize-agenda, org-agenda-mark-clocking-task)
(org-agenda-dim-blocked-tasks, org-agenda-entry-text-show-here)
(org-agenda-entry-text-show, org-agenda-highlight-todo)
(org-agenda-compare-effort, org-agenda-filter-apply)
(org-agenda-later, org-agenda-change-time-span)
(org-agenda-post-command-hook, org-agenda-show-priority)
(org-agenda-show-tags, org-agenda-goto, org-agenda-kill)
(org-agenda-archive, org-agenda-archive-to-archive-sibling)
(org-remove-subtree-entries-from-agenda, org-agenda-refile)
(org-agenda-open-link, org-agenda-copy-local-variable)
(org-agenda-switch-to, org-agenda-check-no-diary)
(org-agenda-tree-to-indirect-buffer, org-agenda-todo)
(org-agenda-add-note, org-agenda-change-all-lines)
(org-agenda-priority, org-agenda-set-tags)
(org-agenda-set-property, org-agenda-set-effort)
(org-agenda-toggle-archive-tag, org-agenda-date-later)
(org-agenda-show-new-time, org-agenda-date-prompt)
(org-agenda-schedule, org-agenda-deadline, org-agenda-action)
(org-agenda-clock-in, org-agenda-bulk-mark)
(org-agenda-bulk-unmark, org-agenda-show-the-flagging-note): Use
`org-get-at-bol'.
* org-colview.el (org-columns-display-here)
(org-columns-edit-allowed, org-agenda-columns): Use
`org-get-at-bol'.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-special-ctrl-a/e): Improve documentation and
customize type.
(org-end-of-line): Don't jump to after the ellipsis.
(org-mode-map): Bind <home> and <end> as well.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-fontify-meta-lines-and-blocks): Treat lines with a
space after #+ as comments.
(org-open-at-point): Run `org-follow-link-hook' always.
* org-latex.el (org-export-latex-emph-format): Use better commands
to insert special characters in verbatim snippets.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-faces.el (org-copy-face): New function. Use it to create
various faces formerly created by using `copy-face'.
* org-agenda.el (org-prepare-agenda): Don't officially mark this
window dedicated.
(org-agenda-quit): Kill the frame containing the agenda window if
that frame was created for the agenda.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-date-prompt): Mark the changed time
stamp in the agenda.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-prepare-agenda): Reset
`org-drawers-for-agenda'.
(org-prepare-agenda): Uniquify list of drawers.
* org.el (org-complex-heading-regexp-format): New variable.
(org-set-regexps-and-options): Define
`org-complex-heading-regexp-format'.
(org-drawers-for-agenda): New variable.
(org-map-entries): Bind `org-drawers-for-agenda'.
(org-prepare-agenda-buffers): Add to `org-drawers-for-agenda'.
* org-remember.el (org-go-to-remember-target)
(org-remember-handler): Use `org-complex-heading-regexp-format'.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-highlight-todo): Fix text property
problem.
* org.el (org-on-heading-p, org-at-heading-p): Make sure these are
always with `invisible-ok'.
(org-store-link): No error when there is nothing to link to in the
agenda.
* org-list.el (org-update-checkbox-count): Insert changed cookie
before the old, to avoid problems with invisibility at the end of
the line.
(org-update-checkbox-count): Insert changed cookie before the old,
to avoid problems with invisibility at the end of the line.
* org.el (org-sort-entries-or-items): Include the final newline.
(org-fontify-meta-lines-and-blocks): Add indented dynamic block
lines for fontification.
(org-dblock-start-re, org-dblock-end-re): Allow indentation.
(org-prepare-dblock): Store the current indentation of the BEGIN
line.
(org-update-dblock): Apply the indentation of the begin line to
the rest of the block.
(org-ctrl-c-ctrl-c): Also find indented dblock lines.
(org-startup-folded): New allowed value `showeverything'.
(org-startup-options): Add STARTUP keyword `showeverything'.
(org-set-startup-visibility): Respect value `showeverything' in
org-startup-folded.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-closest-date): Fix issue with past preference.
* org-archive.el (org-archive-set-tag)
(org-archive-subtree-default): New commands.
* org-clock.el (org-clock-clocktable-default-properties): New
option.
(org-clock-report): Use
`org-clock-clocktable-default-properties'.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-iswitchb-completing-read): Fix typo.
* org-crypt.el: New file.
* org.el: Add an entry for org-crypt.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-menu): Reorganize the menu for more
consistency.
(org-batch-store-agenda-views): New function.
(org-agenda-title-append): Define variable.
(org-write-agenda): New export to Org files.
(org-agenda-get-some-entry-text): New arguments INDENT and KEEP.
(org-agenda): Allow to keep the restricted file list if a special
variable is bound to t.
(org-agenda): Define a special agenda view for working on flagged
entries.
(org-agenda-get-restriction-and-command): List the new agenda
view.
(org-agenda-show-the-flagging-note): New command.
(org-agenda-mode-map): New key `?' for looking at the flagging
note.
* org.el (org-autoload): Autoload org-mobile.el.
(org-org-menu): Add menu commands for MobileOrg in the Org menu.
* org-mobile.el: New file.
* org-id.el (org-id-get): Fix bug with forcing ID on an item.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-table.el (orgtbl-line-start-regexp): Match also TBLNAME
statements.
(org-table-get-remote-range): Match indented #+TBLNAME
statements.
* org.el (org-convert-to-odd-levels)
(org-convert-to-oddeven-levels): Work also correctly if the file
is in outline-mode.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-store-link): When in agenda buffer, link to
referenced entry.
(org-add-planning-info): Remove spaces at eol.
* org-macs.el (org-with-point-at): Add a `lisp-indent-function'
property.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-first-lines): Fix problem with
LaTeX export of first line and selected subtree.
* org.el (org-shifttab): Interpret arg differently when using only
odd levels.
2009-10-01 Bastien Guerry <bzg@altern.org>
* org.el (org-check-agenda-file): Use a more explicit message
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-remove-special-table-lines): Don't remove
normal lines.
2009-10-01 Bastien Guerry <bzg@altern.org>
* org.el (org-offer-links-in-entry): Don't use "Select link" as a
prompt in the temporary window.
* org-agenda.el (org-agenda-bulk-mark): Use a slightly soberer
prefix for marked entries in the agenda view.
2009-10-01 Andreas Burtzlaff <andy13@gmx.net> (tiny change)
* org.el (outline-end-of-subtree): Bugfix: advise this function in
a way that prevents any trailing character from being displayed.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-menu): Fix bugs in the bulk action
menu.
* org-exp.el (org-export-remove-special-table-lines): Remove bad
slow regexp match.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-preprocess): Do not protect in
the LaTeX header.
* org-src.el (org-edit-src-save): Save window setup while saving.
(org-edit-src-code): Use new buffer name construction scheme.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-entry-text-exclude-regexps): New
variable.
(org-agenda-entry-text-cleanup-hook): New hook.
(org-agenda-get-some-entry-text): Remove matches of
`org-agenda-entry-text-exclude-regexps' and run the hook
`org-agenda-entry-text-cleanup-hook'.
* org.el (org-offer-links-in-entry): New argument ZERO to
implement a link with index zero.
(org-cycle-show-empty-lines): Not keep empty line under header
hidden.
(org-iswitchb-completing-read): Bind `switchb-use-virtual-buffers'
to nil for special completion.
(org-store-link): Don't error before the first heading.
* org-agenda.el (org-agenda-open-link): Pass the prefix to
`org-offer-links-in-entry'.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-quit): Provide the window argument for
`window-dedicated-p', Emacs 22 needs it.
(org-format-agenda-item): If the category is a link, arrange for
invisible text to replaced with spaces.
(org-compile-prefix-format): Add the extra space.
(org-prefix-category-length): New variable.
* org-exp.el (org-export-cleanup-toc-line): Remove footnote
references from TOC lines.
* org.el (org-selected-window): New variable.
* org-table.el (org-table-edit-formulas): Remember the selected
window.
(org-table-fedit-finish, org-table-fedit-abort): Select the window
that was originally selected.
* org-exp.el (org-export-preprocess-apply-macros): Scan the
expansion of a macro for more macro definitions.
* org-agenda.el (org-agenda-dim-blocked-tasks): Make sure the
invisibility overlay starts on the newline.
author | Carsten Dominik <dominik@science.uva.nl> |
---|---|
date | Thu, 01 Oct 2009 07:59:53 +0000 |
parents | |
children | 131bccfc4f5d |
line wrap: on
line source
;;; org-mobile.el --- Code for asymmetric sync with a mobile device ;; Copyright (C) 2009 Free Software Foundation, Inc. ;; ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org ;; Version: 6.31a ;; ;; This file is part of GNU Emacs. ;; ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;; Commentary: ;; ;; This file contains the code to interact with Richard Moreland's iPhone ;; application MobileOrg. This code is documented in Appendix B of the ;; Org-mode manual. The code is not specific for the iPhone, however. ;; Any external viewer and flagging application that uses the same ;; conventions could be used. (require 'org) (require 'org-agenda) (defgroup org-mobile nil "Options concerning support for a viewer on a mobile device." :tag "Org Mobile" :group 'org) (defcustom org-mobile-files '(org-agenda-files) "Files to be staged for MobileOrg. This is basically a list of filesand directories. Files will be staged directly. Directories will be search for files with the extension `.org'. In addition to this, the list may also contain the following symbols: org-agenda-files This means, include the complete, unrestricted list of files given in the variable `org-agenda-files'. org-agenda-text-search-extra-files Include the files given in the variable `org-agenda-text-search-extra-files'" :group 'org-mobile :type '(list :greedy t (option (const :tag "org-agenda-files" org-agenda-files)) (option (const :tag "org-agenda-text-search-extra-files" org-agenda-text-search-extra-files)) (repeat :inline t :tag "Additional files" (file)))) (defcustom org-mobile-directory "" "The WebDAV directory where the interaction with the mobile takes place." :group 'org-mobile :type 'directory) (defcustom org-mobile-inbox-for-pull "~/org/from-mobile.org" "The file where captured notes and flags will be appended to. During the execution of `org-mobile-pull', the file `org-mobile-capture-file' will be emptied it's contents have been appended to the file given here." :group 'org-mobile :type 'file) (defconst org-mobile-capture-file "mobileorg.org" "The capture file where the mobile stores captured notes and flags. This should not be changed, because MobileOrg assumes this name.") (defcustom org-mobile-index-file "index.org" "The index file with inks to all Org files that should be loaded by MobileOrg. Relative to `org-mobile-directory'. The Address field in the MobileOrg setup should point to this file." :group 'org-mobile :type 'file) (defcustom org-mobile-force-id-on-agenda-items t "Non-nil means make all agenda items carry and ID." :group 'org-mobile :type 'boolean) (defcustom org-mobile-action-alist '(("d" . (org-todo 'done)) ("a" . (org-archive-subtree-default)) ("d-a" . (progn (org-todo 'done) (org-archive-subtree-default))) ("todo" . (org-todo data)) ("tags" . (org-set-tags-to data))) "Alist with flags and actions for mobile sync. When flagging an entry, MobileOrg will create entries that look like * F(action:data) [[id:entry-id][entry title]] This alist defines that the ACTION in the parentheses of F() should mean, i.e. what action should be taken. The :data part in the parenthesis is optional. If present, the string after the colon will be passed to the action form as the `data' variable. The car of each elements of the alist is an actions string. The cdr is an Emacs Lisp form that will be evaluated with the cursor on the headline of that entry." :group 'org-mobile :type '(repeat (cons (string :tag "Action flag") (sexp :tag "Action form")))) (defvar org-mobile-pre-push-hook nil "Hook run before running `org-mobile-push'. This could be used to clean up `org-mobile-directory', for example to remove files that used to be included in the agenda but no longer are. The presence of such files would not really be a problem, but after time they may accumulate.") (defvar org-mobile-post-push-hook nil "Hook run after running `org-mobile-push'. If Emacs does not have direct write access to the WebDAV directory used by the mobile device, this hook should be used to copy all files from the local staging directory `org-mobile-directory' to the WebDAV directory, for example using `rsync' or `scp'.") (defvar org-mobile-pre-pull-hook nil "Hook run before executing `org-mobile-pull'. If Emacs does not have direct write access to the WebDAV directory used by the mobile device, this hook should be used to copy the capture file `mobileorg.org' from the WebDAV location to the local staging directory `org-mobile-directory'.") (defvar org-mobile-post-pull-hook nil "Hook run after running `org-mobile-pull'. If Emacs does not have direct write access to the WebDAV directory used by the mobile device, this hook should be used to copy the emptied capture file `mobileorg.org' back to the WebDAV directory, for example using `rsync' or `scp'.") (defvar org-mobile-last-flagged-files nil "List of files containing entreis flagged in the latest pull.") (defvar org-mobile-files-alist nil) (defvar org-mobile-checksum-files nil) (defun org-mobile-prepare-file-lists () (setq org-mobile-files-alist (org-mobile-files-alist)) (setq org-mobile-checksum-files (mapcar 'cdr org-mobile-files-alist))) (defun org-mobile-files-alist () "Expand the list in `org-mobile-files' to a list of existing files." (let* ((files (apply 'append (mapcar (lambda (f) (cond ((eq f 'org-agenda-files) (org-agenda-files t)) ((eq f 'org-agenda-text-search-extra-files) org-agenda-text-search-extra-files) ((and (stringp f) (file-directory-p f)) (directory-files f 'full "\\.org\\'")) ((and (stringp f) (file-exists-p f)) (list f)) (t nil))) org-mobile-files))) (orgdir-uname (file-name-as-directory (file-truename org-directory))) (orgdir-re (concat "\\`" (regexp-quote orgdir-uname))) uname seen rtn file link-name) ;; Make the files unique, and determine the name under which they will ;; be listed. (while (setq file (pop files)) (setq uname (file-truename file)) (unless (member uname seen) (push uname seen) (if (string-match orgdir-re uname) (setq link-name (substring uname (match-end 0))) (setq link-name (file-name-nondirectory uname))) (push (cons file link-name) rtn))) (nreverse rtn))) ;;;###autoload (defun org-mobile-push () "Push the current state of Org affairs to the WebDAV directory. This will create the index file, copy all agenda files there, and also create all custom agenda views, for upload to the mobile phone." (interactive) (org-mobile-check-setup) (org-mobile-prepare-file-lists) (run-hooks 'org-mobile-pre-push-hook) (org-mobile-create-sumo-agenda) (org-save-all-org-buffers) ; to save any IDs created by this process (org-mobile-copy-agenda-files) (org-mobile-create-index-file) (org-mobile-write-checksums) (run-hooks 'org-mobile-post-push-hook) (message "Files for mobile viewer staged")) ;;;###autoload (defun org-mobile-pull () "Pull the contents of `org-mobile-capture-file' and integrate them. Apply all flagged actions, flag entries to be flagged and then call an agenda view showing the flagged items." (interactive) (org-mobile-check-setup) (run-hooks 'org-mobile-pre-pull-hook) (let ((insertion-marker (org-mobile-move-capture))) (if (not (markerp insertion-marker)) (message "No new items") (org-with-point-at insertion-marker (org-mobile-apply-flags (point) (point-max))) (move-marker insertion-marker nil) (run-hooks 'org-mobile-post-pull-hook) (when org-mobile-last-flagged-files ;; Make an agenda view of flagged entries, but only in the files ;; where stuff has been added. (put 'org-agenda-files 'org-restrict org-mobile-last-flagged-files) (let ((org-agenda-keep-restriced-file-list t)) (org-agenda nil "?")))))) (defun org-mobile-check-setup () "Check if org-mobile-directory has been set up." (when (or (not org-mobile-directory) (not (stringp org-mobile-directory)) (not (string-match "\\S-" org-mobile-directory)) (not (file-exists-p org-mobile-directory)) (not (file-directory-p org-mobile-directory))) (error "Variable `org-mobile-directory' must point to an existing directory")) (when (or (not org-mobile-inbox-for-pull) (not (stringp org-mobile-inbox-for-pull)) (not (string-match "\\S-" org-mobile-inbox-for-pull)) (not (file-exists-p (file-name-directory org-mobile-inbox-for-pull)))) (error "Variable `org-mobile-inbox-for-pull' must point to a file in an existing directory"))) (defun org-mobile-create-index-file () "Write the index file in the WebDAV directory." (let ((files-alist org-mobile-files-alist) file link-name todo-kwds done-kwds tags drawers entry) (org-prepare-agenda-buffers (mapcar 'car files-alist)) (setq done-kwds (org-uniquify org-done-keywords-for-agenda)) (setq todo-kwds (org-delete-all done-kwds (org-uniquify org-todo-keywords-for-agenda))) (setq drawers (org-uniquify org-drawers-for-agenda)) (setq tags (org-uniquify (delq nil (mapcar (lambda (e) (cond ((stringp e) e) ((listp e) (if (stringp (car e)) (car e) nil)) (t nil))) org-tag-alist-for-agenda)))) (with-temp-file (expand-file-name org-mobile-index-file org-mobile-directory) (insert "#+TODO: " (mapconcat 'identity todo-kwds " ") " | " (mapconcat 'identity done-kwds " ") "\n" "#+TAGS: " (mapconcat 'identity tags " ") "\n" "#+DRAWERS: " (mapconcat 'identity drawers " ") "\n") (insert "* [[file:agendas.org][Agenda Views]]\n") (while (setq entry (pop files-alist)) (setq file (car entry) link-name (cdr entry)) (insert (format "* [[file:%s][%s]]\n" link-name link-name))) (insert (format "* [[file:%s][Captured before last sync]]\n" org-mobile-capture-file))))) (defun org-mobile-copy-agenda-files () "Copy all agenda files to the stage or WebDAV directory." (let ((files-alist org-mobile-files-alist) file buf entry link-name target-path target-dir) (while (setq entry (pop files-alist)) (setq file (car entry) link-name (cdr entry)) (when (file-exists-p file) (setq target-path (expand-file-name link-name org-mobile-directory) target-dir (file-name-directory target-path)) (unless (file-directory-p target-dir) (make-directory target-dir 'parents) (copy-file file target-path 'ok-if-exists)))) (setq file (expand-file-name org-mobile-capture-file org-mobile-directory)) (unless (file-exists-p file) (save-excursion (setq buf (find-file file)) (insert "\n") (save-buffer)) (kill-buffer buf)))) (defun org-mobile-write-checksums () "Create checksums for all files in `org-mobile-directory'. The table of checksums is written to the file mobile-checksums." (let ((cmd (cond ((executable-find "shasum")) ((executable-find "sha1sum")) ((executable-find "md5sum")) ((executable-find "md5")))) (files org-mobile-checksum-files)) (if (not cmd) (message "Checksums could not be generated: no executable") (with-temp-buffer (cd org-mobile-directory) (if (file-exists-p "agendas.org") (push "agendas.org" files)) (if (file-exists-p "mobileorg.org") (push "mobileorg.org" files)) (setq cmd (concat cmd " " (mapconcat 'shell-quote-argument files " ") " > checksums.dat")) (if (equal 0 (shell-command cmd)) (message "Checksums written") (message "Checksums could not be generated")))))) (defun org-mobile-sumo-agenda-command () "Return an agenda custom command that comprises all custom commands." (let ((custom-list ;; normalize different versions (delq nil (mapcar (lambda (x) (cond ((stringp (cdr x)) nil) ((stringp (nth 1 x)) x) ((not (nth 1 x)) (cons (car x) (cons "" (cddr x)))) (t (cons (car x) (cons "" (cdr x)))))) org-agenda-custom-commands))) new e key desc type match settings cmds gkey gdesc gsettings cnt) (while (setq e (pop custom-list)) (cond ((stringp (cdr e)) ;; this is a description entry - skip it ) ((eq (nth 2 e) 'search) ;; Search view is interactive, skip ) ((memq (nth 2 e) '(todo-tree tags-tree occur-tree)) ;; These are trees, not really agenda commands ) ((memq (nth 2 e) '(agenda todo tags)) ;; a normal command (setq key (car e) desc (nth 1 e) type (nth 2 e) match (nth 3 e) settings (nth 4 e)) (setq settings (cons (list 'org-agenda-title-append (concat "<break>KEYS=" key " TITLE: " (if (and (stringp desc) (> (length desc) 0)) desc (symbol-name type)) " " match)) settings)) (push (list type match settings) new)) ((symbolp (nth 2 e)) ;; A user-defined function, not sure how to handle that yet ) (t ;; a block agenda (setq gkey (car e) gdesc (nth 1 e) gsettings (nth 3 e) cmds (nth 2 e)) (setq cnt 0) (while (setq e (pop cmds)) (setq type (car e) match (nth 1 e) settings (nth 2 e)) (setq settings (append gsettings settings)) (setq settings (cons (list 'org-agenda-title-append (concat "<break>KEYS=" gkey "#" (number-to-string (setq cnt (1+ cnt))) " TITLE: " gdesc " " match)) settings)) (push (list type match settings) new))))) (list "X" "SUMO" (reverse new) nil))) ;;;###autoload (defun org-mobile-create-sumo-agenda () "Create a file that contains all custom agenda views." (interactive) (let* ((file (expand-file-name "agendas.org" org-mobile-directory)) (org-agenda-custom-commands (list (append (org-mobile-sumo-agenda-command) (list (list file)))))) (unless (file-writable-p file) (error "Cannot write to file %s" file)) (org-store-agenda-views))) (defun org-mobile-move-capture () "Move the contents of the capture file to the inbox file. Return a marker to the location where the new content has been added. If nothing new has beed added, return nil." (interactive) (let ((inbox-buffer (find-file-noselect org-mobile-inbox-for-pull)) (capture-buffer (find-file-noselect (expand-file-name org-mobile-capture-file org-mobile-directory))) (insertion-point (make-marker)) not-empty content) (save-excursion (set-buffer capture-buffer) (setq content (buffer-string)) (setq not-empty (string-match "\\S-" content)) (when not-empty (set-buffer inbox-buffer) (widen) (goto-char (point-max)) (or (bolp) (newline)) (move-marker insertion-point (prog1 (point) (insert content))) (save-buffer) (set-buffer capture-buffer) (erase-buffer) (save-buffer))) (kill-buffer capture-buffer) (if not-empty insertion-point))) (defun org-mobile-apply-flags (&optional beg end) "Apply all flags in the current buffer. If BEG and END are given, only do this in that region." (interactive) (require 'org-archive) (setq org-mobile-last-flagged-files nil) (setq beg (or beg (point-min)) end (or end (point-max))) (goto-char beg) (let ((marker (make-marker)) (org-inhibit-logging 'note) (end (move-marker (make-marker) end)) action data id id-pos cmd text) (while (re-search-forward "^\\*+[ \t]+F(\\([^():\n]*\\)\\(:\\([^()\n]*\\)\\)?)[ \t]+\\[\\[id:\\([^]\n ]+\\)" end t) (goto-char (- (match-beginning 1) 2)) (catch 'next (setq action (match-string 1) data (and (match-end 3) (match-string 3)) id (match-string 4) cmd (if (equal action "") '(progn (org-toggle-tag "FLAGGED" 'on) (and text (org-entry-put nil "THEFLAGGINGNOTE" text))) (cdr (assoc action org-mobile-action-alist))) text (org-trim (buffer-substring (1+ (point-at-eol)) (save-excursion (org-end-of-subtree t)))) id-pos (org-id-find id 'marker)) (if (> (length text) 0) ;; Make TEXT into a single line, to fit into a property (setq text (mapconcat 'identity (org-split-string text "\n") "\\n")) (setq text nil)) (unless id-pos (insert "BAD ID REFERENCE ") (throw 'next t)) (unless cmd (insert "BAD FLAG ") (throw 'next t)) (move-marker marker (point)) (save-excursion (condition-case nil (org-with-point-at id-pos (progn (eval cmd) (if (member "FLAGGED" (org-get-tags)) (add-to-list 'org-mobile-last-flagged-files (buffer-file-name (current-buffer)))))) (error (progn (switch-to-buffer (marker-buffer marker)) (goto-char marker) (insert "EXECUTION FAILED ") (throw 'next t))))) ;; If we get here, the action has been applied successfully ;; So remove the entry (org-back-to-heading t) (delete-region (point) (org-end-of-subtree t t)))) (move-marker marker nil) (move-marker end nil))) (defun org-mobile-smart-read () "Parse the entry at point for shortcuts and expand them. These shortcuts are meant for fast and easy typing on the limited keyboards of a mobile device. Below we show a list of the shortcuts currently implemented. The entry is expected to contain an inactive time stamp indicating when the entry was created. When setting dates and times (for example for deadlines), the time strings are interpreted relative to that creation date. Abbreviations are expected to take up entire lines, jst because it is so easy to type RET on a mobile device. Abbreviations start with one or two letters, followed immediately by a dot and then additional information. Generally the entire shortcut line is removed after action have been taken. Time stamps will be constructed using `org-read-date'. So for example a line \"dd. 2tue\" will set a deadline on the second Tuesday after the creation date. Here are the shortcuts currently implemented: dd. string set deadline ss. string set scheduling tt. string set time tamp, here. ti. string set inactive time tg. tag1 tag2 tag3 set all these tags, change case where necessary td. kwd set this todo keyword, change case where necessary FIXME: Hmmm, not sure if we can make his work against the auto-correction feature. Needs a bit more thinking. So this function is currently a noop.") (provide 'org-mobile) ;; arch-tag: ace0e26c-58f2-4309-8a61-05ec1535f658 ;;; org-mobile.el ends here