Red background color when editing a file as root (using TRAMP)

Red background color when editing a file as root (using TRAMP)

[Nordlöw]

I would like to visually hint that I am editing a buffer as root
(using TRAMP) by setting the background to a slightly more red color.
What hooks are involved?

/Nordlöw

Re: Red background color when editing a file as root (using TRAMP)

[Paul R]

On Thu, 13 Nov 2008 22:48:26 -0800 (PST), Nordlöw <per.nordlow@gmail.com> said:

Nordlöw> I would like to visually hint that I am editing a buffer as
Nordlöw> root (using TRAMP) by setting the background to a slightly more
Nordlöw> red color. What hooks are involved?

Exemple to change the header line :

(defun my-tramp-header-line-function ()
  (when (string-match "^/su\\(do\\)?:" default-directory)
    (setq header-line-format
	  (format-mode-line "----- THIS BUFFER IS VISITED WITH ROOT PRIVILEGES -----"
			    'font-lock-warning-face))))

(add-hook 'find-file-hooks 'my-tramp-header-line-function)
(add-hook 'dired-mode-hook 'my-tramp-header-line-function)

-- 
  Paul

Re: Red background color when editing a file as root (using TRAMP)

[Nordlöw]

On 14 Nov, 10:06, Paul R <paul.r...@gmail.com> wrote:
> On Thu, 13 Nov 2008 22:48:26 -0800 (PST), Nordlöw <per.nord...@gmail.com> said:
>
> Nordlöw> I would like to visually hint that I am editing a buffer as
> Nordlöw> root (using TRAMP) by setting the background to a slightly more
> Nordlöw> red color. What hooks are involved?
>
> Exemple to change the header line :
>
> (defun my-tramp-header-line-function ()
>   (when (string-match "^/su\\(do\\)?:" default-directory)
>     (setq header-line-format
>           (format-mode-line "----- THIS BUFFER IS VISITED WITH ROOT PRIVILEGES -----"
>                             'font-lock-warning-face))))
>
> (add-hook 'find-file-hooks 'my-tramp-header-line-function)
> (add-hook 'dired-mode-hook 'my-tramp-header-line-function)
>
> --
>   Paul

How do I buffer-locally set the background color?

/Nordlöw

Re: Red background color when editing a file as root (using TRAMP)

[Kevin Rodgers]

Nordlöw wrote:
> How do I buffer-locally set the background color?

You can't: background color is a frame parameter, so it can be set
local to each frame but not each buffer.

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: Red background color when editing a file as root (using TRAMP)

[Andreas Politz]

Kevin Rodgers wrote:
> Nordlöw wrote:
>> How do I buffer-locally set the background color?
> 
> You can't: background color is a frame parameter, so it can be set
> local to each frame but not each buffer.
> 

You can fake it with an overlay. But this works only on the non-empty
parts of a buffer.

(let ((ov (make-overlay (point-min) (point-max) (current-buffer) nil t)))
   (overlay-put ov 'face '(:background "red")))

-ap

Re: Red background color when editing a file as root (using TRAMP)

[Johan Bockgård]

Andreas Politz <politza@fh-trier.de> writes:

> Kevin Rodgers wrote:
>> Nordlöw wrote:
>>> How do I buffer-locally set the background color?
>>
>> You can't: background color is a frame parameter, so it can be set
>> local to each frame but not each buffer.
>>
>
> You can fake it with an overlay. But this works only on the non-empty
> parts of a buffer.
>
> (let ((ov (make-overlay (point-min) (point-max) (current-buffer) nil t)))
>   (overlay-put ov 'face '(:background "red")))

In Emacs 23 you can use

    (set (make-local-variable 'face-remapping-alist)
         '((default (:background "red"))))

(which has the same limitation).