emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] Re: New Org-mode talk by Carsten Dominik


From: Daniel Martins
Subject: Re: [Orgmode] Re: New Org-mode talk by Carsten Dominik
Date: Tue, 16 Mar 2010 14:17:22 -0300

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.

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 <address@hidden>:
>
> 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
>> <address@hidden> 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.
>>> address@hidden
>>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>>
>>
>>
>>
>> --
>> Manuel
>
> - Carsten
>
>
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>




reply via email to

[Prev in Thread] Current Thread [Next in Thread]