[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/olivetti bd06cf1 004/134: Added mode-map and menu
From: |
Stefan Monnier |
Subject: |
[elpa] externals/olivetti bd06cf1 004/134: Added mode-map and menu |
Date: |
Thu, 25 Apr 2019 09:57:13 -0400 (EDT) |
branch: externals/olivetti
commit bd06cf1d90e2261eb7e337562890863b967d2952
Author: Paul Rankin <address@hidden>
Commit: Paul Rankin <address@hidden>
Added mode-map and menu
---
olivetti.el | 35 ++++++++++++++++++++++++-----------
1 file changed, 24 insertions(+), 11 deletions(-)
diff --git a/olivetti.el b/olivetti.el
index 700622e..1d832ee 100644
--- a/olivetti.el
+++ b/olivetti.el
@@ -20,7 +20,7 @@
;;; Commentary:
-;;
+;;
;;; Code:
@@ -56,6 +56,11 @@ This option does not affect file contents."
:type '(choice (integer 66) (float 0.5))
:group 'olivetti)
+(defcustom olivetti-hide-menu-bar nil
+ "Turn off `menu-bar-mode'."
+ :type 'boolean
+ :group 'olivetti)
+
(defcustom olivetti-hide-tool-bar t
"Turn off `tool-bar-mode'."
:type 'boolean
@@ -93,16 +98,22 @@ Can cause display issues in console mode."
(when olivetti-hide-fringes
(set-window-fringes (selected-window) 0 0 t)))
-;; (easy-menu-define olivetti-mode-menu olivetti-mode-map
-;; "Menu for Olivetti Mode."
-;; '("Olivetti"
-;; ["Use Clean Margins" ignore]
-;; ["Hide Mode Line" ignore
-;; :style toggle
-;; :selected olivetti-hide-mode-line]))
-
-;; (defvar olivetti-mode-map nil
-;; "Mode map for `olivetti-mode'.")
+(defvar olivetti-mode-map
+ (make-sparse-keymap)
+ "Mode map for `olivetti-mode'.")
+
+(easy-menu-define olivetti-mode-menu olivetti-mode-map
+ "Menu for Olivetti Mode."
+ '("Olivetti"
+ ["Hide Menu Bar" ignore
+ :style toggle
+ :selected olivetti-hide-menu-bar]
+ ["Hide Tool Bar" ignore
+ :style toggle
+ :selected olivetti-hide-tool-bar]
+ ["Hide Mode Line" ignore
+ :style toggle
+ :selected olivetti-hide-mode-line]))
;;;###autoload
(defun turn-on-olivetti-mode ()
@@ -124,6 +135,8 @@ hidden."
(if olivetti-mode
(progn
(setq-local scroll-conservatively 101)
+ (when olivetti-hide-menu-bar
+ (menu-bar-mode 0))
(when olivetti-hide-tool-bar
(tool-bar-mode 0))
(when olivetti-hide-mode-line
- [elpa] branch externals/olivetti created (now 46fdcfe), Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 01af0c7 003/134: Fixed doc, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 997ae52 001/134: Initial, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti bd06cf1 004/134: Added mode-map and menu,
Stefan Monnier <=
- [elpa] externals/olivetti 6533514 002/134: Added a bunch of custom options, allow body-width float, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti fd3d39d 006/134: Removed extraneous vars and fns, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 158db93 005/134: Added set-mode-line, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti af1d719 010/134: Revert "Using run-window-configuration-change-hook fn", Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 5cfe277 020/134: Changed body-width standard-value to 80, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 514bc46 009/134: Using run-window-configuration-change-hook fn, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 2363de6 008/134: Fixed margin reset on exit, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 885fb20 019/134: Added minimum-body-width, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 06bf86f 016/134: Add hook when changing fonts, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 30e3cbe 014/134: Added README/Commentary, Stefan Monnier, 2019/04/25