Skip to content

Instantly share code, notes, and snippets.

@myuhe

myuhe/*scratch*.el

Last active August 29, 2015 14:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save myuhe/ac7e330b409ead2a76f5 to your computer and use it in GitHub Desktop.
Save myuhe/ac7e330b409ead2a76f5 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
*scratch*.el
(defun cfw:open-calendar ()
"Simple calendar interface. This command displays just one
calendar source."
(interactive)
(let ((cp
(cfw:create-calendar-component-buffer
:view 'month
:contents-sources
(list
(cfw:org-create-file-source "schedule" "~/schedule.org" "#268bd2")
(cfw:org-create-file-source "Task" "~/Tasks.org" "#dc322f")
))))
(switch-to-buffer (cfw:cp-get-buffer cp))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment