Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Elegant Emacs daily agenda
(defun elegant-agenda (char-width char-height)
""
(interactive)
(select-frame (make-frame))
(set-frame-width (selected-frame) char-width)
(set-frame-height (selected-frame) char-height)
(set-frame-position (selected-frame)
(/ (- (display-pixel-width) (frame-outer-width)) 2)
(/ (- (display-pixel-height) (frame-outer-height)) 2))
(x-focus-frame nil)
(switch-to-buffer (generate-new-buffer "*today*"))
(org-mode)
(setq line-spacing 8)
(face-remap-add-relative
'header-line '(:family "Yanone Kaffeesatz"
:height 2.0 :weight thin
:foreground "#000000" :background "#ffffff"
:underline nil :overline nil :box nil))
(face-remap-add-relative 'default '(:family "Yanone Kaffeesatz"
:height 1.5 :weight thin))
(face-remap-add-relative 'italic '(:foreground "orange"))
(face-remap-add-relative 'bold '(:height 1.1 :weight light))
(face-remap-add-relative 'org-link '(:foreground "black"))
(setq mode-line-format nil)
(setq header-line-format
"— T O D A Y ————————————————————————————————————————————————"))
(elegant-agenda 72 40)
(insert
"
*A G E N D A*
~10:00 to 11:00 ...................... Interview for the PhD position (skype)~
14:00 to 15:00 ...................... Meeting with Arthur (see [[ ][notes]])
16:00 to 18:00 ...................... Team meeting
*T A S K S*
Finish the new agenda layout /(2 days late)/
Package the elegant emacs theme
Write review for ReScience C (due in 3 days)
*N O T E S*
The font is available at fonts.google.com/specimen/Yanone+Kaffeesatz
This screenshot is only a mockup, no working code (yet).")
(setq cursor-type nil)
@rougier

This comment has been minimized.

Copy link
Owner Author

@rougier rougier commented Aug 1, 2020

Screenshot 2020-08-01 at 19 28 31

@fniessen

This comment has been minimized.

Copy link

@fniessen fniessen commented Oct 17, 2020

Dear Nicolas, FYI, you could be interested by some of my Org views, such as C-c a f . for showing Today's meetings and tasks.
Sections displayed:

  • Calendar
  • CollectBox (Unscheduled)
  • Due Today
  • Overdue
  • Scheduled
  • Completed Today

See https://github.com/fniessen/emacs-leuven/blob/master/org-leuven-agenda-views.txt.

(Best viewed using leuven-theme for having nicely colored titles.)

@rougier

This comment has been minimized.

Copy link
Owner Author

@rougier rougier commented Oct 17, 2020

Waoh, impressive and very detailed and commented configuration. I've started reding it and it's great you had plenty of comments. I'm still fighting to design my GTD workflow, this will be useful. By the way, it would be great to have some screenshots illustrating the different agenda commands.

@fniessen

This comment has been minimized.

Copy link

@fniessen fniessen commented Oct 18, 2020

You can also have a look at my Emacs configuration, my idea being to have something that can compare to modern editors, by adding what I found "necessary" to have a great Emacs experience -- provided that the packages are found on your system (otherwise, that part of the configuration is simply skipped, so that the Emacs-Leuven "library" can be "universally" used, without harm).

You're right about the screenshots. That'd be a good addition.

PS- Would you have PR (on whatever), they'd be welcome!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment