debug symbol added
This commit is contained in:
parent
bb0011bb0e
commit
d974ed8466
|
@ -130,6 +130,7 @@ binding for Kuso IDE dpaste plugin"
|
||||||
(setq title (or (buffer-file-name) (buffer-name)))
|
(setq title (or (buffer-file-name) (buffer-name)))
|
||||||
(setq poster "sameer")
|
(setq poster "sameer")
|
||||||
(setq buf (generate-new-buffer "*Paste*"))
|
(setq buf (generate-new-buffer "*Paste*"))
|
||||||
|
(log buf)
|
||||||
;; 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 +140,9 @@ 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
|
||||||
|
(goto-char (point-min))
|
||||||
;; Also get from dpaste.el that i mentioned above ------------
|
;; Also get from dpaste.el that i mentioned above ------------
|
||||||
(search-forward-regexp "^Location: http://dpaste\.com/[0-9]+/$")
|
(search-forward-regexp "^Location: http://dpaste.com/[0-9]+/")
|
||||||
(message "asddddddddasdasd")
|
|
||||||
(message "Paste created: %s (yanked)" (match-string 1))
|
(message "Paste created: %s (yanked)" (match-string 1))
|
||||||
(kill-new (match-string 1)))
|
(kill-new (match-string 1)))
|
||||||
(kill-buffer but)
|
(kill-buffer but)
|
||||||
|
|
Loading…
Reference in New Issue