diff options
| -rw-r--r-- | Makefile | 1 | ||||
| -rw-r--r-- | rust-mode.el | 42 | ||||
| -rw-r--r-- | rust-playpen.el | 59 |
3 files changed, 60 insertions, 42 deletions
@@ -11,6 +11,7 @@ EMACS_ARGS ?= ELS = rust-mode.el ELS += rust-compile.el +ELS += rust-playpen.el ELS += rust-rustfmt.el ELCS = $(ELS:.el=.elc) diff --git a/rust-mode.el b/rust-mode.el index 37b5cd3..0b1f5d1 100644 --- a/rust-mode.el +++ b/rust-mode.el @@ -16,7 +16,6 @@ ;;; Code: (eval-when-compile (require 'rx)) -(eval-when-compile (require 'url-vars)) (require 'json) (require 'thingatpt) @@ -54,16 +53,6 @@ When nil, `where' will be aligned with `fn' or `trait'." :group 'rust-mode :safe #'booleanp) -(defcustom rust-playpen-url-format "https://play.rust-lang.org/?code=%s" - "Format string to use when submitting code to the playpen." - :type 'string - :group 'rust-mode) - -(defcustom rust-shortener-url-format "https://is.gd/create.php?format=simple&url=%s" - "Format string to use for creating the shortened link of a playpen submission." - :type 'string - :group 'rust-mode) - (defcustom rust-match-angle-brackets t "Whether to enable angle bracket (`<' and `>') matching where appropriate." :type 'boolean @@ -1621,37 +1610,6 @@ This is written mainly to be used as `end-of-defun-function' for Rust." ;;; Secondary Commands -(defun rust-playpen-region (begin end) - "Create a shareable URL for the region from BEGIN to END on the Rust playpen." - (interactive "r") - (let* ((data (buffer-substring begin end)) - (escaped-data (url-hexify-string data)) - (escaped-playpen-url (url-hexify-string - (format rust-playpen-url-format escaped-data)))) - (if (> (length escaped-playpen-url) 5000) - (error "encoded playpen data exceeds 5000 character limit (length %s)" - (length escaped-playpen-url)) - (let ((shortener-url (format rust-shortener-url-format escaped-playpen-url)) - (url-request-method "POST")) - (url-retrieve shortener-url - (lambda (state) - ;; filter out the headers etc. included at the - ;; start of the buffer: the relevant text - ;; (shortened url or error message) is exactly - ;; the last line. - (goto-char (point-max)) - (let ((last-line (thing-at-point 'line t)) - (err (plist-get state :error))) - (kill-buffer) - (if err - (error "failed to shorten playpen url: %s" last-line) - (message "%s" last-line))))))))) - -(defun rust-playpen-buffer () - "Create a shareable URL for the contents of the buffer on the Rust playpen." - (interactive) - (rust-playpen-region (point-min) (point-max))) - (defun rust-promote-module-into-dir () "Promote the module file visited by the current buffer into its own directory. diff --git a/rust-playpen.el b/rust-playpen.el new file mode 100644 index 0000000..1a9e583 --- /dev/null +++ b/rust-playpen.el @@ -0,0 +1,59 @@ +;;; rust-playpen.el --- Support for the Rust Playground -*- lexical-binding:t -*- +;;; Commentary: + +;; This library implements support for the Rust Playground, +;; which is hosted at https://play.rust-lang.org and developed +;; at https://github.com/integer32llc/rust-playground. + +;;; Code: + +(eval-when-compile (require 'url)) + +;;; Options + +(defcustom rust-playpen-url-format "https://play.rust-lang.org/?code=%s" + "Format string to use when submitting code to the playpen." + :type 'string + :group 'rust-mode) + +(defcustom rust-shortener-url-format "https://is.gd/create.php?format=simple&url=%s" + "Format string to use for creating the shortened link of a playpen submission." + :type 'string + :group 'rust-mode) + +;;; Commands + +(defun rust-playpen-region (begin end) + "Create a shareable URL for the region from BEGIN to END on the Rust playpen." + (interactive "r") + (let* ((data (buffer-substring begin end)) + (escaped-data (url-hexify-string data)) + (escaped-playpen-url (url-hexify-string + (format rust-playpen-url-format escaped-data)))) + (if (> (length escaped-playpen-url) 5000) + (error "encoded playpen data exceeds 5000 character limit (length %s)" + (length escaped-playpen-url)) + (let ((shortener-url (format rust-shortener-url-format escaped-playpen-url)) + (url-request-method "POST")) + (url-retrieve shortener-url + (lambda (state) + ;; filter out the headers etc. included at the + ;; start of the buffer: the relevant text + ;; (shortened url or error message) is exactly + ;; the last line. + (goto-char (point-max)) + (let ((last-line (thing-at-point 'line t)) + (err (plist-get state :error))) + (kill-buffer) + (if err + (error "failed to shorten playpen url: %s" last-line) + (message "%s" last-line))))))))) + +(defun rust-playpen-buffer () + "Create a shareable URL for the contents of the buffer on the Rust playpen." + (interactive) + (rust-playpen-region (point-min) (point-max))) + +;;; _ +(provide 'rust-playpen) +;;; rust-playpen.el ends here |