From 4be1a20fa252c43880b94d1a92cee00e822f1aa6 Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 11 Aug 2024 19:52:19 -0700 Subject: initial commit --- README.org | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 README.org (limited to 'README.org') diff --git a/README.org b/README.org new file mode 100644 index 0000000..afadb0a --- /dev/null +++ b/README.org @@ -0,0 +1,49 @@ + +** Build and Run + +There is a =build.lisp= file in this repo, build an executable like so: + + +#+begin_src shell + +sbcl --load build.lisp + +#+end_src + +Run the pastiche executable like so: + +#+begin_src shell + +./pastiche /path/to/pastiche.conf + +#+end_src + +There is an example of what =pastiche.conf= looks like in this directory. + + +** Using With Emacs + +First, this uses ~http-post-simple.el~, a copy of which can be found in the ~emacs/~ subdirectory. + +Make sure that is loaded, then: + +#+begin_src elisp + +(defvar pastiche-paste-url "the real url here") + +(defun pastiche-paste-current-buffer () + (interactive) + (let* ((content + (buffer-string)) + (title + (buffer-name)) + (result + (http-post-simple + pastiche-paste-url + (list (cons 'title title) + (cons 'content content))))) + (let ((url (first result))) + (kill-new url) + (message url)))) + +#+end_src -- cgit v1.2.3