[elpa] externals/adaptive-wrap fb4aa4e 06/15: * adaptive-wrap.el (menu-bar-options-menu): Add checkbox for Adaptive Wrap

[Stefan Monnier]

branch: externals/adaptive-wrap
commit fb4aa4eacaba40fe4dd59306f4a778deb932488b
Author: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
Commit: Stephen Berman <stephen.berman@gmx.net>

    * adaptive-wrap.el (menu-bar-options-menu): Add checkbox for Adaptive Wrap
    to the Line Wrapping submenu.
    (adaptive-wrap-unload-function): New function.
---
 adaptive-wrap.el | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/adaptive-wrap.el b/adaptive-wrap.el
index 1b3ff94..9d2007a 100644
--- a/adaptive-wrap.el
+++ b/adaptive-wrap.el
@@ -1,10 +1,10 @@
 ;;; adaptive-wrap.el --- Smart line-wrapping with wrap-prefix
 
-;; Copyright (C) 2011, 2012  Free Software Foundation, Inc.
+;; Copyright (C) 2011-2013  Free Software Foundation, Inc.
 
 ;; Author: Stephen Berman <stephen.berman@gmx.net>
 ;;         Stefan Monnier <monnier@iro.umontreal.ca>
-;; Version: 0.2
+;; Version: 0.3
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -101,5 +101,25 @@ extra indent = 2
         (widen)
         (remove-text-properties (point-min) (point-max) '(wrap-prefix nil))))))
 
+;;;###autoload
+(easy-menu-add-item menu-bar-options-menu
+                    '("Line Wrapping in This Buffer")
+                    ["Adaptive Wrap"
+                     (lambda ()
+                       (interactive)
+                      (if adaptive-wrap-prefix-mode
+                          (adaptive-wrap-prefix-mode -1)
+                        (adaptive-wrap-prefix-mode 1)))
+                     :visible (menu-bar-menu-frame-live-and-visible-p)
+                     :help "Show wrapped long lines with an adjustable prefix"
+                     :style toggle
+                     :selected adaptive-wrap-prefix-mode])
+
+(defun adaptive-wrap-unload-function ()
+  "Cleanup adaptive-wrap package."
+  (easy-menu-remove-item menu-bar-options-menu
+                         '("Line Wrapping in This Buffer")
+                         "Adaptive Wrap"))
+
 (provide 'adaptive-wrap)
 ;;; adaptive-wrap.el ends here