;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313& \210\314\315\316\317\310\303\320\321&\210\314\322\323\324\310\303\320\325&\210\314\326\327\330\310\303\320\325&\210\314\331\327\332\310\303\320\325&\210\314\333\334\335\310\303\320\325&\210\314\336\327\337\310\303\320\325&\210\314\340\304\341\310\342\320\321&\210\343\344\345\346\347\350\351\352\353&\207" [require ox-html custom-declare-group org-export-jekyll nil "Options for exporting Org mode files to jekyll HTML." :tag "Org Jekyll" :group org-export :version "24.2" custom-declare-variable org-jekyll-include-yaml-front-matter t "If true, then include yaml-front-matter when exporting to html.\n\nIf false, then you should include the yaml front matter like this at the top of the file:\n\n#+BEGIN_EXPORT HTML\n---\nlayout: post\ntitle: \"Upgrading Octopress\"\ndate: 2013-09-15 22:08\ncomments: true\ncategories: [octopress, rubymine]\ntags: tech news\nkeywords: Octopress\ndescription: Instructions on Upgrading Octopress\n---\n#+END_EXPORT HTML" :type boolean org-jekyll-layout "post" "Default layout used in Jekyll article." string org-jekyll-categories "" "Default space-separated categories in Jekyll article." org-jekyll-tags "Default space-separated tags in Jekyll article." org-jekyll-published "true" "Default publish status in Jekyll article." org-jekyll-comments "Default comments (disqus) flag in Jekyll article." org-jekyll-use-src-plugin "If t, org-jekyll exporter eagerly uses plugins instead of\norg-mode's original HTML stuff. For example:\n\n #+BEGIN_SRC ruby\n puts \"Hello world\"\n #+END_SRC\n\nmakes:\n\n {% codeblock ruby %}\n puts \"Hello world\"\n {% endcodeblock %}" org-export-jekyll-use-src-plugin org-export-define-derived-backend jekyll html :menu-entry (106 "Jekyll: export to HTML with YAML front matter." ((72 "As HTML buffer" org-jekyll-export-as-html) (104 "As HTML file" org-jekyll-export-to-html))) :translate-alist ((template . org-jekyll-template) (src-block . org-jekyll-src-block) (inner-template . org-jekyll-inner-template)) :options-alist ((:jekyll-layout "JEKYLL_LAYOUT" nil org-jekyll-layout) (:jekyll-categories "JEKYLL_CATEGORIES" nil org-jekyll-categories) (:jekyll-tags "JEKYLL_TAGS" nil org-jekyll-tags) (:jekyll-published "JEKYLL_PUBLISHED" nil org-jekyll-published) (:jekyll-comments "JEKYLL_COMMENTS" nil org-jekyll-comments))] 10) #@233 Transcode SRC-BLOCK element into jekyll code template format if `org-jekyll-use-src-plugin` is t. Otherwise, perform as `org-html-src-block`. CONTENTS holds the contents of the item. INFO is a plist used as a communication channel. (defalias 'org-jekyll-src-block #[(src-block contents info) "\203A\306 \211;\203\307\310#\266\202\202\311A@\"\266\202\312\313 \211;\203/\307\310#\266\202\2027\311A@\"\266\202!\314\315 \n#*\207\316\317 \f $\207" [org-jekyll-use-src-plugin src-block value language contents info :language get-text-property 0 plist-get org-remove-indentation :value format "{%% codeblock lang:%s %%}\n%s{%% endcodeblock %%}" org-export-with-backend html] 8 (#$ . 2468)]) #@140 Return complete document string after HTML conversion. CONTENTS is the transcoded contents string. INFO is a plist holding export options. (defalias 'org-jekyll-template #[(contents info) "\203\n\303 !\nP\207\n\207" [org-jekyll-include-yaml-front-matter info contents org-jekyll--yaml-front-matter] 2 (#$ . 3177)]) #@140 Return body of document string after HTML conversion. CONTENTS is the transcoded contents string. INFO is a plist holding export options. (defalias 'org-jekyll-inner-template #[(contents info) "\303\304\"\211\205 \305 \")\303\306\"\307\232?\205\310\n\311!R\207" [info depth contents plist-get :with-toc org-html-toc :jekyll-published "true" "PREVIEW" org-html-footnote-section] 6 (#$ . 3501)]) (defalias 'org-jekyll--get-option #[(info property-name &optional default) "\304\305 \"\"\306\307\n\206 \206\310\")\207" [info property-name property default org-export-data plist-get format "%s" ""] 4]) (defalias 'org-jekyll--yaml-front-matter #[(info) "\306\307\"\306\310\"\306\311 #\306\312\n#\306\313 #\306\314\f#\306\315\"\316\317\232\204=\320P\321\322\323\324 !\325 !\326\327\330\260.\207" [info org-jekyll-layout org-jekyll-categories org-jekyll-tags org-jekyll-published convert-to-yaml-list org-jekyll--get-option :title :date :jekyll-layout :jekyll-categories :jekyll-tags :jekyll-published :jekyll-comments #[(arg) "\301\302\303!\304#\207" [arg mapconcat #[(text) "\301P\207" [text "\n- "] 2] split-string " "] 4] "true" "[PREVIEW] " "---\ntitle: \"" "\"\ndate: " "\nlayout: " "\ncategories: " "\ntags: " "\npublished: " "\ncomments: " "\n---\n" comments published tags categories layout date title] 15]) (defalias 'org-jekyll-date-from-filename #[(&optional filename) "\302\206\303 !\304\305 \"\205\306\307 \")\207" [filename fn file-name-nondirectory buffer-file-name string-match "^[0-9]+-[0-9]+-[0-9]+" match-string 0] 3]) (defalias 'org-jekyll-property-list #[(&optional filename) "\305\306\n\203)\307\310\311\"r q\210\312\216\313\n!\210\314 \210\315 !\316\317\n#\211+\202=\320 !\f>\2048\321\322\323 D\"\210 \324H\211*\207" [plist backend filename #1=#:temp-buffer cl-struct-org-export-backend-tags jekyll nil generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents org-mode org-export-get-environment plist-put :input-file type-of signal wrong-type-argument org-export-backend 4] 5]) (defalias 'org-jekyll-property #[(keys &optional filename) "\303!\304\305\n\")\207" [filename plist keys org-jekyll-property-list mapcar #[(key) "\303 \"\211<\203\n@\202\n\211;\205\304\n!)\207" [plist key value plist-get substring-no-properties] 4]] 3]) (defalias 'org-jekyll-date-from-property #[(&optional filename) "\302!\303\304\211\305\306 \307\"\310 ##)\207" [filename plist org-jekyll-property org-read-date nil org-export-data-with-backend plist-get :date jekyll] 7]) (defalias 'org-jekyll-create-filename #[nil "\303 \304\305 !\306\305 !\307\310\311\n #\"+\207" [dir file date org-jekyll-date-from-property file-name-nondirectory buffer-file-name file-name-directory expand-file-name replace-regexp-in-string "^[0-9]+-[0-9]+-[0-9]+"] 5]) #@71 Export current buffer to a HTML buffer adding some YAML front matter. (defalias 'org-jekyll-export-as-html #[(&optional async subtreep visible-only body-only ext-plist) "\203\312\306\307\310\216\n\203\311 \312\313\n\"\210\314p!\315\316! @ \317\320\321\"AB\322\216rAq\210\323\324\f\325\326\327\330\331@D\332\333\334\335\336CDE\337FD\257DD\257#c\210)rAq\210\340\307\211B\307\341%\210,\307G\342\343!H\344\345\346\316H\347IJ\"\350FK\203\207\351\352KE\202\213\352LD\352 D#\"M\353\354H!\307M#\210\355N\356M\357\360\361\362\363\364\365\366\367\365\361\370\331N\371BBE\372BB\373BBB\374\375\376 DEEEEE\".\n\207\377\201Q\201R\307CDEF&OrOq\210\201S\321!\210)P\205\365\201TO!)\207" [async #1=#:current-message #2=#:with-temp-message buffer-file-coding-system #3=#:--coding #4=#:--temp-file "Initializing asynchronous export process" nil #[nil "\205 \203 \302\303 \"\207\302\304!\207" [#2# #1# message #5="%s" nil] 3] current-message message #5# org-export--generate-copy-script make-temp-file "org-export-process" generate-new-buffer " *temp file*" t #[nil "\301!\205 \302!\207" [#6=#:temp-buffer buffer-name kill-buffer] 2] format ";; -*- coding: %s; -*-\n%S" with-temp-buffer (when org-export-async-debug '(setq debug-on-error t)) (setq kill-emacs-hook nil org-babel-confirm-evaluate-answer-no t) (require 'ox) funcall (restore-buffer-modified-p nil) print progn org-export-as 'jekyll quote write-region 0 generate-new-buffer-name "*Org Export Process*" apply start-process append expand-file-name "--batch" "-Q" "-l" org-export-add-to-stack get-buffer #[(output) "r\302\303!q\210\304 \210c\210eb\210 \210\305p\306\")\207" [output org-html-display-buffer-mode get-buffer-create "*Org Jekyll HTML Export*" erase-buffer org-export-add-to-stack jekyll] 3] set-process-sentinel lambda (p status) let ((proc-buffer (process-buffer p))) when (eq (process-status p) 'exit) unwind-protect if (zerop (process-exit-status p)) ((results (with-current-buffer proc-buffer (goto-char (point-max)) (backward-sexp) (read (current-buffer))))) (results) ((unless org-export-async-debug (and (get-buffer proc-buffer) (kill-buffer proc-buffer)))) ((org-export-add-to-stack proc-buffer nil p) (ding) (message "Process `%s' exited abnormally" p)) unless org-export-async-debug delete-file org-export-to-buffer #7=#:--copy-fun #6# #8=#:temp-file subtreep visible-only body-only ext-plist process-connection-type #9=#:--proc-buffer invocation-name invocation-directory org-export-async-init-file user-init-file #10=#:--process handler outbuf org-export-show-temporary-export-buffer jekyll "*Org Jekyll HTML Export*" set-auto-mode switch-to-buffer-other-window] 18 (#$ . 6446) nil]) #@69 Export current buffer to a HTML file adding some YAML front matter. (defalias 'org-jekyll-export-to-html #[(&optional async subtreep visible-only body-only ext-plist) "\306P\307 \n\"\f@\203\354\310\311AB\312\216B\203'\313 A\314\315B\"\210\316p!\317\320!CDEFE\321\322\323\"GH\324\216rGq\210\325\326D\327\330\331\332\333FD\334\335\336\f\337\340\341 \311\nIJ\342KD\257)DDD\257#c\210)rGq\210\343\311\211H\311\344%\210,\311L\345\346!M\347\350\351\320M\337NO\"\352FP\203\243\353\354PE\202\247\354QD\354ED#\"R\355\356M!\311R#\210\357S\360R\361\362\363\364\365\366\367\370\371\367\363\372\333S\373BBE\374BB\375BBB\376\377\201TEDEEEEE\".\n\202\376\f\340\201U \311\nIJK&)+\207" [org-html-extension extension subtreep file org-html-coding-system org-export-coding-system "." org-export-output-file-name "Initializing asynchronous export process" nil #[nil "\205 \203 \302\303 \"\207\302\304!\207" [#1=#:with-temp-message #2=#:current-message message #3="%s" nil] 3] current-message message #3# org-export--generate-copy-script make-temp-file "org-export-process" generate-new-buffer " *temp file*" t #[nil "\301!\205 \302!\207" [#4=#:temp-buffer buffer-name kill-buffer] 2] format ";; -*- coding: %s; -*-\n%S" with-temp-buffer (when org-export-async-debug '(setq debug-on-error t)) (setq kill-emacs-hook nil org-babel-confirm-evaluate-answer-no t) (require 'ox) funcall (restore-buffer-modified-p nil) print progn expand-file-name org-export-to-file 'jekyll quote write-region 0 generate-new-buffer-name "*Org Export Process*" apply start-process append "--batch" "-Q" "-l" org-export-add-to-stack get-buffer #[(f) "\301\302\"\207" [f org-export-add-to-stack jekyll] 3] set-process-sentinel lambda (p status) let ((proc-buffer (process-buffer p))) when (eq (process-status p) 'exit) unwind-protect if (zerop (process-exit-status p)) ((results (with-current-buffer proc-buffer (goto-char (point-max)) (backward-sexp) (read (current-buffer))))) (results) ((unless org-export-async-debug (and (get-buffer proc-buffer) (kill-buffer proc-buffer)))) ((org-export-add-to-stack proc-buffer nil p) (ding) (message "Process `%s' exited abnormally" p)) unless org-export-async-debug async #2# #1# buffer-file-coding-system #5=#:--coding #6=#:--temp-file #7=#:--copy-fun #4# #8=#:temp-file visible-only body-only ext-plist process-connection-type #9=#:--proc-buffer invocation-name invocation-directory org-export-async-init-file user-init-file #10=#:--process handler delete-file jekyll] 21 (#$ . 9161) nil]) #@227 Publish an org file to HTML with YAML front matter. FILENAME is the filename of the Org file to be published. PLIST is the property list for the given project. PUB-DIR is the publishing directory. Return output file name. (defalias 'org-jekyll-publish-to-html #[(plist filename pub-dir) "\303\304\305 \n%\207" [filename plist pub-dir org-publish-org-to jekyll ".html"] 6 (#$ . 11719)]) #@49 Insert a settings template for Jekyll exporter. (defalias 'org-jekyll-insert-export-options-template #[(&optional title date setupfile categories tags published layout) "\206 \n\206\n \f\206 \206\212\306\307\310\311\312\313\314\f\315\n\316\260!c-\207" [layout org-jekyll-layout published org-jekyll-published tags org-jekyll-tags format "#+TITLE: " "\n#+DATE: " "\n#+SETUPFILE: " "\n#+JEKYLL_LAYOUT: " "\n#+JEKYLL_CATEGORIES: " "\n#+JEKYLL_TAGS: " "\n#+JEKYLL_PUBLISHED: " "\n\n* \n\n{{{more}}}" categories org-jekyll-categories title date setupfile] 16 (#$ . 12116) nil]) (provide 'ox-jekyll)