emacs組織模式文件本地密鑰綁定

Question

我在emacs中使用org-mode和ox-reveal。後者定義了org-reveal-export-to-html命令，我想綁定到帶有org文件的緩存鍵，這是演示文稿（所有組織文件不適用）。

所以問題是：如何在組織模式下定義文件本地鍵綁定？

我現在有是這樣的：

#+BEGIN_COMMENT 
Local Variables: 
eval: (local-set-key [f5] 'org-reveal-export-to-html) 
End: 
#+END_COMMENT 

但恕我直言，這是不是很優雅。

Answer 1

您可以通過使用ORG-defkey定義僅適用於組織模式的關鍵，基本上添加以下到您的init文件

(org-defkey org-mode-map [f5] 'org-reveal-export-to-html) 

UPDATE

您可以使用文件的局部變量。

(defvar export-with-reveal nil) 

(defun export-with-reveal-or-html() 
    (interactive) 
    (if (or export-with-reveal (file-exists-p "reveal.js")) 
     (call-interactively 'org-reveal-export-to-html) 
    (call-interactively 'org-export-as-html))) 

(org-defkey org-mode-map [f5] 'export-with-reveal-or-html) 

功能export-with-reveal-or-html如果變量export-with-reveal具有值T或有一個文件「reveal.js」相對於ORG文件，如果是的話它reveal出口也回落到默認的HTML出口。你可以指定一個文件，以出口加作爲顯示以下到您的組織文件的頂部

# -*- export-with-reveal: t -*- 

更新2

您還可以通過使用文件的本地變量做定義任意輸出功能

(defvar my-export-fn nil) 

(defun my-export() 
    (interactive) 
    (if my-export-fn 
     (call-interactively my-export-fn) 
    (call-interactively 'org-export-as-html))) 

(org-defkey org-mode-map [f5] 'my-export) 

然後在文件的頂部，你可以設置導出功能要使用如

# -*- export-fn: org-reveal-export-to-html -*- 

Answer 2

我想出了以下解決方案，它利用局部變量掛鉤黑客和定義​​緩衝LOKAL鉤：

(add-hook 'org-mode-hook 'my-org-mode-hook) 
(defun my-org-mode-hook() 
    (add-hook 'hack-local-variables-hook 
      (lambda() 
       (local-set-key [f5] (if (boundp 'my-org-export) 
             my-org-export 
            'org-html-export-to-html))))) 

然後在組織模式，我補充一點：

#+BEGIN_COMMENT 
Local Variables: 
my-org-export: org-reveal-export-to-html 
End: 
#+END_COMMENT 

我還是希望能看到這樣的事情，沒有任何掛鉤黑客：

的

#+EXPORT: org-reveal-export-to-html