From: Eduardo Ochs <eduardoochs@gmail.com>
To: Tomas Hlavaty <tom@logand.com>
Cc: help-gnu-emacs <help-gnu-emacs@gnu.org>,
Leo Butler <leo.butler@umanitoba.ca>
Subject: Re: Screenshots, frame shots straight from Emacs
Date: Sat, 31 Jul 2021 23:59:19 -0300 [thread overview]
Message-ID: <CADs++6jZ7-Wa5K6_SEvF86mAwUFOsm-Se0YcOD2SZLbmqaS=pQ@mail.gmail.com> (raw)
In-Reply-To: <87wnp62hhe.fsf@logand.com>
By the way, here is what I use to take screenshots...
This is a "5-minute hack" built on top of eev, following the style
that I explained here:
http://angg.twu.net/emacsconf2020.html
http://angg.twu.net/.emacs.videos.html#eev2020
Here is its only defun (and a defalias):
;; Skel: (find-find-links-links-new "sshot" "nsecs" "")
;; Test: (find-sshot-links)
;;
(defun find-sshot-links (&optional nsecs &rest pos-spec-list)
"Visit a temporary buffer containing hyperlinks taking a screenshot."
(interactive)
(setq nsecs (or nsecs "5"))
(setq nsecs (or nsecs "{nsecs}"))
(apply
'find-elinks
`((find-sshot-links ,nsecs ,@pos-spec-list)
(find-sshot-links "{nsecs}")
;; Convention: the first sexp always regenerates the buffer.
(find-efunction 'find-sshot-links)
""
,(ee-template0 "\
\(eev \"sleep {nsecs} && scrot
--select /tmp/sshot.png\")
\(find-bgprocess '(\"sh\" \"-c\" \"sleep {nsecs} && scrot
--select /tmp/sshot.png\"))
\(find-bgprocess '(\"sh\" \"-c\" \"sleep {nsecs} && scrot --border
--select /tmp/sshot.png\"))
\(find-bgprocess \"xzgv /tmp/sshot.png\")
\(find-bgprocess \"gimp /tmp/sshot.png\")
\(find-fline \"/tmp/\" \"sshot.png\")
\(find-fline \"/tmp/sshot.png\")
\(imgbb-upload \"/tmp/sshot.png\")
")
)
pos-spec-list))
(defalias 'sshot 'find-sshot-links)
To take a screenshot I type M-x sshot, and I then get a temporary
buffer containing this:
# (find-sshot-links "5")
# (find-sshot-links "{nsecs}")
# (find-efunction 'find-sshot-links)
(eev "sleep 5 && scrot --select
/tmp/sshot.png")
(find-bgprocess '("sh" "-c" "sleep 5 && scrot --select
/tmp/sshot.png"))
(find-bgprocess '("sh" "-c" "sleep 5 && scrot --border --select
/tmp/sshot.png"))
(find-bgprocess "xzgv /tmp/sshot.png")
(find-bgprocess "gimp /tmp/sshot.png")
(find-fline "/tmp/" "sshot.png")
(find-fline "/tmp/sshot.png")
(xz "/tmp/sshot.png")
(imgbb-upload "/tmp/sshot.png")
The `find-bgprocess'es run scrot after a delay of 5 seconds... so I
have 5 seconds after executing the `find-bgprocess' to put the right
window (emacs-y or not) in the foreground, and then click on it in the
way that scrot or scrot --border expects.
I need to adapt that to include lines that run the other programs that
were suggested in this thread, but I was too busy in these last
weeks... =(
Cheers,
Eduardo Ochs
http://angg.twu.net/#eev
next prev parent reply other threads:[~2021-08-01 2:59 UTC|newest]
Thread overview: 62+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-06-19 13:57 The convenient method to check/inspect/retrieve the definition/usage of any commands/symbols/operators used in elisp code Hongyi Zhao
2021-06-19 14:48 ` Omar Polo
2021-06-19 15:40 ` Hongyi Zhao
2021-06-19 15:57 ` Omar Polo
2021-06-19 17:09 ` Hongyi Zhao
2021-06-23 7:48 ` Omar Polo
2021-06-23 8:56 ` Hongyi Zhao
2021-06-23 9:17 ` Hongyi Zhao
2021-06-23 9:31 ` Screenshots, frame shots straight from Emacs Jean Louis
2021-06-25 22:04 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-06-25 22:34 ` Jean Louis
2021-06-25 23:55 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-06-28 6:47 ` Jean Louis
2021-07-01 21:01 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-07-02 12:50 ` Jean Louis
2021-07-02 15:34 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-07-20 11:36 ` Tomas Hlavaty
2021-07-20 17:42 ` Leo Butler
2021-07-20 19:44 ` Tomas Hlavaty
2021-07-20 20:21 ` Leo Butler
2021-07-20 20:50 ` Tomas Hlavaty
2021-07-31 23:25 ` Tomas Hlavaty
2021-08-01 2:16 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-08-01 6:40 ` Tomas Hlavaty
2021-08-01 7:16 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-08-01 7:42 ` Tomas Hlavaty
2021-08-02 13:57 ` Hongyi Zhao
2021-08-02 19:57 ` Tomas Hlavaty
2021-08-03 0:56 ` Hongyi Zhao
2021-08-01 2:59 ` Eduardo Ochs [this message]
2021-07-20 21:51 ` Stefan Monnier via Users list for the GNU Emacs text editor
2021-07-20 21:48 ` Stefan Monnier via Users list for the GNU Emacs text editor
2021-07-21 19:17 ` Leo Butler
2021-07-21 20:05 ` Stefan Monnier
2021-07-21 21:44 ` cl-lib questions (was: Re: Screenshots, frame shots straight from Emacs) Emanuel Berg via Users list for the GNU Emacs text editor
2021-07-21 21:59 ` cl-lib questions Stefan Monnier via Users list for the GNU Emacs text editor
2021-07-21 22:09 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-07-22 8:37 ` Screenshots, frame shots straight from Emacs Tomas Hlavaty
2021-07-22 13:21 ` Stefan Monnier
2021-07-22 18:19 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-07-23 11:38 ` Jean Louis
2021-08-01 1:38 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-07-31 23:32 ` Tomas Hlavaty
2021-07-23 1:30 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-07-31 23:31 ` Tomas Hlavaty
2021-08-01 14:19 ` Stefan Monnier
2021-07-21 3:34 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-07-21 17:21 ` Leo Butler
2021-07-21 17:52 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-07-22 8:26 ` Tomas Hlavaty
2021-07-22 8:16 ` Tomas Hlavaty
2021-07-23 0:52 ` Hongyi Zhao
2021-07-23 1:35 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-07-23 1:55 ` Hongyi Zhao
2021-07-23 5:51 ` Jean Louis
2021-07-23 8:56 ` Hongyi Zhao
2021-07-23 10:28 ` Hongyi Zhao
2021-07-23 10:32 ` Hongyi Zhao
2021-07-23 11:04 ` Jean Louis
2021-07-23 11:41 ` Hongyi Zhao
2021-07-24 15:22 ` Hongyi Zhao
2021-07-23 9:16 ` Hongyi Zhao
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CADs++6jZ7-Wa5K6_SEvF86mAwUFOsm-Se0YcOD2SZLbmqaS=pQ@mail.gmail.com' \
--to=eduardoochs@gmail.com \
--cc=help-gnu-emacs@gnu.org \
--cc=leo.butler@umanitoba.ca \
--cc=tom@logand.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).