Skip to content

Instantly share code, notes, and snippets.

@rougier
Created August 1, 2020 17:48
Show Gist options
  • Save rougier/ddb84c16c28f7cd75e27e50d4c3c43da to your computer and use it in GitHub Desktop.
Save rougier/ddb84c16c28f7cd75e27e50d4c3c43da to your computer and use it in GitHub Desktop.
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
Copy link
Author

rougier commented Aug 1, 2020

Screenshot 2020-08-01 at 19 28 31

@fniessen
Copy link

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
Copy link
Author

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
Copy link

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