Skip to content

Instantly share code, notes, and snippets.

@DamienCassou

DamienCassou/screencasting.el

Created October 14, 2019 07:50
Show Gist options
  • Save DamienCassou/0e3663ce3bdb710a44eeb7122870f621 to your computer and use it in GitHub Desktop.
Save DamienCassou/0e3663ce3bdb710a44eeb7122870f621 to your computer and use it in GitHub Desktop.
Download ZIP
Record audio, video and keystrokes simulatenously
Raw
screencasting.el
;;; screencasting.el --- Tooling for screencasting -*- lexical-binding: t; -*-
;; Copyright (C) 2019 Damien Cassou
;; Author: Damien Cassou <[email protected]>
;; Keywords:
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; This package starts simultaneously
;;
;; - (1) showkeys to see keystrokes on the screen
;; (https://github.com/nibrahim/showkeys),
;; - (2) an instance of ffmpeg to record video, and
;; - (3) another instance of ffmpeg to record audio
;;; Code:
(require 'f)
(defvar screencasting-showkeys-filename "~/Downloads/showkeys/showkeys")
(defvar screencasting-project-directory "~/Documents/presentations/2019-10-mpdel")
(defvar screencasting-record-video-command
`(,(executable-find "ffmpeg")
"-probesize" "10000000"
"-video_size" "1920x1080"
"-framerate" "30"
"-f" "x11grab"
"-i" ":0.0+0,0"
"-c:v" "libx264"
"-crf" "0"
"-preset" "ultrafast"))
(defvar screencasting-record-audio-command
`(,(executable-find "ffmpeg")
"-f" "pulse"
"-i" "default"))
(defvar screencasting--process-showkeys nil
"Process for showkeys.")
(defvar screencasting--process-record-video nil
"Process recording the screen.")
(defvar screencasting--process-record-audio nil
"Process recording audio.")
(defun screencasting-start-showkeys ()
"Start a process for showkeys."
(interactive)
(setq screencasting--process-showkeys
(make-process
:name "showkeys"
:command (list screencasting-showkeys-filename))))
(defun screencasting-stop-showkeys ()
"Kill the showkeys process."
(interactive)
(when screencasting--process-showkeys
(interrupt-process screencasting--process-showkeys)
(setq screencasting--process-showkeys nil)))
(defun screencasting-ensure-showkeys ()
"Start showkeys if not already started."
(interactive)
(unless (and screencasting--process-showkeys (process-live-p screencasting--process-showkeys))
(screencasting-start-showkeys)))
(defun screencasting--make-filename (basename counter extension)
"Return an absolute path for BASENAME with EXTENSION.
COUNTER is a number to make filename unique."
(format "%s/%s_%s.%s"
(expand-file-name screencasting-project-directory)
basename
counter
extension))
(defun screencasting--make-uniq-filename (basename extension)
"Return a filename for BASENAME with EXTENSION that is unique.
The returned filename is absolute in `screencasting-project-directory'."
(let* ((counter 1)
(filename (screencasting--make-filename basename counter extension)))
(while (f-exists-p filename)
(cl-incf counter)
(setq filename (screencasting--make-filename basename counter extension)))
filename))
(defun screencasting-start-record-video (basename)
"Start a process recording the screen."
(interactive (list (read-string "Basename? ")))
(let ((default-directory screencasting-project-directory)
(filename (screencasting--make-uniq-filename basename "mkv")))
(setq screencasting--process-record-video
(make-process
:name "record screen"
:command (append screencasting-record-video-command
(list filename))
:buffer "*record screen*"))))
(defun screencasting-stop-record-video ()
"Stop the current video recording."
(interactive)
(when screencasting--process-record-video
(interrupt-process screencasting--process-record-video)
(setq screencasting--process-record-video nil)))
(defun screencasting-start-record-audio (basename)
"Start a process recording audio."
(interactive (list (read-string "Basename? ")))
(let ((default-directory screencasting-project-directory)
(filename (screencasting--make-uniq-filename basename "flac")))
(setq screencasting--process-record-audio
(make-process
:name "record audio"
:command (append screencasting-record-audio-command
(list filename))
:buffer "*record audio*"))))
(defun screencasting-stop-record-audio ()
"Stop the current audio recording."
(interactive)
(when screencasting--process-record-audio
(interrupt-process screencasting--process-record-audio)
(setq screencasting--process-record-audio nil)))
(defun screencasting-start (basename)
"Start showkeys and recording for BASENAME."
(interactive (list (read-string "Basename? ")))
(screencasting-ensure-showkeys)
(screencasting-start-record-video basename)
(screencasting-start-record-audio basename))
(defun screencasting-stop ()
"Stop showkeys and recording."
(interactive)
(screencasting-stop-showkeys)
(screencasting-stop-record-video)
(screencasting-stop-record-audio))
(defun screencasting-setup ()
"Setup keybindings."
(interactive)
(bind-key "C-. q s" #'screencasting-start)
(bind-key "C-. q k" #'screencasting-stop))
(provide 'screencasting)
;;; screencasting.el ends here
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment