From bb0011bb0e52851887e3b44c791863e30d93d625 Mon Sep 17 00:00:00 2001 From: Sameer Rahmani Date: Tue, 4 Jan 2011 16:26:06 +0330 Subject: [PATCH] dpaste plugin spell bug fixed --- src/plugins/dpaste.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/src/plugins/dpaste.el b/src/plugins/dpaste.el index 6b3c303..9e53754 100644 --- a/src/plugins/dpaste.el +++ b/src/plugins/dpaste.el @@ -82,7 +82,7 @@ binding for Kuso IDE dpaste plugin" (defun init-menus () "Initialize menu entry for dpaste plugin." (define-key-after global-map [menu-bar edit sep1] '("--") 'paste-from-menu) - (define-key-after global-map [menu-bar edit dpastereg] '("Dpaste Selected" . dpaste-region) 'sep1) + (define-key-after global-map [menu-bar edit dpastereg] '("Dpaste Selected" . dpaste-region) 'sep1) (define-key-after global-map [menu-bar edit dpastebuf] '("Dpaste Buffer" . dpaste-buffer) 'dpastereg) (define-key-after global-map [menu-bar edit sep2] '("--") 'dpastebuf) @@ -129,7 +129,7 @@ binding for Kuso IDE dpaste plugin" (deactivate-mark) (setq title (or (buffer-file-name) (buffer-name))) (setq poster "sameer") - (setq but (generate-new-buffer "*Paste*")) + (setq buf (generate-new-buffer "*Paste*")) ;; This line of code gets from the el file that i mentioned above (setq type (or (cdr (assoc major-mode dpaste-support-types)) "")) (shell-command-on-region start end (concat "curl -si" " -F 'content=<-'" @@ -139,9 +139,13 @@ binding for Kuso IDE dpaste plugin" " -F 'poster=" poster "'" " http://dpaste.com/api/v1/") buf) (with-current-buffer buf - (message "<><><> %s " buffer-string) - ) - + ;; Also get from dpaste.el that i mentioned above ------------ + (search-forward-regexp "^Location: http://dpaste\.com/[0-9]+/$") + (message "asddddddddasdasd") + (message "Paste created: %s (yanked)" (match-string 1)) + (kill-new (match-string 1))) + (kill-buffer but) + ;; ---------------------------- ) ) ;; ---------------------------------------------------------------------- @@ -167,6 +171,8 @@ the current buffer." (run-hooks 'kuso-dpaste-preinit-hook) (init-keymap) (init-menus) + (put 'dpaste-region 'menu-enable nil) + (force-mode-line-update) ;; after mode was initialized (run-hooks 'kuso-dpaste-postinit-hook) )