emacs-mac 截屏并插入

Roife · 2018 年8 月 2 日 13:37

我发现 emacs-mac 自带了一个 service capture selection from screen 可以截屏并插入到文件中。可以自己设置一个快捷键

EDIT：不能保存是怎么回事……

lululau · 2018 年8 月 2 日 15:24

用这个：

lululau/spacemacs-layers/blob/master/org-yank-image/local/org-yank-image/org-yank-image.el

;;;###autoload
(defun org-yank-image/default-dir ()
  (format "%s/media" (file-name-base (buffer-file-name))))

;;;###autoload
(defun org-yank-image/default-file (dir)
  (let ((last 0))
    (format "image%d.png" (1+
                           (dolist (f (file-expand-wildcards (format "%s/*" dir)) last)
                             (when (string-match "/image\\([0-9]+\\)\\.png$" f)
                               (let ((n (string-to-number (match-string 1 f))))
                                 (when (> n last)
                                   (setq last n)))))))))

;;;###autoload
(defun org-yank-image/get-file ()
  (let* ((default-dir (org-yank-image/default-dir))
         (default-file (org-yank-image/default-file default-dir)))
    (format "./%s" (file-relative-name (read-file-name "Save to file: " default-dir nil nil default-file) default-directory))))

This file has been truncated. show original