summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-02-22 19:05:07 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2012-02-22 19:05:07 +0100
commit7f816c60739a55e8b879597155a5e1245103324e (patch)
tree90e4a21359845b6126caa19d7edc50d5922923e5
parent40e42b9dca28d200564d985029ce9943844a4994 (diff)
downloadorg-mode-7f816c60739a55e8b879597155a5e1245103324e.tar.gz
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.
-rw-r--r--contrib/lisp/org-export.el38
1 files changed, 23 insertions, 15 deletions
diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el
index 67f25f9..5e44a2f 100644
--- a/contrib/lisp/org-export.el
+++ b/contrib/lisp/org-export.el
@@ -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
;; depending on user's key pressed.
(case (if (< raw-key 27) (+ raw-key 96) raw-key)
+ ;; Allow to quit with "q" key.
+ (?q nil)
;; Export with `e-ascii' back-end.
((?A ?N ?U)
(let ((outbuf
@@ -3329,28 +3331,34 @@ back to standard interface.
Return value is a list with key pressed as CAR and a list of
final interactive export options as CDR."
(let ((help
- (format "-------------------- General Options --------------------
-\[1] Body only: %s [2] Export scope: %s
-\[3] Visible only: %s [4] Force publishing: %s
+ (format "---- (Options) -------------------------------------------
+\[1] Body only: %s [2] Export scope: %s
+\[3] Visible only: %s [4] Force publishing: %s
--------------- ASCII/Latin-1/UTF-8 Export ---------------
-\[a/n/u] to TXT file [A/N/U] to temporary buffer
---------------------- LaTeX Export ----------------------
-\[l] to TEX file [L] to temporary buffer
-\[p] to PDF file [d] ... and open it
+----(ASCII/Latin-1/UTF-8 Export)--------------------------
---------------------- HTML Export -----------------------
-\[h] to HTML file [b] ... and open it
+\[a/n/u] to TXT file [A/N/U] to temporary buffer
+
+----(HTML Export)-----------------------------------------
+
+\[h] to HTML file [b] ... and open it
\[H] to temporary buffer
---------------------- ODF Export -----------------------
-\[o] to ODT file [O] ... and open it
+----(LaTeX Export)----------------------------------------
+
+\[l] to TEX file [L] to temporary buffer
+\[p] to PDF file [d] ... and open it
+
+----(ODF Export)------------------------------------------
+
+\[o] to ODT file [O] ... and open it
+
+----(Publish)---------------------------------------------
-------------------------- Publish -------------------------
-\[F] current file [P] current project
-\[X] a project [E] every project"
+\[F] current file [P] current project
+\[X] a project [E] every project"
(if (memq 'body options) "On " "Off")
(if (memq 'subtree options) "Subtree" "Buffer ")
(if (memq 'visible options) "On " "Off")