From 067d108cfe0c4aab0b5340786703f31e27504186 Mon Sep 17 00:00:00 2001 From: Sameer Rahmani Date: Mon, 3 Jan 2011 15:45:01 +0330 Subject: [PATCH] dpaste plugin text selection done. --- src/plugins/dpaste.el | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/src/plugins/dpaste.el b/src/plugins/dpaste.el index 3c71015..3b15156 100644 --- a/src/plugins/dpaste.el +++ b/src/plugins/dpaste.el @@ -79,6 +79,31 @@ binding for Kuso IDE dpaste plugin" (global-unset-key [menu-bar edit dpastebuf]) ) +(defun get-region-text () + "Retrive the region (selected) text." + (let (text start end tmp) + (setq start (region-beginning)) + (setq end (region-end)) + (if (> start end) + (progn + (setq tmp start) + (setq start end) + (setq end tmp) + ) + ) + (setq text (buffer-substring-no-properties start end)) + ) +) + +(defun dpaste-region () + "dpaste the region and return the URL." + (interactive) + (let (text) + (setq text (get-region-text)) + (deactivate-mark) + (message "<<<<<<< %s" text) + ) + ) ;; ---------------------------------------------------------------------- ;; Minor Modes ;; ----------------------------------------------------------------------