30 lines
770 B
EmacsLisp
30 lines
770 B
EmacsLisp
;;; Provided screenshot capability
|
|
(defun screencap-dwm ()
|
|
"Call dwm-screnshot and display filename in minibuffer."
|
|
(interactive)
|
|
(shell-command "dwm-screenshot"))
|
|
|
|
(defun screencap-el ()
|
|
"take a screenshot with imagemagick and elisp"
|
|
(interactive)
|
|
(setq-local fn
|
|
(concat "/home/oc/Pictures/screenshot-"
|
|
(if (boundp 'screenshot-context)
|
|
(if (not (string-equal screenshot-context ""))
|
|
(concat screenshot-context "-")
|
|
"")
|
|
"")
|
|
(format-time-string "%Y-%m-%d-%H.%M.%S")
|
|
".png"))
|
|
(set-process-sentinel
|
|
(start-process "screenshot" "*screenshot*"
|
|
"import" "-verbose"
|
|
"-window" "root"
|
|
fn)
|
|
(lambda (p e)
|
|
(when (eq 0 (process-exit-status p))
|
|
(message fn)))))
|
|
|
|
|
|
(provide 'screencap)
|