From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?utf-8?Q?S=C3=A9bastien_Vauban?= Subject: Re: Agenda view > Face for deadlines > PATCH Date: Thu, 12 Aug 2010 10:34:30 +0200 Message-ID: <87zkws5iw9.fsf@mundaneum.com> References: <87vdasfb1w.fsf@mundaneum.com> <87r5l94ozf.fsf@mundaneum.com> <87d3wrh82w.fsf_-_@mundaneum.com> <877hmxaedn.fsf@mundaneum.com> <8E1C97F0-8A90-4C39-A0A5-A2146E875795@gmail.com> <87sk3o76se.fsf@mundaneum.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hi all, S=C3=A9bastien Vauban wrote: > Carsten Dominik wrote: >> S=C3=A9bastien Vauban wrote: >>> S=C3=A9bastien Vauban wrote: >>>> S=C3=A9bastien Vauban wrote: >>>>> >>>>> In the same kind of thought, trying to enhance the way we (or I) >>>>> visualize tasks in the agenda, I have chosen some sort of "inverse >>>>> video" face for deadlines. >>>>> >>>>> (my-org-deadline-yesterday ((t (:foreground "white" :background "#D80= 000" :weight bold)))) >>>>> (my-org-deadline-today ((t (:foreground "white" :background "#E9A36A"= :weight bold)))) >>>>> (my-org-deadline-tomorrow ((t (:foreground "black" :background "#B4F1= B3" :weight bold)))) >>>>> (my-org-deadline-later ((t (:foreground "black" :background "#AACAFC"= )))) >>>>> >>>>> [...] >>>>> >>>>> The result is the following: >>>>> >>>>> Week-agenda (W20-W21): >>>>> 2010-05-18 Tue ______________________________________________________= ___________ >>>>> Personal: 17:15-17:20 Sarah! :hom= e::errands: >>>>> refile: Sched. 2x: TODO [#A] Update reservations Scorpios = :refile:: >>>>> x Family: xxx In -1 d.: TODO [#A] Photos-reportage Andre xxxx :home= ::computer: >>>>> >>>>> where the `x' are just some textual way to represent background color. >>>>> >>>>> For the sake of clarity, I'd like the first 2 characters (in front of >>>>> `Family', in my example) not to be "impacted" by that face. Otherwise, >>>>> when in inverse video, they obfuscate the view of the day separators = and >>>>> of the deadline lines. Still trying to solve this, now that I have learned a bit more (but, still only a bit...) on debugging Lisp code. I've (on purpose) "forgotten" all I did and found in the past (june-july), = to start again from scratch, and be sure I identify the right defuns to work o= n. So, to resume, my *goal* is to try applying a face with white background (in my case) on the first 2 characters of every TODO line appearing in the agen= da. But, question: *which defun* does do that? How to find that information? I instrumented the org packages with ELP, and got many function calls. I searched for functions that were called at least as many times as the number of lines I have in my weekly agenda. (is there a better way to _trace_ function calls, and see a call tree? `M-x trace', mabye, but it did not help me a lot so far -- maybe lacking experience) By stepping through some functions, I've understood that the functions that interest me are the following: org-agenda-list -> org-finalize-agenda-entries -> *org-agenda-highlight-todo* Though, what I really don't understand is that I `C-u C-M-x' the function =3Dorg-agenda-highlight-todo=3D, and then call =3Dorg-agenda-list=3D, expec= ting to trace the function that *highlights every TODO line* of my agenda. And... no, *edebug is not launched*!? I really don't understand that... On the contrary, executing `C-c a s' does stop me in that function. So, the function has *well been instrumented*. Any idea about which wrong direction I'm taking? Best regards, Seb --=20 S=C3=A9bastien Vauban _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode-mXXj517/zsQ@public.gmane.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode