From 487860e652b36338fcf8144a250ab57358e4206a Mon Sep 17 00:00:00 2001 From: jowj Date: Sat, 20 Jun 2020 19:02:49 -0500 Subject: [PATCH] Add macOS compat fix to my-org-screenshot. --- .emacs.d/jlj-org.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/.emacs.d/jlj-org.el b/.emacs.d/jlj-org.el index 86554f3..3209915 100644 --- a/.emacs.d/jlj-org.el +++ b/.emacs.d/jlj-org.el @@ -98,7 +98,8 @@ (defun my-org-screenshot () "Take a screenshot into a time stamped unique-named file in the same directory as the org-buffer and insert a link to this file. -reference: https://orgmode.org/worg/org-hacks.html" +reference: https://orgmode.org/worg/org-hacks.html +dependency: this relies on imagemagick" (interactive) (setq filename (concat @@ -106,8 +107,12 @@ reference: https://orgmode.org/worg/org-hacks.html" (concat (buffer-file-name) "_" (format-time-string "%Y%m%d_%H%M%S_")) ) ".png")) - (call-process "import" nil nil nil filename) + (if (eq system-type 'darwin) + (shell-command (format "screencapture -i %s" filename)) + (call-process "import" nil nil nil filename)) (insert (concat "[[" filename "]]")) (org-display-inline-images)) -(global-set-key (kbd "C-c C-s") 'my-org-screenshot) + +(global-set-key (kbd "C-c C-M-4") 'my-org-screenshot) +