Hpaste.el

From HaskellWiki
Revision as of 23:54, 18 September 2010 by Andrewsw (talk | contribs) (fix a couple small bugs)
Jump to: navigation, search

hpaste.el is an Emacs Lisp library that integrates hpaste into Emacs. It provides three functions: hpaste-paste-region and hpaste-paste-buffer send the region or buffer to the hpaste server as required, and hpaste-get-paste fetches a paste from the server and puts it in a new buffer. It allows annotation of existing pastes, controls the announcement on #haskell, and tries to be smart about keeping track of the last paste to ease annotation. Most things are customisable: do M-x customize and browse to the Hpaste group to see what you can change. Code is available under the GPL license. (see the talk page for a makefile allowing you to keep up-to-date on this programatically). Enjoy!

Update 16 Sep 10: version 1.1 -- update to operate with new hpaste site. Changes to hpaste-get-paste, hpaste-paste-region and hpaste-after-paste.
Update 13 Mar 08: display URL of paste in minibuffer, and add it to kill ring. Add hpaste-get-paste.
Update 13 Dec 07: fixed problems with "Wrong type argument: stringp, nil" appearing after pasting.

<pre-lisp>

hpaste.el -- Integration with hpaste
http://hpaste.org.
Authors
David House <dmhouse@gmail.com>,
Andrew Sackville-West <andrew@swclan.homelinux.org>,
and others.
Version 1.1 -- 16 Sep, 2010
fix hpaste-get-paste and hpaste-paste-region to handle new hpaste.org
Created
14th April 2007
Version
1.0
License
GPL


(require 'url)

(defgroup hpaste nil "Integration with the hpaste pastebin") (defcustom hpaste-server "http://hpaste.org"

 "Base URL for the hpaste server."
 :type '(string)
 :group 'hpaste)

(defcustom hpaste-default-nick nil

 "What to tell the server your nick is. If NIL, then prompt every time."
 :type '(choice (string) (const :tag "Ask every time" nil))
 :group 'hpaste)

(defcustom hpaste-blank-title nil

 "If non-NIL, don't send a title to the server."
 :type '(boolean)
 :group 'hpaste)

(defcustom hpaste-announce 'ask

 "Whether to announce the paste in the #haskell channel on

Freenode. If ALWAYS, then announce every time. If ASK, then prompt every time. If NEVER, then never announce."

 :type '(choice (const :tag "Always announce" always)
                (const :tag "Ask each time" ask) 
                (const :tag "Never announce" never))
 :group 'hpaste)

(defcustom hpaste-channel 0

 "The channel to use for making announcements. Specifying 0, No

Channel, has the effect of having your post not announced ever, regardless of the setting of `hpaste-announce'. There is currently no prompting for which channel to announce to, so beware."

 :type '(choice (const :tag "No channel" 0)

(const :tag "#haskell" 1) (const :tag "#xmonad" 2))

 :group 'hpaste)

(defvar hpaste-last-paste-id nil

 "Numerical ID of the last paste.")

(defun hpaste-after-paste (&optional redirect)

 "Callback that runs after a paste is made. Messages the user

and tell them that everything went smoothly, and save the paste ID for use as a default ID for annotations."

 (if redirect
     (progn

(message "Paste successful: %s" (cadr redirect)) (kill-new (format (cadr redirect))) (if (eq (car redirect) ':redirect) (progn (setq url (cadr redirect))

(string-match "/\\([0-9]*\\)\\(#.*\\)?$" url) ;; original regex

(string-match ".*/\\([0-9]*\\)/.*$" url) ;; a hack of a regex (let ((id (match-string 1 url))) (if id (setq hpaste-last-paste-id id))))))

   (message "%s" "No result from server.")))

(defun hpaste-prompt-for-annotate ()

 "Ask the user whether they want to send the paste as an

annotation, and if so, the ID of the paste to annotate (defaulting to the last paste made through this interface)."

 (if (y-or-n-p "Send as annotation? ")
     (let* ((prompt
             (if hpaste-last-paste-id
                 (format "Paste to annotate (default %s): "
                         hpaste-last-paste-id)
               "Paste to annotate: "))
            (input (read-from-minibuffer prompt)))
       (if (> (length input) 0) input hpaste-last-paste-id))))


(defun hpaste-paste-region (beg end)

 "Send the region to the hpaste server specified in

`hpaste-server'. Use the nick in `hpaste-default-nick', or prompt for one if that is NIL. You can still appear as (anonymous) by just not filling out a nick when prompted (just hit RET). Prompt for a title, unless `hpaste-blank-title' is non-NIL, in which case just send a blank title. Pastes will be announced on Freenode in the channel as specified in `hpaste-channel', per the value of `hpaste-announce'. See the docstring of those variables for more information.

This function does not currently implement the selection of source code language as is available on hpaste.

For more information on hpaste, see http://hpaste.org"

 (interactive "r")
 (let* ((nick (or hpaste-default-nick (read-from-minibuffer "Nick: ")))
        (title (if hpaste-blank-title "" (read-from-minibuffer "Title: ")))
        (annot-id (hpaste-prompt-for-annotate))
        (announce (or (eq hpaste-announce 'always)

(and (eq hpaste-announce 'ask) (y-or-n-p "Announce paste? "))))

        (url (concat hpaste-server "/control"))
        (url-request-method "POST")
        (url-request-extra-headers
         '(("Content-Type" . "application/x-www-form-urlencoded")))
        (url-mime-accept-string "*/*")
        (url-request-data (concat 

(if annot-id (format "annotation_of=%s&" annot-id) "") (format "fval[1]=%s&fval[2]=%s&fval[3]=0&fval[4]=%d&fval[5]=%s&email=&submit=true\r\n" (url-hexify-string title) (url-hexify-string nick) (if announce hpaste-channel 0) (url-hexify-string (buffer-substring-no-properties beg end))))))

   (url-retrieve url 'hpaste-after-paste)))
new hpaste.org form fields
fval[1] = Title
, String
fval[2] = Author
, String
fval[3]*= Language, Int 0=no language, 1=C, 2=Haskell, 3=JavaScrip, 4=OCaml, 5=Perl, 6=Python
fval[4] = Channel
Int 0=no channel, 1=#haskell 2=#xmonad
fval[5] = Paste; String
* already out of date!


(defun hpaste-get-paste (id)

 "Fetch the contents of the paste from hpaste into a new buffer."
 (interactive "nPaste #: ")
 (let ((url-request-method "GET")
       (url-request-extra-headers nil)
       (url-mime-accept-string "*/*")
       (url (url-generic-parse-url

(format "http://hpaste.org/raw/%s" id))))

   (setq hpaste-buffer (url-retrieve-synchronously url))
  (setq hpaste-last-paste-id id)
    (with-current-buffer hpaste-buffer
      (progn
        (set-visited-file-name (format "hpaste #%s" id))

(goto-char (point-min))

        (search-forward-regexp "\n\n")
        (delete-region (point-min) (point))
        (set-buffer-modified-p nil)
        (switch-to-buffer hpaste-buffer)
        (if haskell-version
            (haskell-mode)
          (normal-mode))))))

(defun hpaste-paste-buffer ()

 "Like `hpaste-paste-region', but paste the entire buffer instead."
 (interactive)
 (hpaste-paste-region (point-min) (point-max)))

(provide 'hpaste) </pre-lisp>