commit 76c8e4bfbbc4e002958d6be53a9593ddfe081c10
parent 168632c4cdb3c17e93bd7cef65b181a821c65a76
Author: Cem Keylan <cem@ckyln.com>
Date: Mon, 4 May 2020 11:14:56 +0300
paste functions: fix docstrings
Diffstat:
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/init.org b/init.org
@@ -762,26 +762,26 @@ Here are two paste-thingies that I use. I got the first code from
#+BEGIN_SRC emacs-lisp
;; termbin.el
(defun region-to-termbin (start end)
- "push the marked region to termbin.com via shell command"
+ "Push the marked region (START to END) to termbin.com via shell command."
(interactive "r")
(message "pushing region to termbin.com...")
(shell-command-on-region start end "nc termbin.com 9999"))
(defun buffer-to-termbin ()
- "push the buffer to termbin.com via shell command"
+ "Push the buffer to termbin.com via shell command."
(interactive)
(message "pushing buffer to termbin.com...")
(shell-command-on-region (point-min) (point-max) "nc termbin.com 9999"))
;; pastesrv.el
(defun region-to-srv (start end)
- "push the marked region to server via shell command"
+ "Push the marked region (START to END) to server via shell command."
(interactive "r")
(message "pushing region to server...")
(shell-command-on-region start end (concat "pastesrv " (read-string "Enter file name (optional): "))))
(defun buffer-to-srv ()
- "push the buffer to server via shell command"
+ "Push the buffer to server via shell command."
(interactive)
(message "pushing buffer to server...")
(shell-command-on-region (point-min) (point-max) (concat "pastesrv " (read-string "Enter file name (optional): "))))