(menu-bar-mode 0)
(tool-bar-mode 0)
(scroll-bar-mode -1)
(global-set-key "\M-o" 'other-window)
(blink-cursor-mode 0)
(set-face-background 'region "#000050")
;;
(code-c-d "eevvideos" "~/eev-videos/" :anchor)
(code-c-d "eevvideos" "/tmp/eev/" :anchor)
(defun explain (str) (find-wset "13_o_" `(find-eevvideos ,str) '(eejump-200)))
(defun eejump-200 () (find-eevvideos "4a-script"))
(defun eejump-1  () (find-wset "1_" '(find-eevvideos "4-eepitch")))
(defun eejump-20 () (find-wset "1_" '(eejump-200)))
(defun eejump-21 () (explain "4b-explan-1"))
(defun eejump-22 () (explain "4c-explan-2"))
(defun eejump-23 () (explain "4d-explan-3"))
(defun eejump-24 () (explain "4e-explan-4"))
;;
(setq ee-scast-cmdline
  "avconv -loglevel quiet -r 5 -s 1024x600 -f x11grab -i $DISPLAY /tmp/out.mp4")
(defun ee-scast-start () (interactive)
  (find-sh0 "rm -f /tmp/out.mp4")
  (find-bgprocess ee-scast-cmdline))

(defun bye () (interactive)
  (find-sh0 "killall avconv"))

(ee-scast-start)