From 535b0ff17eee8edac5a0a39a85dbdf28ab9d2670 Mon Sep 17 00:00:00 2001 From: lxsameer Date: Sun, 2 Jan 2011 19:48:32 +0330 Subject: [PATCH] get rid of toolbar and scroll bar --- src/lib/menu.el | 6 +++++- src/lib/modes.el | 9 ++++++++- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/src/lib/menu.el b/src/lib/menu.el index 6f18177..b58f9ce 100644 --- a/src/lib/menu.el +++ b/src/lib/menu.el @@ -48,4 +48,8 @@ ;; (define-key-after global-map [menu-bar file new-proj phpproj] (cons "PHP" (make-sparse-keymap "php-proj")) 'pyproj) ) -;; TODO: build a menu destructor \ No newline at end of file +(defun menu/destruct-menu () + "Remove Shit provided menu form emacs menus" + (global-unset-key [menu-bar file new-proj]) + + ) \ No newline at end of file diff --git a/src/lib/modes.el b/src/lib/modes.el index f8da909..6195f33 100644 --- a/src/lib/modes.el +++ b/src/lib/modes.el @@ -85,6 +85,9 @@ This mode provide a basic configuration for an IDE." (let () ;; before initiazing mode (run-hooks shit-preinit-mode-hook) + ;; i really found toolbar and scrollbar useless so i disabled them + (if tool-bar-mode (tool-bar-mode)) + (if scroll-bar-mode (scroll-bar-mode)) (menu/init-menu) ;; after mode was initialized (run-hooks shit-postinit-mode-hook) @@ -93,7 +96,11 @@ This mode provide a basic configuration for an IDE." (let () ;; before deactivating mode (run-hooks shit-prerm-mode-hook) - + + ;; return everything to normal + (if (not tool-bar-mode) (tool-bar-mode)) + (if (not scroll-bar-mode) (scroll-bar-mode)) + (menu/destruct-menu) ;; after deactivating mode (run-hooks shit-postrm-mode-hook) )