Function for enabling or disabling emacs bars

Function for enabling or disabling emacs bars

[angelomolina--- via Users list for the GNU Emacs text editor]

Would like to have a function that enables or disables emacs bars.  Perhaps using an optional
argument for this?

(defun emacsbars ()
  "Enables or disables Emacs Bars"
  (menu-bar-mode 1)
  (tool-bar-mode 1)
  (scroll-bar-mode 1))

RE: [External] : Function for enabling or disabling emacs bars

[Drew Adams]

[-- Attachment #1: Type: text/plain, Size: 314 bytes --]

Enabling Emacs bars...

Haven't yet come across an Emacs bar.

But I like the idea!  Easily customize crazily
concocted potables, engage the Doctor in deep
bar-room chit-chat,...

So I vote for _enabling_.  With a GPL license,
of course.  That's free for all.
___

No libation without representation!

[-- Attachment #2: winmail.dat --]
[-- Type: application/ms-tnef, Size: 13263 bytes --]

RE: [External] : Function for enabling or disabling emacs bars

[angelomolina--- via Users list for the GNU Emacs text editor]

Mar 5, 2022, 16:54 by drew.adams@oracle.com:

> Enabling Emacs bars...
>
> Haven't yet come across an Emacs bar.
>
I want a function that good to enable all three to value 1, and also to disable all three with value -1.


> But I like the idea!  Easily customize crazily
> concocted potables, engage the Doctor in deep
> bar-room chit-chat,...
>
> So I vote for _enabling_.  With a GPL license,
> of course.  That's free for all.
> ___
>
> No libation without representation!
>

Re: Function for enabling or disabling emacs bars

[GNU Hacker]

angelomolina--- via Users list for the GNU Emacs text editor
<help-gnu-emacs@gnu.org> writes:

> Would like to have a function that enables or disables emacs bars.  Perhaps using an optional
> argument for this?

> (defun emacsbars ()
>  "Enables or disables Emacs Bars"
>  (menu-bar-mode 1)
>  (tool-bar-mode 1)
>  (scroll-bar-mode 1))

#+begin_src elisp

(defun emacsbars (&optional num)
  "Enables or disables Emacs Bars"
  (interactive "p")
  (menu-bar-mode num)
  (tool-bar-mode num)
  (scroll-bar-mode num))
  
#+end_src

Try with:

M-x emacsbars RET --> show bars

C-u  -1  M-x emacsbars RET --> hide bars

-- 
Emacs Lover.
FSF Member.
Free/Libre Software supporter.
stallmansupport.org - Disinformation succeeds because so many people
care deeply about injustice but do not take the time to check the facts.

Re: Function for enabling or disabling emacs bars

[Emanuel Berg via Users list for the GNU Emacs text editor]

GNU Hacker wrote:

> (defun emacsbars (&optional num)
>   "Enables or disables Emacs Bars"
>   (interactive "p")
>   (menu-bar-mode num)
>   (tool-bar-mode num)
>   (scroll-bar-mode num))
>
> Try with:
>
> M-x emacsbars RET --> show bars
>
> C-u  -1  M-x emacsbars RET --> hide bars

Or:

(defun bars ()
 (interactive)
 (menu-bar-mode 'toggle)
 (let ((enable (if menu-bar-mode 1 -1)))
   (scroll-bar-mode enable)
   (tool-bar-mode   enable) ))

-- 
underground experts united
https://dataswamp.org/~incal

Re: Function for enabling or disabling emacs bars

[angelomolina--- via Users list for the GNU Emacs text editor]

Mar 14, 2022, 15:02 by project@gnuhacker.org:

> angelomolina--- via Users list for the GNU Emacs text editor
> <help-gnu-emacs@gnu.org> writes:
>
>> Would like to have a function that enables or disables emacs bars.  Perhaps using an optional
>> argument for this?
>>
>> (defun emacsbars ()
>>  "Enables or disables Emacs Bars"
>>  (menu-bar-mode 1)
>>  (tool-bar-mode 1)
>>  (scroll-bar-mode 1))
>>
>
> #+begin_src elisp
>
> (defun emacsbars (&optional num)
>  "Enables or disables Emacs Bars"
>  (interactive "p")
>  (menu-bar-mode num)
>  (tool-bar-mode num)
>  (scroll-bar-mode num))
>  
> #+end_src
>
> Try with:
>
> M-x emacsbars RET --> show bars
>
> C-u  -1  M-x emacsbars RET --> hide bars
>

Could I also call it using  (emacsbars  1)  and  (emacsbars  -1)  ?


> -- 
> Emacs Lover.
> FSF Member.
> Free/Libre Software supporter.
> stallmansupport.org - Disinformation succeeds because so many people
> care deeply about injustice but do not take the time to check the facts.
>

Re: Function for enabling or disabling emacs bars

[Emanuel Berg via Users list for the GNU Emacs text editor]

angelomolina--- via Users list for the GNU Emacs text editor wrote:

>> (defun emacsbars (&optional num)
>>  "Enables or disables Emacs Bars"
>>  (interactive "p")
>>  (menu-bar-mode num)
>>  (tool-bar-mode num)
>>  (scroll-bar-mode num))
>>  
>> #+end_src
>>
>> Try with:
>>
>> M-x emacsbars RET --> show bars
>>
>> C-u  -1  M-x emacsbars RET --> hide bars
>>
>
> Could I also call it using (emacsbars 1) and
> (emacsbars -1)?

Try it and find out!

But the answer is yes ...

Note that calling it without and argument from Lisp implies
nil which strangely enough implies enable!

-- 
underground experts united
https://dataswamp.org/~incal

Re: Function for enabling or disabling emacs bars

[GNU Hacker]

angelomolina@tutanota.com writes:
> Mar 14, 2022, 15:02 by project@gnuhacker.org:

>>  (defun emacsbars (&optional num)
>>  "Enables or disables Emacs Bars"
>>  (interactive "p")
>>  (menu-bar-mode num)
>>  (tool-bar-mode num)
>>  (scroll-bar-mode num))

>>  Try with:
>>  M-x emacsbars RET --> show bars
>>  C-u -1 M-x emacsbars RET --> hide bars

> Could I also call it using (emacsbars 1) and (emacsbars -1) ?

Yes it also work

-- 
Emacs Lover.
FSF Member.
Free/Libre Software supporter.
stallmansupport.org - Disinformation succeeds because so many people
care deeply about injustice but do not take the time to check the facts.

Re: Function for enabling or disabling emacs bars

[angelomolina--- via Users list for the GNU Emacs text editor]

Mar 14, 2022, 20:00 by project@gnuhacker.org:

> angelomolina@tutanota.com writes:
>
>> Mar 14, 2022, 15:02 by project@gnuhacker.org:
>>
>>> (defun emacsbars (&optional num)
>>>  "Enables or disables Emacs Bars"
>>>  (interactive "p")
>>>  (menu-bar-mode num)
>>>  (tool-bar-mode num)
>>>  (scroll-bar-mode num))
>>>
>>> Try with:
>>>  M-x emacsbars RET --> show bars
>>>  C-u -1 M-x emacsbars RET --> hide bars
>>>
>> Could I also call it using (emacsbars 1) and (emacsbars -1) ?
>>
>
> Yes it also work
>
Thank you.  Do you know how to enable a minor-mode globally as I have only made
minor-modes activated with add-hook.



> -- 
> Emacs Lover.
> FSF Member.
> Free/Libre Software supporter.
> stallmansupport.org - Disinformation succeeds because so many people
> care deeply about injustice but do not take the time to check the facts.
>

Re: Function for enabling or disabling emacs bars

[GNU Hacker]

angelomolina--- via Users list for the GNU Emacs text editor
<help-gnu-emacs@gnu.org> writes:

> Would like to have a function that enables or disables emacs bars.  Perhaps using an optional
> argument for this?

> (defun emacsbars ()
>  "Enables or disables Emacs Bars"
>  (menu-bar-mode 1)
>  (tool-bar-mode 1)
>  (scroll-bar-mode 1))

Other form:

#+begin_src elisp

(defun emacsbars ()
  "Enables or disables Emacs Bars"
  (interactive)
  (menu-bar-mode 'toggle)
  (tool-bar-mode 'toggle)
  (scroll-bar-mode 'toggle))

#+end_src

M-x emacsbars

Try 2 times, is toggle!

-- 
Emacs Lover.
FSF Member.
Free/Libre Software supporter.
stallmansupport.org - Disinformation succeeds because so many people
care deeply about injustice but do not take the time to check the facts.

Re: Function for enabling or disabling emacs bars

[Emanuel Berg via Users list for the GNU Emacs text editor]

GNU Hacker wrote:

> Other form:
>
> (defun emacsbars ()
>   "Enables or disables Emacs Bars"
>   (interactive)
>   (menu-bar-mode 'toggle)
>   (tool-bar-mode 'toggle)
>   (scroll-bar-mode 'toggle))
>
> M-x emacsbars
>
> Try 2 times, is toggle!

Yeah but now try

(menu-bar-mode  1)
(tool-bar-mode -1)
M-x emacsbars RET

Rats!

-- 
underground experts united
https://dataswamp.org/~incal

Re: Function for enabling or disabling emacs bars

[Emanuel Berg via Users list for the GNU Emacs text editor]

Here is an interface that I think is consistent with other
minor mode interfaces that are the same (ha).

(defun bars (&optional arg)
 (interactive (list (or current-prefix-arg 'toggle)))
 (menu-bar-mode arg)
 (let ((enable (if menu-bar-mode 1 -1)))
   (scroll-bar-mode enable)
   (tool-bar-mode   enable) ))

;; Lisp use

;; enable on nil arg, no arg (which implies nil), or if arg is positive

(bars)     ; no arg -> optional arg nil -> enable
(bars nil) ; arg is nil -> enable
(bars 1)   ; arg positive -> enable

;;  disable if arg is negative

(bars -1) ; arg negative -> disable

;; toggle if arg is 'toggle

(bars 'toggle)

;; interactive use

;; M-x bars RET -> toggle (hard-coded interactive default)
;; C-u M-x bars RET -> arg is 4 -> arg positive -> enable
;; C-u -1 M-x bars RET -> arg is -1 -> arg negative -> disable

-- 
underground experts united
https://dataswamp.org/~incal