;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'htmlize) #@59 Evernote importer address assigned your evernote account. (defvar epic-evernote-mail-address "your-evernote-importer-address0@???.evernote.com" (#$ . 106)) #@69 Mail headers which need to be remained in the head of created note. (defvar epic-evernote-mail-headers '("Message-Id:" "Subject:" "From:" "To:" "Cc:" "Date:") (#$ . 268)) (defvar epic-cache-notebooks nil) (defvar epic-cache-tags nil) (defvar epic-default-evernote-stack "Projects") #@204 Temporal directory on importing/exporting attachments from/to Evernote. This directory should be located within the sandbox of Evernote.app like: ~/Library/Containers/com.evernote.Evernote/Data/epic-tmp (defvar epic-sandbox-tmp-directory nil (#$ . 557)) #@35 Create NAME notebook in Evernote. (defalias 'epic-create-notebook #[(name) "\301!\203 \302\303\"\207\304\305\306\307!\"!\210\310\311\"\207" [name epic-notebook-exists-p error "Notebook ``%s'' already exists." do-applescript format "\n tell application \"Evernote\"\n create notebook %s\n end tell\n " epic/as-quote message "Notebook ``%s'' is created."] 5 (#$ . 817) "sNew notebook name: "]) #@48 Return the name list of notebooks in Evernote. (defalias 'epic-notebooks #[nil "\206 \301\302!\211\207" [epic-cache-notebooks epic/get-name-list "notebooks"] 2 (#$ . 1242)]) #@110 Return the notebook titles in STACK-NAME. If STACK-NAME is omitted, ``epic-default-evernote-stack'' is used. (defalias 'epic-find-notebook-titles-in-stack #[(&optional stack-name) "\302\303\206 P!\207" [stack-name epic-default-evernote-stack epic-find-notebook-titles "stack:"] 3 (#$ . 1426)]) #@103 Completing read for notebooks of Evernote. This is supposed to work better with anything.el package. (defalias 'epic-read-notebook #[(&optional default) "\301\302\303 \304\206\n\305$\207" [default epic/completing-read "Notebook: " epic-notebooks epic-notebook-history ""] 5 (#$ . 1730)]) #@47 Return t if notebook NAME exists in Evernote. (defalias 'epic-notebook-exists-p #[(name) "\301\302\303\304!\"!\305U\207" [name do-applescript format "\n tell application \"Evernote\"\n if (notebook named %s exists) then\n return 1\n end if\n return 0\n end tell\n " epic/as-quote 1] 5 (#$ . 2027)]) #@118 Rename notebook OLD-NAME to NEW-NAME in Evernote. Both args must be strings. Do nothing if NEW-NAME already exists. (defalias 'epic-rename-notebook #[(old-name new-name) "\302!\205\302 !?\205\303\304\305\306!\306 !#!\207" [old-name new-name epic-notebook-exists-p do-applescript format "\n tell application \"Evernote\"\n set name of notebook %s to %s\n end tell\n " epic/as-quote] 6 (#$ . 2386)]) #@153 Return notebook names that have any notes matched by QUERY-STRING. QUERY-STRING is detailed in https://dev.evernote.com/doc/articles/search_grammar.php (defalias 'epic-find-notebook-titles #[(query-string) "\301\302\303\304\305!\"!!\207" [query-string epic/split-lines do-applescript format "\n tell application \"Evernote\"\n set noteList to find notes %s\n set notebookTitles to {}\n set retstring to \"\"\n repeat with n in noteList\n set notebookname to (name of (notebook of n))\n if (notebookname is not in notebookTitles) then\n set notebookTitles to notebookTitles & notebookname\n end if\n end repeat\n repeat with n in notebookTitles\n set retstring to retstring & n & \"\n\"\n end repeat\n retstring\n end tell\n " epic/as-quote] 6 (#$ . 2828)]) #@100 Return the URI list of the selected notes in Evernote GUI. URIs are in the form of evernote://... (defalias 'epic-selected-note-uris #[nil "\300\301\302!!\207" [epic/split-lines do-applescript "\n tell application \"Evernote\"\n set noteList to selection\n set noteLink to \"\"\n repeat with n in noteList\n set noteLink to (noteLink & (note link of n) & \"\n\")\n end repeat\n end tell\n "] 3 (#$ . 3711)]) #@79 Wipe the content of note specified by NOTE-LINK. It does not delete the note. (defalias 'epic-nullify-note #[(note-link) "\301\302\303\304!\"!\210\207" [note-link do-applescript format "\n tell application \"Evernote\"\n set aNote to find note %s\n if (exists aNote)\n set (HTML content of aNote) to \"\"\n end if\n end tell\n " epic/as-quote] 5 (#$ . 4179)]) #@140 Return selected notes as a list of (uri . title) cons cell like: (("title1" . "evernote:///...") ("title2" . "evernote:///...")). (defalias 'epic-selected-note-list #[nil "\303 \304 \305\n@\203# @\203#\n@ @BB\nA A\202+\207" [result titles uris epic-selected-note-uris epic-selected-note-titles nil] 3 (#$ . 4579)]) #@50 Return the titles of selected notes in Evernote. (defalias 'epic-selected-note-titles #[nil "\300\301!\210\302\303\304!!\207" [sit-for 0.1 epic/split-lines do-applescript "\n tell application \"Evernote\"\n set noteList to selection\n set noteTitle to \"\"\n repeat with n in noteList\n set noteTitle to (noteTitle & (title of n) & \"\n\")\n end repeat\n end tell\n "] 3 (#$ . 4921)]) #@150 Return the titles of notes matched by QUERY-STRING in Evernote. QUERY-STRING is detailed in https://dev.evernote.com/doc/articles/search_grammar.php (defalias 'epic-find-note-titles #[(query-string) "\301\302!\210\303\304\305\306\307!\"!!\207" [query-string sit-for 0.1 epic/split-lines do-applescript format "\n tell application \"Evernote\"\n set noteList to find notes %s\n set noteTitle to \"\"\n repeat with n in noteList\n set noteTitle to (noteTitle & (title of n) & \"\n\")\n end repeat\n end tell\n " epic/as-quote] 6 (#$ . 5358)]) #@36 Open Evernote window of NOTE-LINK. (defalias 'epic-open-note #[(note-link) "\301\302\303\304!\"!\207" [note-link do-applescript format "\n tell application \"Evernote\"\n set aNote to find note %s\n if (exists aNote)\n open note window with aNote\n activate\n return note link of aNote as string\n end if\n end tell\n " epic/as-quote] 5 (#$ . 5958)]) #@37 Return a title string of NOTE-LINK. (defalias 'epic-note-title #[(note-link) "\301\302!\210\303\304\305\306!\"!\207" [note-link sit-for 0.1 do-applescript format "\n tell application \"Evernote\"\n set aNote to find note %s\n if (exists aNote)\n return title of aNote as string\n end if\n end tell\n " epic/as-quote] 5 (#$ . 6361)]) #@47 Return a list of tags as string in NOTE-LINK. (defalias 'epic-note-tags #[(note-link) "\301\302\303\304\305!\"!!\207" [note-link epic/split-lines do-applescript format "\n tell application \"Evernote\"\n set aNote to find note %s\n set aList to \"\"\n if (exists aNote)\n set aTagList to (tags of aNote)\n if (exists aTagList)\n repeat with n in aTagList\n set aList to (aList & (name of n) & \"\n\")\n end repeat\n return aList\n end if\n end if\n end tell\n " epic/as-quote] 6 (#$ . 6732)]) #@56 Return a list of filenames of attachment in NOTE-LINK. (defalias 'epic-note-attachments #[(note-link) "\301\302\303\304!\304\305\306 !!#!\207" [note-link do-applescript format "\n tell application \"Evernote\"\n set aNote to find note %s\n set aList to \"\"\n if (exists aNote) and (exists attachments of aNote)\n repeat with n in (attachments of aNote)\n write n to %s & \":\" & (filename of n)\n set aList to (aList & (filename of n) & \"\n\")\n end repeat\n return aList\n end if\n end tell\n " epic/as-quote epic/as-expand-file-name epic/sandbox-tmp-directory] 7 (#$ . 7362)]) #@189 Export a note specified by NOTE-LINK to FILENAME. If optional argument EXPORT-TAGS is 'true (default), export tags in note. Optional argument FORMAT is one of 'ENEX or ‌'HTML (default). (defalias 'epic-export-note #[(note-link filename &optional export-tags format) "\304\303\305\306!\306\307 !!\310\311\n\206\312\"\310\313 \206\314\"%!\207" [note-link filename export-tags format do-applescript "\n tell application \"Evernote\"\n set aNote to find note %s\n if (exists aNote)\n export {aNote} to (POSIX file %s) %s %s\n end if\n end tell\n " epic/as-quote expand-file-name epic/as-option "tags" true "format" HTML] 9 (#$ . 8019)]) #@69 Same as ``read-string'' with the exception of a descriptive prompt. (defalias 'epic-read-note-title #[(&optional default) "\301\302\303$\207" [default read-string "Title: " epic-title-history] 5 (#$ . 8696)]) #@178 Create a note article of Evernote from the text between BEG to END. Set TITLE (string), NOTEBOOK (stirng), and TAGS (list of string) to the article, and store it to Evernote. (defalias 'epic-create-note-from-region #[(beg end title notebook tags) "\306\307 \n\"\310 \f  $*\207" [htmlize-output-type beg end html-string title notebook font htmlize-region-for-paste epic-create-note-from-html-string tags] 5 (#$ . 8914) (list (region-beginning) (region-end) (epic-read-note-title) (epic-read-notebook) (epic-read-tag-list))]) #@163 Create a note aricle of Evernote from the FILE-NAME. Set TITLE (stirng), NOTEBOOK (string), and TAGS (list of string) to the article, and store it to Evernote. (defalias 'epic-create-note-from-file #[(file-name title &optional notebook tags attachments) "\305\306\307\310\311!!\310 !\312\313\n\"\312\314 \"\312\315\f\"&!\207" [file-name title notebook tags attachments do-applescript format "\n tell application \"Evernote\"\n set aNote to (create note from file (POSIX file %s) title %s %s %s %s)\n open note window with aNote\n activate\n end tell\n " epic/as-quote expand-file-name epic/as-option "notebook" "tags" "attachments"] 10 (#$ . 9450)]) #@163 Create a note aricle of Evernote from the FILE-NAME. Set TITLE (stirng), NOTEBOOK (string), and TAGS (list of string) to the article, and store it to Evernote. (defalias 'epic-create-note-from-html-string #[(html-string title &optional notebook tags attachments) "\305\306\307\310!\310 !\311\312\n\"\311\313 \"\311\314\f\"&!\207" [html-string title notebook tags attachments do-applescript format "\n set noteLink to missing value\n tell application \"Evernote\"\n set aNote to (create note with html %s title %s %s %s %s)\n synchronize\n repeat while noteLink is missing value\n delay 0.5 -- wait for synchronize\n set noteLink to (note link of aNote)\n end repeat\n open note window with aNote\n activate\n return noteLink as string\n end tell\n " epic/as-quote epic/as-option "notebook" "tags" "attachments"] 10 (#$ . 10135)]) #@61 Append FILENAME to an existing note specified by NOTE-LINK. (defalias 'epic-append-attachment-to-note #[(filename note-link) "\303!\304\305\306\307\n!\307\310 !!#!)\207" [filename attachment note-link epic/as-copy-file-to-sandbox do-applescript format "\n tell application \"Evernote\"\n set aNote to find note %s\n if (exists aNote)\n open note window with aNote\n activate\n append aNote attachment (POSIX file %s)\n return note link of aNote as string\n else\n return 0\n end if\n end tell\n " epic/as-quote expand-file-name] 7 (#$ . 11036)]) #@64 Append HTML-STRING to an existing note specified by NOTE-LINK. (defalias 'epic-append-html-to-note #[(html-string note-link) "\302\303\304\305!\305 !#!\207" [note-link html-string do-applescript format "\n tell application \"Evernote\"\n set aNote to find note %s\n if (exists aNote)\n append aNote html %s\n return note link of aNote as string\n else\n return 0\n end if\n end tell\n " epic/as-quote] 6 (#$ . 11676)]) #@59 Return sandbox directory where Evernote has access right. (defalias 'epic/sandbox-tmp-directory #[nil "\206 \303\n!\204\304\n\305\"\210\n)\207" [epic-sandbox-tmp-directory temporary-file-directory dir file-directory-p make-directory t] 3 (#$ . 12152)]) #@73 Return new path if FILENAME is located out of the sandbox for Evernote. (defalias 'epic/as-sandbox-path-for-attachment #[(filename) "\301\302!\303 \"\207" [filename expand-file-name file-name-nondirectory epic/sandbox-tmp-directory] 3 (#$ . 12417)]) #@178 Write region START to END into FILENAME in the sandbox of Evernote. If the directory of FILENAME is out of the sandbox, it will be adjusted. Return new filename in the sandbox. (defalias 'epic/as-write-region-to-sandbox #[(start end filename) "\304!\305\n #\210 )\207" [filename sandbox-file start end epic/as-sandbox-path-for-attachment write-region] 4 (#$ . 12675)]) #@93 Copy FILENAME to the sandbox where Evernote can access. Return new filename in the sandbox. (defalias 'epic/as-copy-file-to-sandbox #[(filename) "\302! \230\204\303 \304\211$\210 )\207" [filename sandbox-file epic/as-sandbox-path-for-attachment copy-file t] 5 (#$ . 13053)]) #@43 Return the name list of tags in Evernote. (defalias 'epic-tags #[nil "\206 \301\302!\211\207" [epic-cache-tags epic/get-name-list "tags"] 2 (#$ . 13340)]) #@98 Completing read for tags of Evernote. This is supposed to work better with anything.el package. (defalias 'epic-read-tag #[(&optional default) "\301\302\303 \304\206\n\305$\207" [default epic/completing-read "Tag: " epic-tags epic-tag-history ""] 5 (#$ . 13504)]) #@133 Completing read for tags of Evernote. This repeats ``epic-read-tag'' until the input is blank, and returns the tags in list-form. (defalias 'epic-read-tag-list #[nil "\302\211\303\304\305 \306\307$\211\307\230\204 B\307\202\237*\207" [tag-list tag nil epic/completing-read "Add tag (finish to blank): " epic-tags epic-tag-history ""] 5 (#$ . 13778)]) #@52 Open Evernote collection window with QUERY-STRING. (defalias 'epic-open-collection-window #[(query-string) "\301\302\"\203\303\304\305\306!\"!\207\303\304\307\306!\"!\207" [query-string string-match "^evernote://" do-applescript format "\n do shell script (\"open \" & %s)\n " epic/as-quote "\n tell application \"Evernote\"\n open collection window with query string %s\n activate\n end tell\n "] 5 (#$ . 14148)]) #@59 Open Evernote notebook window specified by NOTEBOOK-NAME. (defalias 'epic-open-notebook-in-collection-window #[(notebook-name) "\301\302\303\"!\207" [notebook-name epic-open-collection-window format "notebook:\"%s\""] 4 (#$ . 14617) (list (epic-read-notebook))]) (eval-after-load 'org #[nil "\301\300!\203\302\303\"\204\304\303\305\"\207\306\303\307\305#\207" [org-link-protocols boundp assoc "evernote" org-add-link-type epic-org-evernote-note-open org-link-set-parameters :follow] 4]) (defalias 'epic-org-evernote-note-open #[(path) "\301\302P!\207" [path browse-url "evernote:"] 3]) (defalias 'epic/org-header-narrowing '(macro . #[(&rest form) "\301\302\303\304\305\306BBBBBD\207" [form save-excursion save-restriction (goto-char (point-min)) (while (and (looking-at "^#\\+") (not (eobp))) (forward-line 1)) (narrow-to-region (point-min) (point)) (goto-char (point-min))] 7])) (defalias 'epic-org-get-link #[nil "\212\214eb\210\300\301!\203m\204\302y\210\202e`}\210eb\210\303\304\305\306#\205*\307\302\224\302\225\"*\207" [looking-at "^#\\+" 1 re-search-forward "^#\\+EPIC_LINK: *\\([^\n ]*\\)" nil t buffer-substring-no-properties] 4]) (defalias 'epic-org-put-link #[(link) "\301 \203.\212\214eb\210\302\303!\203m\204\304y\210\202\ne`}\210eb\210\305\306\307\310#\210\311\312P!*\207\212\214eb\210\302\303!\203Cm\204C\304y\210\2023e`}\210eb\210db\210\313\314\"c*\207" [link epic-org-get-link looking-at "^#\\+" 1 re-search-forward "^#\\+EPIC_LINK:.*$" nil t replace-match "#+EPIC_LINK: " format "#+EPIC_LINK: %s\n"] 4]) #@434 Export current org buffer into a note of Evernote in the form of HTML. The original org buffer is also attached to the exported note. Epic inserts the link string in the org buffer like: #+EPIC_LINK: evernote:///view/123456/s1/xxxxxxxx-xxxx-.../ to keep the correspondence with the previously exported note. Using this link, epic will export to the same note as before (nullify the previously exported note and re-export into it). (defalias 'epic-create-note-from-org-buffer #[nil "\306\307\310 \311\312!\313 \314\"\206\315\307\316 \211\203$\317 !\210\202)\320\315\f\"\321\212\322 \323\216r\324\312\325\"q\210ed{, \"\210\326 !\210\327\330ed\310 # \".\207" [htmlize-output-type org-html-xml-declaration org-file org-plist org-title note-link font nil buffer-file-name org-export-get-environment html plist-get :title "" epic-org-get-link epic-nullify-note epic-create-note-from-html-string epic-append-html-to-note current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] org-export-to-buffer "*Orglue HTML Export*" epic-org-put-link epic-append-attachment-to-note epic/as-write-region-to-sandbox #1#] 5 (#$ . 16173) nil]) #@65 Capture selected notes in Evernote, and insert org-style links. (defalias 'epic-insert-selected-note-as-org-links #[nil "\300\301\302 \303#c\207" [mapconcat #[(x) "\301\302@A#\207" [x format "[[%s][%s]]"] 4] epic-selected-note-list "\n"] 4 (#$ . 17352) nil]) (defvar helm-c-source-evernote-tags '((name . "Evernote Tags") (candidates . epic-tags) (migemo) (action ("Insert Tag Name" lambda (candidate) (insert "#" candidate) candidate)))) (defvar helm-c-source-evernote-notebooks '((name . "Evernote Notebooks") (candidates . epic-notebooks) (migemo) (action ("Pop To Notebook in Evernote" lambda (candidate) (epic-open-notebook-in-collection-window candidate)) ("Insert Notebook Name" lambda (candidate) (insert "@" candidate) candidate)))) (defvar helm-c-source-evernote-notebooks-in-stack '((name . "Evernote Notebooks In Stack") (candidates . epic-find-notebook-titles-in-stack) (migemo) (action ("Pop To Notebook in Evernote" lambda (candidate) (epic-open-notebook-in-collection-window candidate)) ("Insert Notebook Name" lambda (candidate) (insert "@" candidate) candidate)))) #@232 Insert or jump using helm.el package. Insert the name of selected tag of Evernote with the prefix of `#'. Insert the name of selected notebook of Evernote with the prefix of `@'. Pop to Evernote App and open the selected notebook. (defalias 'epic-helm #[nil "\300\301!\207" [helm (helm-c-source-evernote-tags helm-c-source-evernote-notebooks-in-stack helm-c-source-evernote-notebooks)] 2 (#$ . 18444) nil]) #@173 Import a mail article into the local Evernote app. The mail article must be selected and displayed by typing ``.'' (mew-summary-analyze-again) in the mew-summary buffer. (defalias 'epic-mew-create-note #[(title notebook tags) "\306>\205\"\307 \310 \311 \312\216\313\n \"\210\314\315\316 !d\f %,\207" [major-mode msgnum folder-name #1=#:wconfig title notebook (mew-summary-mode mew-virtual-mode) mew-summary-message-number2 mew-summary-folder-name current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] mew-summary-set-message-buffer epic-create-note-from-region window-start get-buffer-window tags] 6 (#$ . 18858) (list (epic-read-note-title (nth 4 (epic/mew-get-message-info))) (epic-read-notebook) (epic-read-tag-list))]) (defalias 'epic/mew-get-message-info #[nil "\306>\2059\307 \310 \311\211\211\211\312 \313\216\314 \"\210\315 \316\f!d\317\320!*  \n \257.\207" [major-mode subject end begin window folder (mew-summary-mode mew-virtual-mode) mew-summary-message-number2 mew-summary-folder-name nil current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] mew-summary-set-message-buffer get-buffer-window window-start mew-header-get-value "Subject:" msgnum #1#] 6]) (defalias 'epic/mew-get-message-header-as-string #[(folder-name msgnum) "\304 \305\216\306 \n\"\210\307\310 \311#*\207" [#1=#:wconfig folder-name msgnum epic-evernote-mail-headers current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] mew-summary-set-message-buffer mapconcat #[(header) "\302\303 !\211\205\304\305 #)\207" [value header nil mew-header-get-value format "%s %s\n"] 4] ""] 4]) #@54 Foward a mail to Evernote with the original headers. (defalias 'epic-mew-forward-to-evernote #[nil "\306>\2050\307 \310 \311\312\313\n \"\314 \210\315\316\"\210\317 \210 c\210\320c\210eb\210\321\322\312\323#-\207" [major-mode msgnum folder-name mew-forward-string mew-ask-send headers (mew-summary-mode mew-virtual-mode) mew-summary-message-number2 mew-summary-folder-name "" nil epic/mew-get-message-header-as-string mew-summary-forward mew-header-replace-value "To:" mew-header-goto-body " \n" search-forward-regexp "^Subject: " t epic-evernote-mail-address] 4 (#$ . 20549) nil]) (defalias 'epic/as-tell-evernote '(macro . #[(body &rest params) "\302\303\304\305BBB BB\207" [body params format concat "tell application \"Evernote\"\n" ("end tell\n")] 5])) #@100 Return the name list of tags or notebooks in Evernote. OBJ-NAME must be ``tags'' or ``notebooks'' (defalias 'epic/get-name-list #[(obj-name) "\301\302\303\304\"!!\207" [obj-name epic/split-lines do-applescript format "\n tell application \"Evernote\"\n set retval to \"\"\n set aList to %s\n repeat with x in aList\n set retval to (retval & (name of x) & \"\n\")\n end repeat\n end tell\n "] 5 (#$ . 21324)]) #@74 Make AppleScript literals from lisp OBJ (list, string, integer, symbol). (defalias 'epic/as-quote #[(obj) ";\203\301\302\303\304\305#\"\207<\203\306\307\310\311#\312Q\207\313=\203$\314\207\301\315\"\207" [obj format "\"%s\"" replace-regexp-in-string "[\"\\]" "\\\\\\&" "{" mapconcat epic/as-quote ", " "}" t "true" "%s"] 6 (#$ . 21793)]) #@70 Make AppleScript optional OPT-NAME phrase if OPT-VALUE is not blank. (defalias 'epic/as-option #[(opt-name opt-value) "\203;\203\302\230\203\302\207\303\304 \305!#\207" [opt-value opt-name "" format "%s %s" epic/as-quote] 5 (#$ . 22148)]) #@193 Convert PATH from POSIX style to AppleScript style. Example: ~/Library/Containers/com.evernote.Evernote/Data/epic-tmp is converted to Users:nom:Containers:com.evernote.Evernote:Data:epic-tmp. (defalias 'epic/as-expand-file-name #[(path) "\301\302\303\304!#\305\306O\207" [path replace-regexp-in-string "/" ":" expand-file-name 1 nil] 5 (#$ . 22404)]) (defalias 'epic/as-quote-test #[(obj) "\301\302\303\304!\"!\207" [obj do-applescript format "return %s" epic/as-quote] 5]) (defconst epic/as-quote-script "\non escape_string(str)\n set text item delimiters to \"\"\n set escaped to \"\"\n repeat with c in text items of str\n if c is in {quote, \"\\\\\"} then\n set c to \"\\\\\" & c\n end if\n set escaped to escaped & c\n end repeat\nend escape_string\n\non emacs_converter(obj)\n set c to (class of obj)\n if c is in {real, integer, number} then\n return obj\n else if c is in {text, string} then\n return quote & escape_string(obj) & quote\n else if obj = {} then\n return \"()\"\n else if c is in {boolean}\n if obj then\n return \"t\"\n else\n return \"nil\"\n end if\n else if c is in {list} then\n set res to \"(\"\n repeat with e in obj\n set res to (res & emacs_converter(e) & \" \")\n end repeat\n set res to (res & \")\")\n return res\n end if\nend emacs_converter\n") (defalias 'epic/test #[(obj) "\302\303\304\305 !\"P!\207" [epic/as-quote-script obj do-applescript format "emacs_converter(%s)" epic/as-quote] 6]) (defalias 'epic/chomp #[(str &optional LF) "\302GW\203\303\304O \206\305\230\203\302\303O\207\207" [str LF 0 -1 nil "\n"] 3]) (defalias 'epic/split-lines #[(lines &optional LF) "\205\302\230?\205\303\304! \206\305\"\207" [lines LF "" split-string epic/chomp "\n"] 3]) #@72 Completing read for getting along with migemo and anything.el package. (defalias 'epic/completing-read #[(prompt collection hist &optional default) "\305\306 \n\307\310\307 \f&)\207" [anything-use-migemo prompt collection hist default t completing-read nil force] 8 (#$ . 24201)]) (provide 'epic)