在 orgmode 中粘贴截图

用 org2blog 写博客有一段时间了,但是从来都不在文章中加配图。因为一直没有找到好的办法,可以在 orgmode 中粘贴并管理图片。

这个问题还是要解决的,在网上搜了一圈解决方案。一个办法是使用命令行截图软件,将图片保存到指定位置,然后在 orgmode 中插入路径。我平时使用 picpick 这个截图软件,不想更换其它软件,所以不采用这个方案。

最后在 stackoverflow 上找到一个方法, 先用 C# 写一个小程序,从剪切板中将图片保存到指定路径,然后在 orgmode 中插入这个路径。这个方法可以与 picpick 软件可以配合使用,感觉不错,决定试一下。

  • 用 VS2005 新建一个 C# Windows Program 项目,命名为 CbImage2File
  • 删除 Form1.cs
  • 修改 program.cs 文件
using System;
using System.Collections.Generic;
using System.Text;

namespace CbImage2File
{
    static class Program
    {
        private static int FAILURE = 1;

        private static void Failure(string description)
        {
            Console.Error.WriteLine("Clipboard does not contain image data");
            Environment.Exit(FAILURE);
        }

        /// <summary>
        /// The main entry point for the application.
        /// </summary>
        [STAThread]
        static void Main(string[] args)
        {
            System.Drawing.Image image = System.Windows.Forms.Clipboard.GetImage();

            if (image == null)
            {
                Failure("Clipboard does not contain image data");
            }

            if (args.Length == 0)
            {
                Failure("You have not specified an output path for the image");
            }

            if (args.Length > 1)
            {
                Failure("You must only specify a file path (1 argument)");
            }

            string filePath = args[0];
            System.IO.DirectoryInfo folderInfo = new System.IO.FileInfo(filePath).Directory;

            if (!folderInfo.Exists)
            {
                System.IO.Directory.CreateDirectory(folderInfo.FullName);
            }

            image.Save(filePath);
        }
    }
}
  • 编译 release 版本,得到 CbImage2File.exe
  • myconfig/package.el 中增加
;;;###autoload
(defun org-insert-image-from-clipboard ()
  (interactive)
  (let* ((home-dir "d:/cygwin/home/fj/")
         (relative-dir "org/image")
         (attachments-dir (concat home-dir relative-dir))
         (png-file-name (format-time-string "%Y%m%d_%H%M%S.png"))
         (png-path (concat attachments-dir "/" png-file-name))
         (relative-path (concat relative-dir "/" png-file-name))
         (temp-buffer-name "CbImage2File-buffer"))
    (call-process "D:/tools/CbImage2File.exe" nil temp-buffer-name nil png-path)
    (let ((result (with-current-buffer temp-buffer-name (buffer-string))))
      (progn
        (kill-buffer temp-buffer-name)
        (if (string= result "")
            (progn 
              (insert (concat "[[~/" relative-path "]]"))
              ;(org-display-inline-images)
              )
          (insert result))))))

测试图片

图1  这是一张测试图片