FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

dpaste plugin spell bug fixed

This commit is contained in:
Sameer Rahmani 2011-01-04 16:26:06 +03:30
parent 87e5bde2c6
commit bb0011bb0e
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/plugins/dpaste.el
View File

@ -82,7 +82,7 @@ binding for Kuso IDE dpaste plugin"
(defun init-menus () (defun init-menus ()
"Initialize menu entry for dpaste plugin." "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 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 dpastebuf] '("Dpaste Buffer" . dpaste-buffer) 'dpastereg)
(define-key-after global-map [menu-bar edit sep2] '("--") 'dpastebuf) (define-key-after global-map [menu-bar edit sep2] '("--") 'dpastebuf)
@ -129,7 +129,7 @@ binding for Kuso IDE dpaste plugin"
(deactivate-mark) (deactivate-mark)
(setq title (or (buffer-file-name) (buffer-name))) (setq title (or (buffer-file-name) (buffer-name)))
(setq poster "sameer") (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 ;; This line of code gets from the el file that i mentioned above
(setq type (or (cdr (assoc major-mode dpaste-support-types)) "")) (setq type (or (cdr (assoc major-mode dpaste-support-types)) ""))
(shell-command-on-region start end (concat "curl -si" " -F 'content=<-'" (shell-command-on-region start end (concat "curl -si" " -F 'content=<-'"
@ -139,9 +139,13 @@ binding for Kuso IDE dpaste plugin"
" -F 'poster=" poster "'" " -F 'poster=" poster "'"
" http://dpaste.com/api/v1/") buf) " http://dpaste.com/api/v1/") buf)
(with-current-buffer 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) (run-hooks 'kuso-dpaste-preinit-hook)
(init-keymap) (init-keymap)
(init-menus) (init-menus)
(put 'dpaste-region 'menu-enable nil)
(force-mode-line-update)
;; after mode was initialized ;; after mode was initialized
(run-hooks 'kuso-dpaste-postinit-hook) (run-hooks 'kuso-dpaste-postinit-hook)
) )