From: Hongyi Zhao <hongyi.zhao@gmail.com>
To: Hongyi Zhao <hongyi.zhao@gmail.com>, Omar Polo <op@omarpolo.com>,
help-gnu-emacs <help-gnu-emacs@gnu.org>
Subject: Re: Screenshots, frame shots straight from Emacs
Date: Fri, 23 Jul 2021 18:32:44 +0800 [thread overview]
Message-ID: <CAGP6PO+cNVO-1VCiNRTr_h4ugR4COHTbr0i1jNdpaVSGYppg2g@mail.gmail.com> (raw)
In-Reply-To: <CAGP6POJh_84zGWwibzJxA5XH3m8LaYSi5ytpxNajT+L1gapCGw@mail.gmail.com>
On Fri, Jul 23, 2021 at 6:28 PM Hongyi Zhao <hongyi.zhao@gmail.com> wrote:
>
> On Fri, Jul 23, 2021 at 4:56 PM Hongyi Zhao <hongyi.zhao@gmail.com> wrote:
> >
> > On Fri, Jul 23, 2021 at 1:55 PM Jean Louis <bugs@gnu.support> wrote:
> > >
> > > * Hongyi Zhao <hongyi.zhao@gmail.com> [2021-07-23 03:53]:
> > > > 1. Have the delay feature, so that I can do some operations before the
> > > > screenshot is captured, say, click on mouse button, open a dropdown
> > > > menu, and so on.
> > >
> > > This improved function will allow that you invoke for example:
> > >
> > > C-5 M-x frameshot to delay for 5 seconds.
> >
> > Good idea.
> >
> > > But this Emacs function I think will not allow to get the screenshot of the dropdown, maybe it
> > > requires using threads, now I don't know how to do it within Emacs.
> >
> > Anyway, thank you very much for your help.
> >
> > > (defun frameshot (&optional prefix)
> > > "Save Emacs frame as frame shot.
> > >
> > > Directory is determined by variable `frameshot-directory' and if
> > > not defined, it will be saved in the `$HOME' directory."
> > > (interactive "p")
> > > (let ((delay (or prefix 0)))
> > > (run-with-timer
> > > delay nil
> > > (lambda ()
> > > (let* ((image (x-export-frames nil (or frameshot-format 'png)))
> > > (base-directory (or frameshot-directory (getenv "HOME")))
> > > (directory (concat (file-name-as-directory base-directory) (format-time-string "%Y/%m/%Y-%m-%d/")))
> > > (file (concat directory (format-time-string "Screenshot-%Y-%m-%d-%T.") (symbol-name frameshot-format))))
> > > (make-directory directory t)
> > > (with-temp-file file
> > > (insert image))
> > > (find-file directory)
> > > (message "Frame shot saved as `%s'" file))))))
> > >
> > > To capture all screen I am using this external Common Lisp script,
> > > that invokes maim:
> > >
> > > #!/usr/bin/clisp
> > >
> > > (load "/home/data1/protected/Programming/git/RCDBusiness/lib/lisp/date-time.lisp")
> > >
> > > (defparameter *image-capture-program* "maim")
> > > (defparameter *image-type* ".png")
> > > (defparameter *image-directory* "/home/data1/protected/Media/Pictures/Screenshots")
> > >
> > > (let* ((filename (concatenate 'string (timestamp-filename) *image-type*))
> > > (year (substring filename 0 4))
> > > (month (substring filename 5 7))
> > > (date (substring filename 0 10))
> > > (directory (concatenate 'string *image-directory* "/" year "/" month "/" date "/"))
> > > (command (concatenate 'string *image-capture-program* " \"" directory filename "\""))
> > > (rox-command (concatenate 'string "rox " directory)))
> > > (print directory)
> > > (print command)
> > > (ensure-directories-exist directory)
> > > (shell command)
> > > (shell rox-command))
> > >
> > > You could install either `maim' or other system screenshot program and
> > > use that one.
> >
> > Thank you for recommending `maim' to me. From its official description
> > [1], it can be seen as an improved scrot, which is the one used by me
> > now.
> >
> > [1] https://github.com/naelstrof/maim
>
> Further comment, based on my tries and the discussions here [1], the
> imagemagick and shutter [2] are more powerful and versatile than maim
> and scrot.
>
> [1] https://askubuntu.com/questions/584778/how-to-capture-a-drop-down-menu
> [2] https://github.com/shutter-project/shutter
So I suggest don't use tools like maim and scrot if imagemagick or
shutter can be directly invoked from within Emacs.
Hongyi
next prev parent reply other threads:[~2021-07-23 10:32 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
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 [this message]
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=CAGP6PO+cNVO-1VCiNRTr_h4ugR4COHTbr0i1jNdpaVSGYppg2g@mail.gmail.com \
--to=hongyi.zhao@gmail.com \
--cc=help-gnu-emacs@gnu.org \
--cc=op@omarpolo.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).