| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\301&\210\313\314\315\316\317DD\320\312\305\321\322&\210\313\323\315\316\324DD\325\312\305\326\327\321\330& \210\313\331\315\316\332DD\333\312\305\321\334&\210\313\335\315\316\336DD\337\326\340\341\342\321\343\312\305& \210\313\344\315\316\345DD\346\312\305\326\327\321\347& \210\313\350\315\316\351DD\352\312\305\326\327\321\334& \210\313\353\315\316\354DD\355\312\305\326\327\321\356& \207" [require org org-agenda cl-lib custom-declare-group org-mobile nil "Options concerning support for a viewer/editor on a mobile device." :tag "Org Mobile" :group custom-declare-variable org-mobile-files funcall function #[0 "\300\207" [(org-agenda-files)] 1] "Files to be staged for MobileOrg.\nThis is basically a list of files and directories. Files will be staged\ndirectly. Directories will be search for files with the extension `.org'.\nIn addition to this, the list may also contain the following symbols:\n\norg-agenda-files\n This means include the complete, unrestricted list of files given in\n the variable `org-agenda-files'.\norg-agenda-text-search-extra-files\n Include the files given in the variable\n `org-agenda-text-search-extra-files'" :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))) org-mobile-files-exclude-regexp #[0 "\300\207" [#1=""] 1 #1#] "A regexp to exclude files from `org-mobile-files'." :version "24.1" regexp org-mobile-directory #[0 "\300\207" [#1#] 1 #1#] "The WebDAV directory where the interaction with the mobile takes place." directory org-mobile-allpriorities #[0 "\300\207" [#2="A B C"] 1 #2#] "Default set of priority cookies for the index file." "24.4" :package-version (Org . "8.0") string org-mobile-use-encryption #[0 "\300\207" [nil] 1] "Non-nil means keep only encrypted files on the WebDAV server.\nEncryption uses AES-256, with a password given in\n`org-mobile-encryption-password'.\nWhen nil, plain files are kept on the server.\nTurning on encryption requires setting the same password in the MobileOrg\napplication. Before turning this on, check of MobileOrg does already\nsupport it - at the time of this writing it did not yet." boolean org-mobile-encryption-tempfile #[0 "\300\207" [#3="~/orgtmpcrypt"] 1 #3#] "File that is being used as a temporary file for encryption.\nThis must be local file on your local machine (not on the WebDAV server).\nYou might want to put this file into a directory where only you have access." org-mobile-encryption-password #[0 "\300\207" [#1#] 1 #1#] "Password for encrypting files uploaded to the server.\nThis is a single password which is used for AES-256 encryption. The same\npassword must also be set in the MobileOrg application. All Org files,\nincluding mobileorg.org will be encrypted using this password.\n\nSECURITY CONSIDERATIONS:\n\nNote that, when Org runs the encryption commands, the password could\nbe visible briefly on your system with the `ps' command. So this method is\nonly intended to keep the files secure on the server, not on your own machine.\n\nAlso, if you set this variable in an init file (.emacs or .emacs.d/init.el\nor custom.el...) and if that file is stored in a way so that other can read\nit, this also limits the security of this approach. You can also leave\nthis variable empty - Org will then ask for the password once per Emacs\nsession." (string :tag "Password")] 12) | |
| 16 | (defvar org-mobile-encryption-password-session nil) | |
| 17 | (defalias 'org-mobile-encryption-password #[0 "\302!\206 \302 !\206 \303\304\305\"\211\207" [org-mobile-encryption-password org-mobile-encryption-password-session org-string-nw-p read-passwd "Password for MobileOrg: " t] 3]) | |
| 18 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable org-mobile-inbox-for-pull funcall function #[0 "\300\207" [#1="~/org/from-mobile.org"] 1 #1#] "The file where captured notes and flags will be appended to.\nDuring the execution of `org-mobile-pull', the file\n`org-mobile-capture-file' will be emptied it's contents have\nbeen appended to the file given here. This file should be in\n`org-directory', and not in the staging area or on the web server." :group org-mobile :type file] 8) | |
| 19 | #@133 The capture file where the mobile stores captured notes and flags. | |
| 20 | This should not be changed, because MobileOrg assumes this name. | |
| 21 | (defconst org-mobile-capture-file "mobileorg.org" (#$ . 4790)) | |
| 22 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\315\316\310\317& \210\300\320\302\303\321DD\322\306\307\310\323&\210\300\324\302\303\325DD\326\306\307\310\327&\210\300\330\302\303\331DD\332\306\307\310\333&\207" [custom-declare-variable org-mobile-index-file funcall function #[0 "\300\207" [#1="index.org"] 1 #1#] "The index file with links to all Org files that should be loaded by MobileOrg.\nRelative to `org-mobile-directory'. The Address field in the MobileOrg setup\nshould point to this file." :group org-mobile :type file org-mobile-agendas #[0 "\300\207" [all] 1] "The agendas that should be pushed to MobileOrg.\nAllowed values:\n\ndefault the weekly agenda and the global TODO list\ncustom all custom agendas defined by the user\nall the custom agendas and the default ones\nlist a list of selection key(s) as string." :version "24.1" (choice (const :tag "Default Agendas" default) (const :tag "Custom Agendas" custom) (const :tag "Default and Custom Agendas" all) (repeat :tag "Selected" (string :tag "Selection Keys"))) org-mobile-force-id-on-agenda-items #[0 "\300\207" [t] 1] "Non-nil means make all agenda items carry an ID." boolean org-mobile-force-mobile-change #[0 "\300\207" [nil] 1] "Non-nil means force the change made on the mobile device.\nSo even if there have been changes to the computer version of the entry,\nforce the new value set on the mobile.\nWhen nil, mark the entry from the mobile with an error message.\nInstead of nil or t, this variable can also be a list of symbols, indicating\nthe editing types for which the mobile version should always dominate." (choice (const :tag "Always" t) (const :tag "Never" nil) (set :greedy t :tag "Specify" (const todo) (const tags) (const priority) (const heading) (const body))) org-mobile-checksum-binary #[0 "\300\301!\206 \300\302!\206 \300\303!\206 \300\304!\207" [executable-find "shasum" "sha1sum" "md5sum" "md5"] 2] "Executable used for computing checksums of agenda files." string] 10) | |
| 23 | #@279 Hook run before running `org-mobile-push'. | |
| 24 | This could be used to clean up `org-mobile-directory', for example to | |
| 25 | remove files that used to be included in the agenda but no longer are. | |
| 26 | The presence of such files would not really be a problem, but after time | |
| 27 | they may accumulate. | |
| 28 | (defvar org-mobile-pre-push-hook nil (#$ . 7029)) | |
| 29 | #@297 Hook run after running `org-mobile-push'. | |
| 30 | If Emacs does not have direct write access to the WebDAV directory used | |
| 31 | by the mobile device, this hook should be used to copy all files from the | |
| 32 | local staging directory `org-mobile-directory' to the WebDAV directory, | |
| 33 | for example using `rsync' or `scp'. | |
| 34 | (defvar org-mobile-post-push-hook nil (#$ . 7364)) | |
| 35 | #@286 Hook run before executing `org-mobile-pull'. | |
| 36 | If Emacs does not have direct write access to the WebDAV directory used | |
| 37 | by the mobile device, this hook should be used to copy the capture file | |
| 38 | `mobileorg.org' from the WebDAV location to the local staging | |
| 39 | directory `org-mobile-directory'. | |
| 40 | (defvar org-mobile-pre-pull-hook nil (#$ . 7718)) | |
| 41 | #@307 Hook run after running `org-mobile-pull', only if new items were found. | |
| 42 | If Emacs does not have direct write access to the WebDAV directory used | |
| 43 | by the mobile device, this hook should be used to copy the emptied | |
| 44 | capture file `mobileorg.org' back to the WebDAV directory, for example | |
| 45 | using `rsync' or `scp'. | |
| 46 | (defvar org-mobile-post-pull-hook nil (#$ . 8060)) | |
| 47 | #@668 Alist with flags and actions for mobile sync. | |
| 48 | When flagging an entry, MobileOrg will create entries that look like | |
| 49 | ||
| 50 | * F(action:data) [[id:entry-id][entry title]] | |
| 51 | ||
| 52 | This alist defines that the ACTION in the parentheses of F() | |
| 53 | should mean, i.e. what action should be taken. The :data part in | |
| 54 | the parenthesis is optional. If present, the string after the | |
| 55 | colon will be passed to the action function as the first argument | |
| 56 | variable. | |
| 57 | ||
| 58 | The car of each elements of the alist is an actions string. The | |
| 59 | cdr is a function that is called with the cursor on the headline | |
| 60 | of that entry. It should accept three arguments, the :data part, | |
| 61 | the old and new values for the entry. | |
| 62 | (defconst org-mobile-action-alist '(("edit" . org-mobile-edit)) (#$ . 8424)) | |
| 63 | #@62 List of files containing entries flagged in the latest pull. | |
| 64 | (defvar org-mobile-last-flagged-files nil (#$ . 9174)) | |
| 65 | (defvar org-mobile-files-alist nil) | |
| 66 | (defvar org-mobile-checksum-files nil) | |
| 67 | (defalias 'org-mobile-prepare-file-lists #[0 "\300 \302\211\207" [org-mobile-files-alist org-mobile-checksum-files nil] 2]) | |
| 68 | #@131 Expand the list in `org-mobile-files' to a list of existing files. | |
| 69 | Also exclude files matching `org-mobile-files-exclude-regexp'. | |
| 70 | (defalias 'org-mobile-files-alist #[0 "\301\235\205 \303 \235\205 \304\305\306\307\310\311\312\313\314!\315\"\316\317%\"\"\320\321\307\322\"\"\323\324\n!!\325\326!P\321\211\211\211\211\211A\262 \242\211\262\203\201 \327!\204O \330\n\"\262\324!\262\235\2046 B\262\331\"\203r \332\225\321O\262\202w \333!\262BB\262\2026 \237\207" [org-mobile-files org-agenda-text-search-extra-files org-directory agenda-archives t apply append mapcar make-byte-code 257 "\211\302=\203 \302\303\300\"\207\211\301=\203 \304\305\306 !\"\207\211;\203) \307!\203) \310\311\312#\207\211;\2037 \313!\2037 \211C\207\314\207" vconcat vector [org-agenda-text-search-extra-files org-agenda-files t delq agenda-archives copy-sequence file-directory-p directory-files full "\\.org\\'" file-exists-p nil] 5 "\n\n(fn F)" delq nil #[257 "\301\230?\205 \302\"?\205 \211\207" [org-mobile-files-exclude-regexp "" string-match] 4 "\n\n(fn F)"] file-name-as-directory file-truename "\\`" regexp-quote file-name-absolute-p expand-file-name string-match 0 file-name-nondirectory] 13 (#$ . 9498)]) | |
| 71 | #@199 Push the current state of Org affairs to the target directory. | |
| 72 | This will create the index file, copy all agenda files there, and also | |
| 73 | create all custom agenda views, for upload to the mobile phone. | |
| 74 | (defalias 'org-mobile-push #[0 "\306 \212\214\307 \310\311\312\313\314!\315\"\316$\216\317\320!\210\321 \210\322 \210\323\324!\210\325\326\327 \" \330 \210*\323\331!\210\332 \210\323\333!\210\334 \210\323\335!\210\336 \210\323\337!\210\340 \210\317\341!\210)\210-\342 \210\323\343!\207" [org-agenda-tag-filter org-agenda-redo-command org-agenda-buffer-name org-mobile-files-alist org-agenda-files inhibit-redisplay "*SUMO*" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 run-hooks org-mobile-pre-push-hook org-mobile-check-setup org-mobile-prepare-file-lists message "Creating agendas..." t mapcar car org-mobile-create-sumo-agenda "Creating agendas...done" org-save-all-org-buffers "Copying files..." org-mobile-copy-agenda-files "Writing index file..." org-mobile-create-index-file "Writing checksums..." org-mobile-write-checksums org-mobile-post-push-hook org-agenda-maybe-redo "Files for mobile viewer staged"] 7 (#$ . 10735) nil]) | |
| 75 | #@178 Hook that is run after content was moved to `org-mobile-inbox-for-pull'. | |
| 76 | The inbox file is visited by the current buffer, and the buffer is | |
| 77 | narrowed to the newly captured data. | |
| 78 | (defvar org-mobile-before-process-capture-hook nil (#$ . 11942)) | |
| 79 | #@178 Pull the contents of `org-mobile-capture-file' and integrate them. | |
| 80 | Apply all flagged actions, flag entries to be flagged and then call an | |
| 81 | agenda view showing the flagged items. | |
| 82 | (defalias 'org-mobile-pull #[0 "\302 \210\303\304!\210\305 \306!\204 \307\310!\202q \211\212\306!\203\" \311!q\210\212\214~\210\211\206+ `b\210\214`d}\210\303\312!\210,\210\211\212\306!\203E \311!q\210\212\214~\210\211\206N `b\210\313`d\"\210+\210\211\314\211\223\210\303\315!\210\205q \316\317\320#\210\321\322\314\323\")\207" [org-mobile-last-flagged-files org-agenda-keep-restricted-file-list org-mobile-check-setup run-hooks org-mobile-pre-pull-hook org-mobile-move-capture markerp message "No new items" marker-buffer org-mobile-before-process-capture-hook org-mobile-apply nil org-mobile-post-pull-hook put org-agenda-files org-restrict t org-agenda "?"] 5 (#$ . 12191) nil]) | |
| 83 | #@48 Check if org-mobile-directory has been set up. | |
| 84 | (defalias 'org-mobile-check-setup #[0 "\306 \210\203 ;\203 \307\310\"\203 \311!\203 \312!\204# \313\314!\210 \203? ;\203? \307\310 \"\203? \311 !\203? \312 !\204C \313\315!\210\n\203[ \n;\203[ \307\310\n\"\203[ \311\316\n!!\204_ \313\317!\210 \203j \307\310 \"\204n \313\320!\210\f\205\223 \307\310\321 \"\204~ \313\322!\210\323 !\204\211 \313\324 \"\210\325\326!?\205\223 \313\327!\207" [org-directory org-mobile-directory org-mobile-inbox-for-pull org-mobile-checksum-binary org-mobile-use-encryption org-mobile-encryption-tempfile org-mobile-cleanup-encryption-tempfile string-match "\\S-" file-exists-p file-directory-p error "Please set `org-directory' to the directory where your org files live" "Variable `org-mobile-directory' must point to an existing directory" file-name-directory "Variable `org-mobile-inbox-for-pull' must point to a file in an existing directory" "No executable found to compute checksums" org-mobile-encryption-password "To use encryption, you must set `org-mobile-encryption-password'" file-writable-p "Cannot write to encryption tempfile %s" executable-find "openssl" "OpenSSL is needed to encrypt files"] 3 (#$ . 13065)]) | |
| 85 | #@47 Write the index file in the WebDAV directory. | |
| 86 | (defalias 'org-mobile-create-index-file #[0 "\306\307!\310\"\311\312! \313\n \"\314\211\211@;\203 \315BC\262\316\317\320 \"!\210\f\307!\321!\266\202\262\322 \307!\321!\266\202\"\262\317\320\323\317\320 \"!\"\2629\203U :\202V \324\325\326!!\327\330\331\332\333!\334\"\335$\216r\211q\210\336c\210\211\203\251 \211@\317\337A\"\340\341\342\343#\344\261\210\345\235\206\216 \346!\322\"\322 \"\262\n\322\n\"\262 \266A\266\202\202p \210\204\262 \203\304 \340\341\342\343#\347\341\342\343#\344\261\210\350\351\352\"!\262\322\"\262\306\353\"\262\354\314#\262\355\341\342\343#\344\261\210\356;\344\261\210\357\313 \360\"!\203\377 \361c\210\211\203\211@\211A\211\362\363\211#c\266A\266\202\202\210\n\364\365 !B<B<)r\211q\210\366\314\211\314\330%\210*\2669\205B\367:\"\210\370 \207" [org-mobile-files-alist org-tag-alist org-mobile-index-file org-mobile-directory org-done-keywords-for-agenda org-todo-keywords-for-agenda sort copy-sequence #[514 "AA\231\207" #1=[] 4 "\n\n(fn A B)"] default-value org-todo-keywords expand-file-name nil sequence org-agenda-prepare-buffers mapcar car delete-dups org-delete-all org-global-tags-completion-table get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "#+READONLY\n" #[257 "\300\301\"\203 \211\302\211\224O\207\207" [string-match "(" 0] 4 "\n\n(fn X)"] "#+TODO: " mapconcat identity " " "\n" "|" last " | " split-string org-tag-alist-to-string t #[514 "\227\227\231\207" #1# 4 "\n\n(fn A B)"] append "#+TAGS: " "#+ALLPRIORITIES: " file-exists-p "agendas.org" "* [[file:agendas.org][Agenda Views]]\n" format "* [[file:%s][%s]]\n" md5 buffer-string write-region org-mobile-encrypt-and-move org-mobile-cleanup-encryption-tempfile org-mobile-use-encryption org-mobile-encryption-tempfile org-mobile-allpriorities org-mobile-checksum-files] 17 (#$ . 14284)]) | |
| 87 | #@57 Copy all agenda files to the stage or WebDAV directory. | |
| 88 | (defalias 'org-mobile-copy-agenda-files #[0 "\306\211\211\211\211\211\211\211A\262 \242\211\262\203p @\262A\262\307!\203 \310 \"\262\311!\262\312!\204: \313\314\"\210\n\203G \315\"\210\202N \316\317#\210\320\321 !\322\321\310 !!Q!\262\323\324\"\203 \325\326\"B\fB\202 \310 \"\262\212\327!\262edU\203\231 \330c\210\331 \210\n\203\231 \332 !\210\315 \"\210 \333\334 !B\fB)\335 \210\336!\207" [org-mobile-files-alist org-mobile-directory org-mobile-use-encryption org-mobile-checksum-binary org-mobile-checksum-files org-mobile-capture-file nil file-exists-p expand-file-name file-name-directory file-directory-p make-directory parents org-mobile-encrypt-and-move copy-file ok-if-already-exists shell-command-to-string shell-quote-argument " " string-match "[a-fA-F0-9]\\{30,40\\}" match-string 0 find-file "\n" save-buffer write-file md5 buffer-string org-mobile-cleanup-encryption-tempfile kill-buffer org-mobile-encryption-tempfile] 14 (#$ . 16301)]) | |
| 89 | #@123 Create checksums for all files in `org-mobile-directory'. | |
| 90 | The table of checksums is written to the file mobile-checksums. | |
| 91 | (defalias 'org-mobile-write-checksums #[0 "\302\303\" \304\211\211\305\306\307!!\310\311\312\313\314!\315\"\316$\216r\211q\210\317\320\304\"\210\211A\262\242\211\262\205B @\262A\262\321\322#c\210\202# )rq\210\323\304\211\304\311%\210*\266\202\207" [org-mobile-directory org-mobile-checksum-files expand-file-name "checksums.dat" nil get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-file-coding-system undecided-unix format "%s %s\n" write-region] 14 (#$ . 17358)]) | |
| 92 | #@69 Return an agenda custom command that comprises all custom commands. | |
| 93 | (defalias 'org-mobile-sumo-agenda-command #[0 "\302\303\304\305\"\"\306\303C\303\211\211\211\211\211\211\211\211\211\211\211\211 \307=\203& \240\210\202\216 \310=\2035 \240\210\202\216 \311=\203h \240\210\312\313\242\"\204S \314\242B\240\210\312\315\242\"\204\216 \316\242B\240\210\202\216 <\203\216 \317\"\240\210 \302\303\304\320\321\322\323\324!\325\"\326\327% \"\"\240\210 \242\211\242A\240\210\242\211\262\f\203\257\nA;\204\216 \330 8\331=\204\216 \330 8\332>\204\216 \330 8\333>\203\322 \334 8\203\216 \335\336\334 8\"\203\216 \330 8\337>\203,\n@\262\n\nA@\262 \330 8\262\334 8\262\326 8\262\340\341 \342\f;\203\fG\343V\203\f\202\344\f!\345\260DB\262E\fB\262\f\202\216 \346\330\f8!\204\216 \330 89\204\216 \n@\262\nA@\262\334 8\262\330 8\262\343\262\211A\262\242\211\262\f\203\216 \n@\262\nA@\262\330 8\262\347\230\203\202\200\262 \317\"\262\340\341\350\351T\211\262!\342\345\260DB\262E\fB\262\f\202W \205\274\352\353\354!\355F\207" [org-agenda-custom-commands org-mobile-agendas delq nil mapcar #[257 "\211A;\203 \300\207\211A@;\203 \207\211A@\204 \211@\301AABB\207\211@\301ABB\207" [nil #1=""] 4 "\n\n(fn X)"] (("a" "Agenda" agenda) ("t" "All TODO" alltodo)) custom default all assoc "t" ("t" "ALL TODO" alltodo) "a" ("a" "Agenda" agenda) append make-byte-code 257 "\301\300\242\"\207" vconcat vector [assoc] 4 "\n\n(fn K)" 2 search (todo-tree tags-tree occur-tree) (todo tags tags-todo) 3 string-match "\\S-" (agenda alltodo todo tags tags-todo) org-agenda-title-append "<after>KEYS=" " TITLE: " 0 symbol-name "</after>" functionp #1# "#" number-to-string "X" "SUMO" reverse ((org-agenda-compact-blocks nil))] 26 (#$ . 18078)]) | |
| 94 | (defvar org-mobile-creating-agendas nil) | |
| 95 | #@13 | |
| 96 | ||
| 97 | (fn FILE) | |
| 98 | (defalias 'org-mobile-write-agenda-for-mobile #[257 "\302 \303\211\211\211\211\211\211\211\211\n\304\305\306!!\307\310\311\312\313!\314\"\315$\216r\211q\210\316 \210\317c\210 c\210eb\210m\204a\320\321!\204Z\320\322!\203G `\323 |\210\202Z\324`\325\"\203\205 \303\262 \324`\326\"\262\324`\327\"\262\203q \320\330!\203q \331\303\332#\210\333\334!\210\203 \334\210c\210\333\334!\210\335c\210\202Z\324`\336\"\203\225 \332\262 \337c\210\202Z\324`\340\"\206\240 \324`\341\"\211\262\203Z\324`\342\"\343\235\262\344`\323 \345\332$\211\262\n\203` {\303\346\203\311 \347\202\312 \350\351\346\352\351##\266\202\262\323 {\303\346\203\345 \347\202\346 \350\351\346\352\351##\266\202\262\353 \323 |\210\354 \355\261\210\333\334!\210\202\320\356!\203\331\351!\210\n\203\357\202 \360c\210\334\210\361c\210\204Z\362\363\364\365$\361\261\210\366\300!\203C\203C\367\370\"\202M\371\372\"\206M\373!\211\262 \203Z\374\n\375\261\210\333\315!\210\202/ \376\377\302 !B B)r\211q\210\201@ \303\211\303\310%\210*\266\201A \201B \f\"\207" [org-mobile-force-id-on-agenda-items org-mobile-checksum-files buffer-string nil get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-mode "#+READONLY\n" looking-at "[ ]*$" "=+$" point-at-eol get-text-property org-agenda-structural-header org-agenda-title-append short-heading ".+" replace-match t beginning-of-line 1 "* " org-agenda-date-header "** " org-hd-marker org-marker type ("diary" "sexp") text-property-any org-heading replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" point-at-bol "<before>" "</before>" "[ ]+" "*** " "** " "\n" org-agenda-get-some-entry-text 10 " " planning boundp org-id-get create org-entry-get "ID" org-mobile-get-outline-path-link " :PROPERTIES:\n :ORIGINAL_ID: " "\n :END:\n" "agendas.org" md5 write-region message "Agenda written to Org file %s"] 22 (#$ . 19966)]) | |
| 99 | #@12 | |
| 100 | ||
| 101 | (fn POM) | |
| 102 | (defalias 'org-mobile-get-outline-path-link #[257 "\211\212\301!\203 \302!q\210\212\214~\210\211\206 `b\210\303\304\305!!\306\307\304\310 \311#\311\304\312\313 8!\260+\207" [buffer-file-name markerp marker-buffer "olp:" org-mobile-escape-olp file-name-nondirectory ":" mapconcat org-get-outline-path "/" 4 org-heading-components] 10 (#$ . 21995)]) | |
| 103 | #@10 | |
| 104 | ||
| 105 | (fn S) | |
| 106 | (defalias 'org-mobile-escape-olp #[257 "\300\301\"\207" [(58 47) org-link-escape] 5 (#$ . 22366)]) | |
| 107 | #@54 Create a file that contains all custom agenda views. | |
| 108 | (defalias 'org-mobile-create-sumo-agenda #[0 "\305\306\" \203\f \n\202 \211\307 \310CC\"C\311 \312!\204$ \313\314\"\210\211\203+ \315 \210 \205: \316\"\210\317!\210\320 *\207" [org-mobile-directory org-mobile-use-encryption org-mobile-encryption-tempfile org-agenda-custom-commands org-mobile-creating-agendas expand-file-name "agendas.org" org-mobile-sumo-agenda-command append t file-writable-p error "Cannot write to file %s" org-store-agenda-views org-mobile-encrypt-and-move delete-file org-mobile-cleanup-encryption-tempfile] 6 (#$ . 22482) nil]) | |
| 109 | #@198 Encrypt INFILE locally to INFILE_enc, then move it to OUTFILE. | |
| 110 | We do this in two steps so that remote paths will work, even if the | |
| 111 | encryption program does not understand them. | |
| 112 | ||
| 113 | (fn INFILE OUTFILE) | |
| 114 | (defalias 'org-mobile-encrypt-and-move #[514 "\300P\301\"\210\205 \302\303#\210\304!\207" ["_enc" org-mobile-encrypt-file copy-file ok-if-already-exists delete-file] 7 (#$ . 23105)]) | |
| 115 | #@89 Encrypt INFILE to OUTFILE, using `org-mobile-encryption-password'. | |
| 116 | ||
| 117 | (fn INFILE OUTFILE) | |
| 118 | (defalias 'org-mobile-encrypt-file #[514 "\300\301\302\303\304\305 P!\303\306!!\303\306!!$!\207" [shell-command format "openssl enc -md md5 -aes-256-cbc -salt -pass %s -in %s -out %s" shell-quote-argument "pass:" org-mobile-encryption-password expand-file-name] 10 (#$ . 23499)]) | |
| 119 | #@89 Decrypt INFILE to OUTFILE, using `org-mobile-encryption-password'. | |
| 120 | ||
| 121 | (fn INFILE OUTFILE) | |
| 122 | (defalias 'org-mobile-decrypt-file #[514 "\300\301\302\303\304\305 P!\303\306!!\303\306!!$!\207" [shell-command format "openssl enc -md md5 -d -aes-256-cbc -salt -pass %s -in %s -out %s" shell-quote-argument "pass:" org-mobile-encryption-password expand-file-name] 10 (#$ . 23877)]) | |
| 123 | #@46 Remove the encryption tempfile if it exists. | |
| 124 | (defalias 'org-mobile-cleanup-encryption-tempfile #[0 ";\205 \301!\205 \302!\207" [org-mobile-encryption-tempfile file-exists-p delete-file] 2 (#$ . 24258)]) | |
| 125 | #@171 Move the contents of the capture file to the inbox file. | |
| 126 | Return a marker to the location where the new content has been added. | |
| 127 | If nothing new has been added, return nil. | |
| 128 | (defalias 'org-mobile-move-capture #[0 "\305\306 \"\307\n! \204 \307!\202' \310 \210\f\311P\262\312\"\210\313\f\"\210\307\f!\314 \305\211rq\210\315 \262\316\317\"\262\203e q\210~\210db\210n\204L \320 \210`c\210\305\223\210\321 \210q\210\322 \210\321 \210\323\315 !\210)\324!\210 \203w \325\f\"\210\310 \210\205| \207" [org-mobile-capture-file org-mobile-directory org-mobile-inbox-for-pull org-mobile-use-encryption org-mobile-encryption-tempfile nil expand-file-name find-file-noselect org-mobile-cleanup-encryption-tempfile "_enc" copy-file org-mobile-decrypt-file make-marker buffer-string string-match "\\S-" newline save-buffer erase-buffer org-mobile-update-checksum-for-capture-file kill-buffer org-mobile-encrypt-and-move] 10 (#$ . 24473) nil]) | |
| 129 | #@82 Find the checksum line and modify it to match BUFFER-STRING. | |
| 130 | ||
| 131 | (fn BUFFER-STRING) | |
| 132 | (defalias 'org-mobile-update-checksum-for-capture-file #[257 "\302\303\"\304!\211\2052 r\211q\210\305\306\307 !\310Q\311\312#\203. \313\224b\210\313\224\313\225|\210\314!c\210\315 \210)\316!\207" [org-mobile-directory org-mobile-capture-file expand-file-name "checksums.dat" find-file-noselect re-search-forward "\\([0-9a-fA-F]\\{30,\\}\\).*?" regexp-quote "[ ]*$" nil t 1 md5 save-buffer kill-buffer] 7 (#$ . 25423)]) | |
| 133 | #@129 Apply all change requests in the current buffer. | |
| 134 | If BEG and END are given, only do this in that region. | |
| 135 | ||
| 136 | (fn &optional BEG END) | |
| e75a20 | 137 | (defalias 'org-mobile-apply #[512 "\303\304!\210\305\206 e\262\211\206 d\262b\210\306\307\310#\203& \311\312!\210\202 \313 \313 \313 \305\223\314\211\211C\314\305\211\nb\210\306\315\310#\203` \316\225\316\224Z\317Y\203: \320\316!\314\317O\227\321\232\204: T\262\202: \nb\210\306\322\310#\203<\32328\320\316!\324\225\205| \320\324!\3251\211 \326\320\327!!0\202\216 \211A@\262\330 \212\331\310\211\")\312\232\203\266 \332\330\317!\"\333\334\335\336\337\"\340\"\341\342%\262\202\300 T\262\n\343 \"A\344\305\211b\210\345!\203\350 \346!\n\235\204\350 \347\346!!\210\346!\nB\262\n\345!\204\317\350 \\b\210;\203\351\261\210\202\352c\210\nT\262 \353\323\310\"\210\204 \354c\210\nT\262 \353\323\310\"\210`\305\223\210\306\355\310#\2038\314\225T\356 \210`{\262\306\357\310#\203Q\314\225T\356 \210m\203M\360 \210`{\262\361!\262\361!\262\362\232\204\232\211\205|\211\305\363\203q\364\202r\365\312\363\366\312##\266\202\262\205\230\305\363\203\215\364\202\216\365\312\363\366\312##\266\202\262\317\\b\210`\305\223\210\305\262 \3671\365\212\345!\203\272\346!q\210\212\214~\210\211\206\303`b\210#\210\370\235?\205\356\371\372 \235\205\356\373 \211\235\203\347\202\354\211B\211\262+\2620\202\373\211\211\262 \262\210\203*\374\346!!\210b\210\nT\262 A@;\203 A@\202!\375\351\261\210\353\323\310\"\210b\210`\331\310\211\"|)\266\2100\210\202d \376 \210\305\211\223\210\305\211\223\210\377\201@ \242%\210\201A \316!\207" [org-mobile-last-flagged-files org-mobile-action-alist org-inhibit-logging require org-archive nil re-search-forward "^\\*\\* Note ID: [-0-9A-F]+[ ]*\n" t replace-match "" make-marker 0 "^\\* \\(.*\\)" 1 2 match-string "f(" "^\\*+[ ]+F(\\([^():\n]*\\)\\(:\\([^()\n]*\\)\\)?)[ ]+\\[\\[\\(\\(id\\|olp\\):\\([^]\n]+\\)\\)" next 3 (error) org-mobile-locate-entry 4 line-beginning-position org-end-of-subtree buffer-substring-no-properties make-byte-code 771 "\300\211\242T\240\210\302\303\304\"\210\305\306\307\310\311\312\301##\207" vconcat vector [org-toggle-tag "FLAGGED" on org-entry-put nil "THEFLAGGINGNOTE" replace-regexp-in-string "\n" "\\\\n"] 10 "\n\n(fn DATA OLD NEW)" assoc note markerp marker-buffer org-mobile-timestamp-buffer point-at-bol " " "BAD REFERENCE " throw "BAD FLAG " "^** Old value[ ]*$" outline-next-heading "^** New value[ ]*$" org-back-over-empty-lines org-string-nw-p "body" replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'" (error) ("delete" "archive" "archive-sibling" "addheading") "FLAGGED" org-get-tags buffer-file-name pop-to-buffer-same-window "EXECUTION FAILED" save-buffer message "%d new, %d edits, %d flags, %d errors" sit-for] 28 (#$ . 25935) nil]) |
| 76bbd0 | 138 | #@78 Time stamp buffer BUF, just to make sure its checksum will change. |
| C | 139 | |
| 140 | (fn BUF) | |
| e75a20 | 141 | (defalias 'org-mobile-timestamp-buffer #[257 "r\211q\210\212\214~\210eb\210\300\301\302\303#\203 \304\225b\210`\305\225|\210\202( \306\307!\203( \304y\210\310\311\312!\313\261+\207" [re-search-forward "^\\([ ]*\\)#\\+LAST_MOBILE_CHANGE:.*\n?" nil t 1 0 looking-at ".*?-\\*-.*-\\*-" "#+LAST_MOBILE_CHANGE: " format-time-string "%Y-%m-%d %T" "\n"] 5 (#$ . 28831)]) |
| 76bbd0 | 142 | #@1391 Parse the entry at point for shortcuts and expand them. |
| C | 143 | These shortcuts are meant for fast and easy typing on the limited |
| 144 | keyboards of a mobile device. Below we show a list of the shortcuts | |
| 145 | currently implemented. | |
| 146 | ||
| 147 | The entry is expected to contain an inactive time stamp indicating when | |
| 148 | the entry was created. When setting dates and | |
| 149 | times (for example for deadlines), the time strings are interpreted | |
| 150 | relative to that creation date. | |
| 151 | Abbreviations are expected to take up entire lines, just because it is so | |
| 152 | easy to type RET on a mobile device. Abbreviations start with one or two | |
| 153 | letters, followed immediately by a dot and then additional information. | |
| 154 | Generally the entire shortcut line is removed after action have been taken. | |
| 155 | Time stamps will be constructed using `org-read-date'. So for example a | |
| 156 | line "dd. 2tue" will set a deadline on the second Tuesday after the | |
| 157 | creation date. | |
| 158 | ||
| 159 | Here are the shortcuts currently implemented: | |
| 160 | ||
| 161 | dd. string set deadline | |
| 162 | ss. string set scheduling | |
| 163 | tt. string set time tamp, here. | |
| 164 | ti. string set inactive time | |
| 165 | ||
| 166 | tg. tag1 tag2 tag3 set all these tags, change case where necessary | |
| 167 | td. kwd set this todo keyword, change case where necessary | |
| 168 | ||
| 169 | FIXME: Hmmm, not sure if we can make his work against the | |
| 170 | auto-correction feature. Needs a bit more thinking. So this function | |
| 171 | is currently a noop. | |
| e75a20 | 172 | (defalias 'org-mobile-smart-read #[0 "\300\207" ["Parse the entry at point for shortcuts and expand them.\nThese shortcuts are meant for fast and easy typing on the limited\nkeyboards of a mobile device. Below we show a list of the shortcuts\ncurrently implemented.\n\nThe entry is expected to contain an inactive time stamp indicating when\nthe entry was created. When setting dates and\ntimes (for example for deadlines), the time strings are interpreted\nrelative to that creation date.\nAbbreviations are expected to take up entire lines, just because it is so\neasy to type RET on a mobile device. Abbreviations start with one or two\nletters, followed immediately by a dot and then additional information.\nGenerally the entire shortcut line is removed after action have been taken.\nTime stamps will be constructed using `org-read-date'. So for example a\nline \"dd. 2tue\" will set a deadline on the second Tuesday after the\ncreation date.\n\nHere are the shortcuts currently implemented:\n\ndd. string set deadline\nss. string set scheduling\ntt. string set time tamp, here.\nti. string set inactive time\n\ntg. tag1 tag2 tag3 set all these tags, change case where necessary\ntd. kwd set this todo keyword, change case where necessary\n\nFIXME: Hmmm, not sure if we can make his work against the\nauto-correction feature. Needs a bit more thinking. So this function\nis currently a noop."] 1 (#$ . 29282)]) |
| 76bbd0 | 173 | #@13 |
| C | 174 | |
| 175 | (fn LINK) | |
| e75a20 | 176 | (defalias 'org-mobile-locate-entry #[257 "\301\302\"\203 \303\304\305\"\306\"\207\301\307\"\204> \301\310\"\205a \304\305\"\311!\262\312\"\262\212\313!\210db\210\314 \210db\210\315 )\207\304\305\"\304\316\"\311!\262\312\"\262\317\311\320\321\"\"\262\322B!\266\202\207" [org-directory string-match "\\`id:\\(.*\\)$" org-id-find match-string 1 marker "\\`olp:\\(.*?\\):\\(.*\\)$" "\\`olp:\\(.*?\\)$" org-link-unescape expand-file-name find-file newline point-marker 2 mapcar org-split-string "/" org-find-olp] 8 (#$ . 32168)]) |
| 76bbd0 | 177 | #@393 Edit item WHAT in the current entry by replacing OLD with NEW. |
| C | 178 | WHAT can be "heading", "todo", "tags", "priority", or "body". |
| 179 | The edit only takes place if the current value is equal (except for | |
| 180 | white space) the OLD. If this is so, OLD will be replace by NEW | |
| 181 | and the command will return t. If something goes wrong, a string will | |
| 182 | be returned that indicates what went wrong. | |
| 183 | ||
| 184 | (fn WHAT OLD NEW) | |
| e75a20 | 185 | (defalias 'org-mobile-edit #[771 "\304\211\211\211;\203 \305!\262\306>\203] \307 \262\310\232\203* \311\312!\210\313 \202W\232\2034 \314\202W\232\204G \314=\204G \315>\203S \311\206M \316!\210\314\202W\317\320#\202W\321=\203\265 \322 \262\205p \323\324\"\262\205{ \323\324\"\262\325\"\203\210 \314\202W\325\"\204\233 \314=\204\233 \321>\203\243 \326!\210\314\202W\317\327\206\253 \330\206\261 \330#\202W\331=\203\304\332\n!\205\333\225\205\317 \334\333!\335\333O\211\232\203\332 \314\202\211\232\204\355 \314=\204\355 \321>\203\373 \336\205\367 \337!!\202\317\340#\262)\202W\341=\203U\304\332\n!\205Q\334\342!\211\232\203$\314\202O\211\232\2047\314=\2047\341>\203L\342\224b\210c\210``G\\|\210\343\304\344\"\202O\317\345!\262)\202W\346=\203|\347 \203q\350 \210\351\210\352\314!\210\353 \210\202w\354 \210\355c\210c\202W\356=\203\303\357 \210\360!\212\361!\203\225\362!q\210\212\214~\210\211\206\236`b\210\347 \203\270\363 \351\"\262\364\314\211\"\210\365!\210\202\274\365\351!\210+\210\366 \202W\367=\203\317\366 \202W\370=\203\333\371 \202W\372=\203\347\373 \202W\374=\205W\375 Td^\212\376 \210`){\262\377\201@ \"\204\304\262\201A \"\203\314\202W\201A \"\204,\314=\204,\374>\203R\212\351\210\201B \261\210n\204@\201B c\210`\201C \314!\210\376 \210`|\210)\314\202W\317\201D !\207" [org-mobile-force-mobile-change case-fold-search org-complex-heading-regexp outline-level nil intern (todo todostate) org-get-todo-state "DONEARCHIVE" org-todo done org-archive-subtree-default t todo none error "State before change was expected as \"%s\", but is \"%s\"" tags org-get-tags org-split-string ":+" org-mobile-tags-same-p org-set-tags-to "Tags before change were expected as \"%s\", but are \"%s\"" "" priority looking-at 3 match-string 2 org-priority string-to-char "Priority was expected to be %s, but is %s" heading 4 org-set-tags align "Heading changed in MobileOrg and on the computer" addheading org-at-heading-p org-show-subtree 1 org-insert-heading-respect-content org-demote beginning-of-line "* " refile org-copy-subtree org-mobile-locate-entry markerp marker-buffer org-get-valid-level org-end-of-subtree org-paste-subtree org-cut-subtree delete archive org-archive-subtree archive-sibling org-archive-to-archive-sibling body point-at-eol outline-next-heading string-match "\\S-" org-mobile-bodies-same-p "\n" org-back-to-heading "Body was changed in MobileOrg and on the computer"] 12 (#$ . 32735)]) |
| 76bbd0 | 186 | #@51 Are the two tag lists the same? |
| C | 187 | |
| 188 | (fn LIST1 LIST2) | |
| e75a20 | 189 | (defalias 'org-mobile-tags-same-p #[514 "\300\"\206 \300\"?\207" [org-delete-all] 5 (#$ . 35695)]) |
| 76bbd0 | 190 | #@274 Compare if A and B are visually equal strings. |
| C | 191 | We first remove leading and trailing white space from the entire strings. |
| 192 | Then we split the strings into lines and remove leading/trailing whitespace | |
| 193 | from each line. Then we compare. | |
| 194 | A and B must be strings or nil. | |
| 195 | ||
| 196 | (fn A B) | |
| e75a20 | 197 | (defalias 'org-mobile-bodies-same-p #[514 "\204\n \211\204\n \300\207\203 \211\204 \301\207\301\302\203 \303\202 \304\305\302\306\305##\266\202\262\211\301\302\2037 \303\2028 \304\305\302\306\305##\266\202\262\307\310\311\312\"\313#\262\307\310\311\312\"\313#\262\232\207" [t nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" mapconcat identity org-split-string "[ ]*\n[ ]*" "\n"] 11 (#$ . 35856)]) |
| 76bbd0 | 198 | (provide 'org-mobile) |
