me/guix
Archived
1
0
Fork 0
Code Activity

gnu: emacs-gif-screencast: Update to 1.1.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-gif-screencast): Update to 1.1.
This commit is contained in:
Pierre Neidhardt 2020-01-27 20:28:55 +01:00
parent fcb510c541
commit 11f46dc9de
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
1 changed files with 45 additions and 47 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

92
gnu/packages/emacs-xyz.scm
View file

@ -15377,56 +15377,54 @@ try completing. See @code{fish-completion-fallback-on-bash-p}.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public emacs-gif-screencast (define-public emacs-gif-screencast
(let ((commit "248d1e158405e6cba2c65ecaed40e2c59b089cd8") (package
(revision "2")) (name "emacs-gif-screencast")
(package (version "1.1")
(name "emacs-gif-screencast") (source
(version (git-version "1.0" revision commit)) (origin
(source (method git-fetch)
(origin (uri (git-reference
(method git-fetch) (url "https://gitlab.com/Ambrevar/emacs-gif-screencast.git")
(uri (git-reference (commit version)))
(url "https://gitlab.com/Ambrevar/emacs-gif-screencast.git") (file-name (git-file-name name version))
(commit commit))) (sha256
(file-name (git-file-name name version)) (base32
(sha256 "1g1by8lvf8c9vzm4wwsi5kp285kaj0ahsl54048ympin4pi0njw9"))))
(base32 (build-system emacs-build-system)
"19xqi5mgalnnhb4hw0fh7py2s2dllldx1xxbhwhknkdpifai8hl8")))) (inputs
(build-system emacs-build-system) `(("scrot" ,scrot)
(inputs ("imagemagick" ,imagemagick)
`(("scrot" ,scrot) ("gifsicle" ,gifsicle)))
("imagemagick" ,imagemagick) (arguments
("gifsicle" ,gifsicle))) `(#:phases
(arguments (modify-phases %standard-phases
`(#:phases (add-after 'unpack 'configure
(modify-phases %standard-phases (lambda* (#:key inputs outputs #:allow-other-keys)
(add-after 'unpack 'configure (let ((scrot (assoc-ref inputs "scrot"))
(lambda* (#:key inputs outputs #:allow-other-keys) (imagemagick (assoc-ref inputs "imagemagick"))
(let ((scrot (assoc-ref inputs "scrot")) (gifsicle (assoc-ref inputs "gifsicle")))
(imagemagick (assoc-ref inputs "imagemagick")) (make-file-writable "gif-screencast.el")
(gifsicle (assoc-ref inputs "gifsicle"))) ;; Specify the absolute file names of the various
(make-file-writable "gif-screencast.el") ;; programs so that everything works out-of-the-box.
;; Specify the absolute file names of the various (emacs-substitute-variables
;; programs so that everything works out-of-the-box. "gif-screencast.el"
(emacs-substitute-variables ("gif-screencast-program"
"gif-screencast.el" (string-append scrot "/bin/scrot"))
("gif-screencast-program" ("gif-screencast-convert-program"
(string-append scrot "/bin/scrot")) (string-append imagemagick "/bin/convert"))
("gif-screencast-convert-program" ("gif-screencast-cropping-program"
(string-append imagemagick "/bin/convert")) (string-append imagemagick "/bin/mogrify"))
("gif-screencast-cropping-program" ("gif-screencast-optimize-program"
(string-append imagemagick "/bin/mogrify")) (string-append gifsicle "/bin/gifsicle")))))))))
("gif-screencast-optimize-program" (home-page
(string-append gifsicle "/bin/gifsicle"))))))))) "https://gitlab.com/Ambrevar/emacs-gif-screencast")
(home-page (synopsis "One-frame-per-action GIF recording")
"https://gitlab.com/Ambrevar/emacs-gif-screencast") (description
(synopsis "One-frame-per-action GIF recording") "Call @code{gif-screencast} to start a recording.
(description
"Call @code{gif-screencast} to start a recording.
A screenshot is taken for every user action. Call A screenshot is taken for every user action. Call
@code{gif-screencast-stop} (<f9> by default) to finish recording and create @code{gif-screencast-stop} (<f9> by default) to finish recording and create
the GIF result.") the GIF result.")
(license license:gpl3+)))) (license license:gpl3+)))
(define-public emacs-google-translate (define-public emacs-google-translate
(package (package