Current File : //usr/local/share/emacs/27.2/lisp/org/org-mobile.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\302&\210\314\315\316\317\320DD\321\313\306\322\323&\210\314\324\316\317\325DD\326\313\306\327\330\322\331& \210\314\332\316\317\333DD\334\313\306\322\335&\210\314\336\316\317\337DD\340\327\341\342\343\322\344\313\306& \210\314\345\316\317\346DD\347\313\306\327\330\322\350& \210\314\351\316\317\352DD\353\313\306\327\330\322\335& \210\314\354\316\317\355DD\356\313\306\327\330\322\357& \207" [require cl-lib org org-agenda ol 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 the mobile application.\n\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\n`org-agenda-files'\n This means include the complete, unrestricted list of files given in\n the variable `org-agenda-files'.\n\n`org-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.\n\nEncryption uses AES-256, with a password given in\n`org-mobile-encryption-password'. When nil, plain files are kept\non the server.\n\nTurning on encryption requires setting the same password in the\nmobile application. Before turning this on, check if the mobile\napplication does support it." 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.\n\nThis is a single password which is used for AES-256 encryption. The same\npassword must also be set in the mobile 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)
(defvar org-mobile-encryption-password-session nil)
(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 mobile application: " t] 3])
(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' is emptied as soon as its 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)
#@144 The capture file where the mobile stores captured notes and flags.
This must not be changed, because the mobile application assumes this name.
(defconst org-mobile-capture-file "mobileorg.org" (#$ . 4809))
(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#] "Index file with links to all Org files.\nIt should be loaded by the mobile application. The file name is\nrelative to `org-mobile-directory'. The \"Address\" field in the\nmobile application setup should point to this file." :group org-mobile :type file org-mobile-agendas #[0 "\300\207" [all] 1] "The agendas that should be pushed to the mobile application.\n\nAllowed values:\n\n`default' the weekly agenda and the global TODO list\n`custom' all custom agendas defined by the user\n`all' the custom agendas and the default ones\n`list' 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)
#@279 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-pre-push-hook nil (#$ . 7122))
#@297 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-post-push-hook nil (#$ . 7457))
#@286 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-pre-pull-hook nil (#$ . 7811))
#@307 Hook run after running `org-mobile-pull', only if new items were found.
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-post-pull-hook nil (#$ . 8153))
#@678 Alist with flags and actions for mobile sync.
When flagging an entry, the mobile application creates 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 function as the first argument
variable.
The car of each elements of the alist is an actions string. The
cdr is a function that is called with the cursor on the headline
of that entry. It should accept three arguments, the :data part,
the old and new values for the entry.
(defconst org-mobile-action-alist '(("edit" . org-mobile-edit)) (#$ . 8517))
#@62 List of files containing entries flagged in the latest pull.
(defvar org-mobile-last-flagged-files nil (#$ . 9277))
(defvar org-mobile-files-alist nil)
(defvar org-mobile-checksum-files nil)
(easy-menu-add-item org-org-menu nil '("MobileOrg" ["Push Files and Views" org-mobile-push t] ["Get Captured and Flagged" org-mobile-pull t] ["Find FLAGGED Tasks" (org-agenda nil "?") :active t :keys "\\[org-agenda] ?"] "--" ["Setup" (customize-group 'org-mobile) t]))
(defalias 'org-mobile-prepare-file-lists #[0 "\300 \302\211\207" [org-mobile-files-alist org-mobile-checksum-files nil] 2])
#@131 Expand the list in `org-mobile-files' to a list of existing files.
Also exclude files matching `org-mobile-files-exclude-regexp'.
(defalias 'org-mobile-files-alist #[0 "\301>\205
\303 >\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\333\225\"\262\202w \334!\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\267\202 \303\304\300\"\207\305\306\307 !\"\207\211;\203# \310!\203# \311\312\313#\207\211;\2031 \314!\2031 \211C\207\315\207" vconcat vector [org-agenda-text-search-extra-files #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (org-agenda-files 6 org-agenda-text-search-extra-files 11)) 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 substring 0 file-name-nondirectory] 13 (#$ . 9870)])
#@199 Push the current state of Org affairs to the target 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.
(defalias 'org-mobile-push #[0 "\306 \307\310!\311\312\313\314\315\316\317!\320\"\321$\"\266\212\214\322 \313\314\323\316\317!\324\"\321$\216\325\326!\210\327 \210\330 \210\331\332!\210\333\334\335 \" \336 \210*\331\337!\210\340 \210\331\341!\210\342 \210\331\343!\210\344 \210\331\345!\210\346 \210\325\347!\210)\210-\350 \210\331\351!\207" [org-agenda-tag-filter org-agenda-redo-command org-agenda-buffer-name org-mobile-files-alist org-agenda-files inhibit-redisplay "*SUMO*" org-buffer-list agenda save-some-buffers nil make-byte-code 0 "p\300>\207" vconcat vector [] 2 current-window-configuration "\301\300!\207" [set-window-configuration] 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"] 9 (#$ . 11245) nil])
#@178 Hook that is run after content was moved to `org-mobile-inbox-for-pull'.
The inbox file is visited by the current buffer, and the buffer is
narrowed to the newly captured data.
(defvar org-mobile-before-process-capture-hook nil (#$ . 12571))
#@178 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.
(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 (#$ . 12820) nil])
#@48 Check if org-mobile-directory has been set up.
(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 (#$ . 13694)])
#@47 Write the index file in the WebDAV directory.
(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 \"!\"\2628\203U 9\202V \324\325!\326\327\330\331\332!\333\"\334$\216r\211q\210\335c\210\211\203\247 \211@\317\336A\"\337\340\341\342#\343\261\210\344\235\206\214 \345!\322\"\322 \"\262\n\322\n\"\262 \266A\266\202\202n \210\204\260 \203\302 \337\340\341\342#\346\340\341\342#\343\261\210\347\350\351\"!\262\322\"\262\306\352\"\262\353\314#\262\354\340\341\342#\343\261\210\355:\343\261\210\356\313 \357\"!\203\375 \360c\210\211\203\211@\211A\211\361\362\211#c\266A\266\202\202\377 \210\n\363\364 !B;B;)r\211q\210\365\314\211\314\327%\210*\2668\205@\3669\"\210\367 \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 generate-new-buffer " *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 \302\303\211\224#\207\207" [string-match "(" substring 0] 5 "\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 (#$ . 14913)])
#@57 Copy all agenda files to the stage or WebDAV directory.
(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 "[[:xdigit:]]\\{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 (#$ . 16916)])
#@123 Create checksums for all files in `org-mobile-directory'.
The table of checksums is written to the file mobile-checksums.
(defalias 'org-mobile-write-checksums #[0 "\302\303\" \304\211\211\305\306!\307\310\311\312\313!\314\"\315$\216r\211q\210\316\317\304\"\210\211A\262\242\211\262\205@ @\262A\262\320\321#c\210\202! )rq\210\322\304\211\304\310%\210*\266\202\207" [org-mobile-directory org-mobile-checksum-files expand-file-name "checksums.dat" nil generate-new-buffer " *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 (#$ . 17974)])
#@69 Return an agenda custom command that comprises all custom commands.
(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\267\202\\
\240\210\202\202
\240\210\202\202
\240\210\310\311\242\"\204G
\312\242B\240\210\310\313\242\"\204\202
\314\242B\240\210\202\202 <\203\202
\315\"\240\210
\302\303\304\316\317\320\321\322!\323\"\324\325% \"\"\240\210
\242\211\242A\240\210\242\211\262\f\203\246\nA;\204\202 \326 8\327=\204\202 \326 8\330>\204\202 \326 8\331>\203\306 \332 8\203\202 \333\334\332
8\"\203\202 \326 8\335>\203 \n@\262\n\nA@\262 \326 8\262\332 8\262\324 8\262\336\337 \340\f;\203\fG\341V\203\f\202\342\f!\343\260DB\262E\fB\262\f\202\202 \344\326\f8!\204\202 \326 89\204\202 \n@\262\nA@\262\332 8\262\326 8\262\341\262\211A\262\242\211\262\f\203\202 \n@\262\nA@\262\326 8\262\345\230\203s\202t\262
\315\"\262\336\337\346\347T\211\262!\340\343\260DB\262E\fB\262\f\202K\202\202 \205\263\350\351\352!\353F\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)) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (custom 29 default 38 all 47)) 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 (#$ . 18666)])
(defvar org-mobile-creating-agendas nil)
#@13
(fn FILE)
(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$\216r\211q\210\315 \210\316c\210 c\210eb\210m\204_\317\320!\204X\317\321!\203E `\322 |\210\202X\323`\324\"\203\203 \303\262 \323`\325\"\262\323`\326\"\262\203o \317\327!\203o \330\303\331#\210\332\333!\210\203} \333\210c\210\332\333!\210\334c\210\202X\323`\335\"\203\223 \331\262 \336c\210\202X\323`\337\"\206\236 \323`\340\"\211\262\203X\323`\341\"\342\235\262\343`\322 \344\331$\211\262\n\203` {\303\345\203\307 \346\202\310 \347\350\345\351\350##\266\202\262\322 {\303\345\203\343 \346\202\344 \347\350\345\351\350##\266\202\262\352 \322 |\210\353 \354\261\210\332\333!\210\202\317\355!\203\330\350!\210\n\203\356\202\357c\210\333\210\360c\210\204X\361\362\363\364$\360\261\210\365\300!\203A\203A\366\367\"\202K\370\371\"\206K\372!\211\262 \203X\373\n\374\261\210\332\314!\210\202- \375\376\302 !B B)r\211q\210\377\303\211\303\307%\210*\266\201@ \201A \f\"\207" [org-mobile-force-id-on-agenda-items org-mobile-checksum-files buffer-string nil generate-new-buffer " *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 (#$ . 20637)])
#@12
(fn POM)
(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 (#$ . 22636)])
#@10
(fn S)
(defalias 'org-mobile-escape-olp #[257 "\300\301\"\207" [org-link-encode (58 47)] 4 (#$ . 23007)])
#@54 Create a file that contains all custom agenda views.
(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 (#$ . 23122) nil])
#@198 Encrypt INFILE locally to INFILE_enc, then move it to OUTFILE.
We do this in two steps so that remote paths will work, even if the
encryption program does not understand them.
(fn INFILE OUTFILE)
(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 (#$ . 23745)])
#@89 Encrypt INFILE to OUTFILE, using `org-mobile-encryption-password'.
(fn INFILE OUTFILE)
(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 (#$ . 24139)])
#@89 Decrypt INFILE to OUTFILE, using `org-mobile-encryption-password'.
(fn INFILE OUTFILE)
(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 (#$ . 24517)])
#@46 Remove the encryption tempfile if it exists.
(defalias 'org-mobile-cleanup-encryption-tempfile #[0 ";\205 \301!\205 \302!\207" [org-mobile-encryption-tempfile file-exists-p delete-file] 2 (#$ . 24898)])
#@171 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 been added, return nil.
(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 (#$ . 25113) nil])
#@82 Find the checksum line and modify it to match BUFFER-STRING.
(fn BUFFER-STRING)
(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 "\\([[:xdigit:]]\\{30,\\}\\).*?" regexp-quote "[ ]*$" nil t 1 md5 save-buffer kill-buffer] 7 (#$ . 26063)])
#@129 Apply all change requests in the current buffer.
If BEG and END are given, only do this in that region.
(fn &optional BEG END)
(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#\203a \316\225\316\224Z\317Y\203: \320\321\316!\314\317#\227\322\232\204: T\262\202: \nb\210\306\323\310#\203?\3242;\321\316!\325\225\205} \321\325!\3261\212 \327\321\330!!0\202\217 \211A@\262\331 \212\332\310\211\")\312\232\203\267 \333\331\317!\"\334\335\336\337\340\"\341\"\342\343%\262\202\301 T\262\n\344 \"A\345\305\211b\210\346!\203\351 \347!\n\235\204\351 \350\347!!\210\347!\nB\262\n\346!\204\317\351 \\b\210;\203\352\261\210\202\353c\210\nT\262 \354\324\310\"\210\204!\355c\210\nT\262 \354\324\310\"\210`\305\223\210\306\356\310#\2039\314\225T\357 \210`{\262\306\360\310#\203R\314\225T\357 \210m\203N\361 \210`{\262\362!\262\362!\262\363\232\204\233\211\205}\211\305\364\203r\365\202s\366\312\364\367\312##\266\202\262\205\231\305\364\203\216\365\202\217\366\312\364\367\312##\266\202\262\317\\b\210`\305\223\210\305\262 \3701\370\212\346!\203\273\347!q\210\212\214~\210\211\206\304`b\210#\210\371\235?\205\361\372\373\305\310\"\235\205\361\374 \211\235\203\352\202\357\211B\211\262+\2620\202\376\211\211\262 \262\210\203-\375\347!!\210b\210\nT\262 A@;\203#A@\202$\376\352\261\210\354\324\310\"\210b\210`\332\310\211\"|)\266\2100\210\202e \377 \210\305\211\223\210\305\211\223\210\201@ \201A \242%\210\201B \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 substring 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 (#$ . 26576) nil])
#@78 Time stamp buffer BUF, just to make sure its checksum will change.
(fn BUF)
(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 (#$ . 29501)])
#@1391 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, just 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.
(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 (#$ . 29952)])
#@13
(fn LINK)
(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-decode expand-file-name find-file newline point-marker 2 mapcar org-split-string "/" org-find-olp] 8 (#$ . 32838)])
#@393 Edit item WHAT in the current entry by replacing OLD with NEW.
WHAT can be "heading", "todo", "tags", "priority", or "body".
The edit only takes place if the current value is equal (except for
white space) the OLD. If this is so, OLD will be replace by NEW
and the command will return t. If something goes wrong, a string will
be returned that indicates what went wrong.
(fn WHAT OLD NEW)
(defalias 'org-mobile-edit #[771 "\304\211\211\211;\203 \305!\262\306\267\202\307 \262\310\232\203* \311\312!\210\313 \202\232\2034 \314\202\232\204G \314=\204G \315>\203S \311\206M \316!\210\314\202\317\320#\202\321\304\314\"\262\205k \322\323\"\262\205v \322\323\"\262\324\"\203\203 \314\202\324\"\204\226 \314=\204\226 \325>\203\236 \326!\210\314\202\317\327\206\246 \330\206\254 \330#\202\304\331\n!\205\370 \332\225\205\304 \333\334\332!\335\332#\211\232\203\317 \314\202\366 \211\232\204\342 \314=\204\342 \325>\203\360 \336\205\354 \337!!\202\366 \317\340#\262)\202\304\331\n!\205=\334\341!\211\232\203\314\202;\211\232\204%\314=\204%\342>\2038\341\224b\210c\210``G\\|\210\343 \202;\317\344!\262)\202\345 \203V\346 \210\347\210\350\314!\210\351 \210\202\\\352 \210\353c\210c\202\354 \210\355!\212\356!\203s\357!q\210\212\214~\210\211\206|`b\210\345 \203\226\360 \347\"\262\361\314\211\"\210\362!\210\202\232\362\347!\210+\210\363 \202\363 \202\364 \202\365 \202\366 Td^\212\367 \210`){\262\370\371\"\204\310\304\262\372\"\203\324\314\202\372\"\204\350\314=\204\350\373>\203\212\347\210\374\261\210n\204\370\374c\210`\375\314!\210\367 \210`|\210)\314\202\317\376!\202\304\207" [org-mobile-force-mobile-change case-fold-search org-complex-heading-regexp outline-level nil intern #s(hash-table size 11 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (todo 23 todostate 23 tags 93 priority 176 heading 252 addheading 321 refile 353 delete 417 archive 422 archive-sibling 427 body 432)) 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\"" org-get-tags org-split-string ":+" org-mobile-tags-same-p tags org-set-tags "Tags before change were expected as \"%s\", but are \"%s\"" "" looking-at 3 substring match-string 2 org-priority string-to-char "Priority was expected to be %s, but is %s" 4 heading org-align-tags "Heading changed in the mobile device and on the computer" org-at-heading-p org-show-subtree 1 org-insert-heading-respect-content org-demote beginning-of-line "* " org-copy-subtree org-mobile-locate-entry markerp marker-buffer org-get-valid-level org-end-of-subtree org-paste-subtree org-cut-subtree org-archive-subtree org-archive-to-archive-sibling point-at-eol outline-next-heading string-match "\\S-" org-mobile-bodies-same-p body "\n" org-back-to-heading "Body was changed in the mobile device and on the computer"] 12 (#$ . 33403)])
#@51 Are the two tag lists the same?
(fn LIST1 LIST2)
(defalias 'org-mobile-tags-same-p #[514 "\300\"\206 \300\"?\207" [org-delete-all] 5 (#$ . 36418)])
#@274 Compare if A and B are visually equal strings.
We first remove leading and trailing white space from the entire strings.
Then we split the strings into lines and remove leading/trailing whitespace
from each line. Then we compare.
A and B must be strings or nil.
(fn A B)
(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 (#$ . 36579)])
(provide 'org-mobile)
Mini Shell