emacs: added some screencasting packages

Signed-off-by: Miquel Sabaté Solà <msabate@suse.com>

2 files changed, 36 insertions, 1 deletions

diff --git a/.emacs.d/custom.el b/.emacs.d/custom.el
index be16428..74c6150 100644
--- a/.emacs.d/custom.el
+++ b/.emacs.d/custom.el
@@ -15,7 +15,7 @@
  '(markdown-command "/usr/bin/markdown-calibre")
  '(package-selected-packages
    (quote
-    (py-autopep8 elpy inf-ruby move-text git-timemachine debbugs async-await request emojify auctex diminish bats-mode bool-flip salt-mode flycheck-rust rust-playground rust-mode vue-mode coffee-mode json-reformat erc-hl-nicks emoji-cheat-sheet-plus helm-circe htmlize cmake-mode websocket markdown-mode go-mode magit evil-leader evil helm projectile org-eldoc evil-commentary yasnippet yaml-mode which-key web-mode wc-mode use-package terraform-mode smart-tabs-mode slim-mode scss-mode rainbow-delimiters php-mode org-evil olivetti mu4e-alert mmm-jinja2 markdown-preview-mode helm-projectile helm-ag go-eldoc go-add-tags flycheck evil-surround evil-org evil-numbers evil-mu4e evil-magit evil-args dockerfile-mode disable-mouse default-text-scale crux cmake-font-lock ag))))
+    (keycast gif-screencast py-autopep8 elpy inf-ruby move-text git-timemachine debbugs async-await request emojify auctex diminish bats-mode bool-flip salt-mode flycheck-rust rust-playground rust-mode vue-mode coffee-mode json-reformat erc-hl-nicks emoji-cheat-sheet-plus helm-circe htmlize cmake-mode websocket markdown-mode go-mode magit evil-leader evil helm projectile org-eldoc evil-commentary yasnippet yaml-mode which-key web-mode wc-mode use-package terraform-mode smart-tabs-mode slim-mode scss-mode rainbow-delimiters php-mode org-evil olivetti mu4e-alert mmm-jinja2 markdown-preview-mode helm-projectile helm-ag go-eldoc go-add-tags flycheck evil-surround evil-org evil-numbers evil-mu4e evil-magit evil-args dockerfile-mode disable-mouse default-text-scale crux cmake-font-lock ag))))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
diff --git a/.emacs.d/init.org b/.emacs.d/init.org
index 66ed281..e88368e 100644
--- a/.emacs.d/init.org
+++ b/.emacs.d/init.org
@@ -2302,6 +2302,41 @@ too many things into my leader and these shortcuts look sensible to me).
   (global-set-key (kbd "C-c o") 'crux-open-with))
 #+END_SRC
 
+** Screencast
+
+Some utilities when recording my GNU Emacs adventures. First of all, =keycast=
+shows the keys being pressed in the mode line.
+
+#+BEGIN_SRC elisp
+(use-package keycast
+  :ensure t)
+#+END_SRC
+
+Second of all, we have =gif-screencast=, which allows you to record your GNU
+Emacs activity and saves it into a gif (unless you have specified the
+=XDG_VIDEOS_DIR=, it will use =~/Videos/emacs/<name>.gif=):
+
+#+BEGIN_SRC elisp
+(use-package gif-screencast
+  :ensure t
+  :config
+  (with-eval-after-load 'gif-screencast
+    (define-key gif-screencast-mode-map (kbd "<f8>") 'gif-screencast-toggle-pause)
+    (define-key gif-screencast-mode-map (kbd "<f9>") 'gif-screencast-stop))
+
+  (global-set-key (kbd "<f7>") 'mssola-screencast))
+#+END_SRC
+
+And last but not least, I use a wrapper to start a screencast:
+
+#+BEGIN_SRC elisp
+(defun mssola-screencast ()
+  "Start keycast-mode and then start a gif screencast."
+
+  (keycast)
+  (gif-screencast))
+#+END_SRC
+
 ** Emojis
 
 Display emojis in buffer!