tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-export: Small changes to UI, allow q to quit 

* contrib/lisp/org-export.el (org-export-dispatch): Small changes to
  UI, allow q to quit.
This commit is contained in:
Nicolas Goaziou 2012-02-22 19:05:07 +01:00
parent 40e42b9dca
commit 7f816c6073
1 changed files with 23 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
contrib/lisp/org-export.el
View File

@ -3245,6 +3245,8 @@ Return an error if key pressed has no associated command."
;; Translate "C-a", "C-b"... into "a", "b"... Then take action ;; Translate "C-a", "C-b"... into "a", "b"... Then take action
;; depending on user's key pressed. ;; depending on user's key pressed.
(case (if (< raw-key 27) (+ raw-key 96) raw-key) (case (if (< raw-key 27) (+ raw-key 96) raw-key)
;; Allow to quit with "q" key.
(?q nil)
;; Export with `e-ascii' back-end. ;; Export with `e-ascii' back-end.
((?A ?N ?U) ((?A ?N ?U)
(let ((outbuf (let ((outbuf
@ -3329,28 +3331,34 @@ back to standard interface.
Return value is a list with key pressed as CAR and a list of Return value is a list with key pressed as CAR and a list of
final interactive export options as CDR." final interactive export options as CDR."
(let ((help (let ((help
(format "-------------------- General Options -------------------- (format "---- (Options) -------------------------------------------
\[1] Body only: %s [2] Export scope: %s
\[3] Visible only: %s [4] Force publishing: %s \[1] Body only: %s [2] Export scope: %s
\[3] Visible only: %s [4] Force publishing: %s
-------------- ASCII/Latin-1/UTF-8 Export --------------- ----(ASCII/Latin-1/UTF-8 Export)--------------------------
\[a/n/u] to TXT file [A/N/U] to temporary buffer
--------------------- LaTeX Export ---------------------- \[a/n/u] to TXT file [A/N/U] to temporary buffer
\[l] to TEX file [L] to temporary buffer
\[p] to PDF file [d] ... and open it
--------------------- HTML Export ----------------------- ----(HTML Export)-----------------------------------------
\[h] to HTML file [b] ... and open it
\[h] to HTML file [b] ... and open it
\[H] to temporary buffer \[H] to temporary buffer
--------------------- ODF Export ----------------------- ----(LaTeX Export)----------------------------------------
\[o] to ODT file [O] ... and open it
------------------------- Publish ------------------------- \[l] to TEX file [L] to temporary buffer
\[F] current file [P] current project \[p] to PDF file [d] ... and open it
\[X] a project [E] every project"
----(ODF Export)------------------------------------------
\[o] to ODT file [O] ... and open it
----(Publish)---------------------------------------------
\[F] current file [P] current project
\[X] a project [E] every project"
(if (memq 'body options) "On " "Off") (if (memq 'body options) "On " "Off")
(if (memq 'subtree options) "Subtree" "Buffer ") (if (memq 'subtree options) "Subtree" "Buffer ")
(if (memq 'visible options) "On " "Off") (if (memq 'visible options) "On " "Off")