Re: Re: New Org-mode talk by Carsten Dominik

From: Carsten Dominik <carsten.dominik@gmail.com>
To: Daniel Martins <danielemc@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Re: New Org-mode talk by Carsten Dominik
Date: Thu, 18 Mar 2010 07:02:44 +0100	[thread overview]
Message-ID: <E606A06D-BDBE-415F-8A63-DC403966C5A6@gmail.com> (raw)
In-Reply-To: <6ac505ad1003161017x73a5c9ej1e6432cea88b674@mail.gmail.com>

On Mar 16, 2010, at 6:17 PM, Daniel Martins wrote:

> I found a "minor" bug in cd-colors.el
>
>
> I use a variation of background/foreground according to day/night
> environments as suggested in
>
> http://www.jurta.org/en/emacs/dotemacs
>
> and which I reproduce below
>
> But using cd-colors and the day option which means
>
>  (set-background-color "white")
>  (set-foreground-color "black")
>
> I notice that the face org-hide remains black.

I think that many of these faces will not work properly with a white  
background - they are all only for a dark background.  I would have  
thought that the entire scheme is unusable with white.

- Carsten

>
> As I use
>
>
>
> (setq org-hide-leading-stars t)
>
>
> this is not quite convenient.
>
> So I commented the line of org-hide in cd-colors and everything  
> worked fine!
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>       `(org-tag ((t (:foreground ,tag))))
> ;;       `(org-hide ((t (:foreground "#191919"))))
>       `(org-todo ((t (:background ,todo-bg :foreground  
> "white" ,@box))))
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> Daniel
>
> PS here is the text of my .emacs that I commented above
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
>
>
> ;;; colors
>
> (defun my-colors-light (&optional frame)
>  "Set colors suitable for working in light environments,
> i.e. in daylight or under bright electric lamps."
>  (interactive)
>  (setq frame-background-mode 'light)
>  (if frame
>      (select-frame frame)
>    (setq frame (selected-frame)))
>  ;; The color with minimal eye fatigue in light environments
>  ;; is "AntiqueWhite3" (RGB: 205 192 176),
>  ;; (set-background-color "AntiqueWhite3")
>  (set-background-color "white")
>  (set-foreground-color "black")
>  (when (facep 'region)
>    (set-face-background 'region "DarkGrey" frame))
>  (when (facep 'fringe)
>    (set-face-background 'fringe (face-background 'default) frame)
>    (set-face-foreground 'fringe (face-foreground 'default) frame))
>  ;; When started Emacs under root, warn by red color in the modeline
>  (when (and (facep 'mode-line)
>             (file-exists-p "/root")
>             (file-writable-p "/root"))
>    (set-face-background 'mode-line "firebrick")))
>
> (define-key global-map [f6 ?c ?d] 'my-colors-light) ;; c color d day
>
> (defun my-colors-dark (&optional frame)
>  "Set colors suitable for working in the darkness without  
> electricity."
>  (interactive)
>  (setq frame-background-mode 'dark)
>  (if frame
>      (select-frame frame)
>    (setq frame (selected-frame)))
>  (set-background-color "black")
>  (set-foreground-color "DarkGrey")
>  (when (facep 'region)
>    (set-face-background 'region "DimGray" frame))
>  (when (facep 'fringe)
>    (set-face-background 'fringe (face-background 'default) frame)
>    (set-face-foreground 'fringe (face-foreground 'default) frame)))
>
> (define-key global-map [f6 ?c ?n] 'my-colors-dark) ;; c color n night
>
> ;; Automatically switch to dark background after sunset
> ;; and to light background after sunrise.
> ;; (Note that `calendar-latitude' and `calendar-longitude'
> ;;  should be set before calling the `solar-sunrise-sunset')
> (defun my-colors-set (&optional frame)
>  (interactive)
>  (require 'solar)
>  (if (and calendar-latitude calendar-longitude calendar-time-zone)
>      (let* ((l (solar-sunrise-sunset (calendar-current-date)))
>             (sunrise-string (apply 'solar-time-string (car l)))
>             (sunset-string (apply 'solar-time-string (car (cdr l))))
>             (current-time-string (format-time-string "%H:%M")))
>        (if (or (string-lessp current-time-string sunrise-string)
>                (string-lessp sunset-string current-time-string))
>            (my-colors-dark frame)
>          (my-colors-light frame))
>        (if (and (boundp 'my-sunset-timer)  (timerp my-sunset-timer))
>            (cancel-timer my-sunset-timer))
>        (if (and (boundp 'my-sunrise-timer) (timerp my-sunrise-timer))
>            (cancel-timer my-sunrise-timer))
>        (setq my-sunset-timer  (run-at-time sunset-string  (* 60 60 24)
>                                            'my-colors-dark))
>        (setq my-sunrise-timer (run-at-time sunrise-string (* 60 60 24)
>                                            'my-colors-light)))))
>
>
> (my-colors-set)
> (add-to-list 'after-make-frame-functions 'my-colors-set)
>
>
>
>
>
>
> 2010/3/9 Carsten Dominik <carsten.dominik@gmail.com>:
>>
>> On Mar 7, 2010, at 7:51 PM, Manuel Amador wrote:
>>
>>> Carsten,
>>>
>>> Can we get a copy of the color configuration you are using?
>>>
>> -- Manuel
>>
>> Yes, I have put my color config here:
>>
>> http://orgmode.org/cd-colors.el
>>
>> This started as a copy of Peter Jones config and was then edited  
>> and hacked
>> - which is why it may not be in the most convenient shape.  Feel  
>> free to
>> package it up nicely and send me a better version.
>>
>> You also need something like this, adapted to your todo keywords.
>>
>> (setq org-todo-keyword-faces
>>      '(("SDMB" . cd-org-someday-kwd-face)
>>        ("STARTED" . cd-org-started-kwd-face)
>>        ("STRT" . cd-org-started-kwd-face)
>>        ("WAITING" . cd-org-waiting-kwd-face)
>>        ("WAIT" . cd-org-waiting-kwd-face)
>>        ("DELG" . cd-org-delegated-kwd-face)
>>        ("PROJ" . cd-org-project-kwd-face)
>>        ("DONE" . cd-org-done-kwd-face)
>>        ("PRDN" . cd-org-done-kwd-face)
>>        ("PRCL" . cd-org-cancelled-kwd-face)
>>        ("CNCL" . cd-org-cancelled-kwd-face)
>>        ("PRCN" . cd-org-cancelled-kwd-face)
>>        ("TODO" . cd-org-todo-kwd-face)
>>        ("SELECTED" . cd-org-todo-kwd-face)
>>        ("INVITED" . cd-org-waiting-kwd-face)
>>        ("SCHEDULED" . cd-org-done-kwd-face)
>>        ("DECLINED" . cd-org-cancelled-kwd-face)))
>>
>>
>> Cheers!
>>
>> - Carsten
>>
>>>
>>> On Sun, Mar 7, 2010 at 7:39 AM, Carsten Dominik
>>> <carsten.dominik@gmail.com> wrote:
>>>>
>>>> On Mar 7, 2010, at 1:50 PM, Tom wrote:
>>>>
>>>>> Stefan Vollmar <vollmar <at> nf.mpg.de> writes:
>>>>>
>>>>>>
>>>>>> Hallo,
>>>>>>
>>>>>> we proudly present:
>>>>>>
>>>>>> "Emacs Org-mode: Organizing a Scientist's Life and Work"
>>>>>>
>>>>>
>>>>> I noticed the org color config in the talk was much
>>>>> catchier (e.g. the keywords with bgcolor) than in the default org
>>>>> config. It would be a good idea to make org more appealing by
>>>>> coming up with a sexier color scheme. The appearance of org on
>>>>> the main page of orgmode.org is very spartan and can be a turn
>>>>> off for newbies who are used to applications with a more
>>>>> elaborate visual design.
>>>>>
>>>>> I think a better choice of default colors could improve the first
>>>>> impression a bit. Maybe people could send to the list screenshots
>>>>> of their config and one of the better ones could be used as a new
>>>>> default.
>>>>
>>>> The problem I see here is that if a new user downloads Emacs,
>>>> it will have white background and only default colors.
>>>>
>>>> I could of course make the screenshot on orgmode.org with my
>>>> color scheme[1], but then new users would not like the first
>>>> impression they get when they download emacs and install Org.
>>>>
>>>> I am interested in a discussion about how to handle this issue.
>>>>
>>>> - Carsten
>>>>
>>>> [1] The color scheme is based on the scheme by Peter Jones, who
>>>>   in particular came up with the idea to make the TODO keywords  
>>>> look
>>>>   like buttons.  I use that idea, but with different colors.  The
>>>>   exact colors were not my creation, because I am really not  
>>>> talended
>>>>   in this area.  But I agree they look great - they were selected
>>>>   by the same designer who created the special logo used on all
>>>>   our spreadshirt shop items...
>>>>
>>>>
>>>>
>>>> _______________________________________________
>>>> Emacs-orgmode mailing list
>>>> Please use `Reply All' to send replies to the list.
>>>> Emacs-orgmode@gnu.org
>>>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>>>
>>>
>>>
>>>
>>> --
>>> Manuel
>>
>> - Carsten
>>
>>
>>
>>
>>
>> _______________________________________________
>> Emacs-orgmode mailing list
>> Please use `Reply All' to send replies to the list.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>

- Carsten