;ELC���
;;; Compiled
;;; in Emacs version 24.5.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require url htmlize] 2)
(defvar scpaste-scp-port "22")
#@59 Publicly-accessible (via HTTP) location for pasted files.
(defvar scpaste-http-destination "http://p.hagelb.org" (#$ . 506))
#@127 SSH-accessible directory corresponding to `scpaste-http-destination'.
You must have write-access to this directory via `scp'.
(defvar scpaste-scp-destination "p.hagelb.org:p.hagelb.org" (#$ . 638))
#@91 Identity file for the server, corresponds to ssh’s `-i` option
Example: "~/.ssh/id.pub"
(defvar scpaste-scp-pubkey nil (#$ . 842))
#@33 Name displayed under the paste.
(defvar scpaste-user-name nil (#$ . 981))
#@51 Link to the user’s homebase (can be a mailto:).
(defvar scpaste-user-address nil (#$ . 1061))
(defvar scpaste-el-location load-file-name)
#@51 HTML message to place at the bottom of each file.
(defalias 'scpaste-footer #[nil "\304\206�    \305\nR\210\203�\306\307\n\310\260\202�\n)\311\312 \211A@\262
\313\260\207" [scpaste-user-name user-full-name user scpaste-user-address "<p style='font-size: 8pt; font-family: monospace;'>Generated by " "DEBUG" "<a href='" "'>" "</a>" " using <a href='http://p.hagelb.org'>scpaste</a> at %s. " current-time-zone ". (<a href='%s'>original</a>)</p>"] 6 (#$ . 1207)])
#@67 Paste the current buffer via `scp' to `scpaste-http-destination'.
(defalias 'scpaste #[(original-name) "\306 \307        \310\232\203�\311 \202�       !\312\307\n!\313R
\312\n\313R'
\312\nQ()\nP*\212\314!\210eb\210\315\316!\210\317\320 \321 \f\322\323O#c\210\324*!\210\325!\210)+\203[�\326+P\202\\�\310,\327-P.\330,\331.R\211/\331*\331'\2600\317\3320\"\33312\334\2162\203\223�\335 1\336\3372\"\210\3403\3410\3333#4\34254\322U\203\264�\343\f!\210\336\344\f\"\202\273�\3453!\210\346 .\207" [b original-name name scpaste-http-destination full-url scpaste-scp-destination htmlize-buffer url-hexify-string "" buffer-name "/" ".html" switch-to-buffer search-forward "</body>\n</html>" format scpaste-footer current-time-string 0 -5 write-file kill-buffer "-i " "-P " "scp -q " " " "Executing %s" nil ((byte-code "\203�  \203�\302\303  \"\210\202�\302\304!\210\304\207" [#1=#:with-temp-message #2=#:current-message message #3="%s" nil] 3)) current-message message #3# "*scp-error*" shell-command t kill-new "Pasted to %s (on kill ring)" pop-to-buffer help-mode-setup scp-destination scp-original-destination temporary-file-directory tmp-file scpaste-scp-pubkey identity scpaste-scp-port port invocation command-1 #2# #1# error-buffer retval x-select-enable-primary] 7 (#$ . 1682) "MName (defaults to buffer name): "])
#@41 Paste the current region via `scpaste'.
(defalias 'scpaste-region #[(name) "\303 `{\304\305!r q\210\306\216c\210\307\n!,\207" [region-contents #1=#:temp-buffer name mark generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) scpaste] 2 (#$ . 3027) "MName: "])

;;; Pasted Files

;; * <https://jmatt.org/scp/anchors_aweigh_gpt.html>
;; * <https://jmatt.org/scp/Art-Gillespie-FriendDA.html>
;; * <https://jmatt.org/scp/dotemacs.html>
;; * <https://jmatt.org/scp/EshDriver.html>
;; * <https://jmatt.org/scp/euca_list_sizes_nightmare.py.html>
;; * <https://jmatt.org/scp/FabricSSHClient.py.html>
;; * <https://jmatt.org/scp/Freedom.html>
;; * <https://jmatt.org/scp/homenetwork.html>
;; * <https://jmatt.org/scp/index.html>
;; * <https://jmatt.org/scp/init.el.html>
;; * <https://jmatt.org/scp/libcloud_list_sizes.py.html>
;; * <https://jmatt.org/scp/may252015.org.html>
;; * <https://jmatt.org/scp/ratllindex.html>
;; * <https://jmatt.org/scp/ratll.less.html>
;; * <https://jmatt.org/scp/scpaste.el.html>
;; * <https://jmatt.org/scp/snowflake-client.py.html>
;; * <https://jmatt.org/scp/trie.clj.html>
;; * <https://jmatt.org/scp/uservolumes.html>
;; * <https://jmatt.org/scp/views.clj.html>
#@72 Generate an index of all existing pastes on server on the splash page.
(defalias 'scpaste-index #[nil "\306\307\"\310\311    @\312   \211A@\262
R!\306\n\313\"\212\314\315!r\fq\210\316\216\317
!\210eb\210\320\321!\210\322y\210\323c\210\324#\211$\203g�$@#\325\326#\"\203^�\325\327#\"\204^�\330%\331#\332\260c\210$A\211$\204>�*\333 \210\334 \210\335\336!\210\337\340!\210\341\342!.\207" [scpaste-scp-destination dest-parts files file-list #1=#:temp-buffer scpaste-el-location split-string ":" shell-command-to-string "ssh " " ls " "\n" generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents search-forward ";;; Commentary" -1 "\n;;; Pasted Files\n\n" nil string-match "\\.html$" "private" ";; * <" "/" ">\n" emacs-lisp-mode font-lock-fontify-buffer rename-buffer "SCPaste" write-file "/tmp/scpaste-index" scpaste "index" file --dolist-tail-- scpaste-http-destination] 7 (#$ . 3351) nil])
(provide 'scpaste)

Generated by jmatt using scpaste at Sun May 31 18:57:45 2015. MST. (original)