blob: 1e3cdb23f7f76c27816929c247f09e4f5a4d7693 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
;; Org Clock
(defun bard/org-clock-report ()
(interactive)
(bard/new-org-buffer)
(org-clock-report))
(defun bard/org-clock-update-mode-line ()
(interactive)
(setq org-mode-line-string nil)
(force-mode-line-update))
(defun bard/org-clock-task-string ()
"Return a simplified org clock task string."
(if (and (boundp 'org-mode-line-string)
(not (string-equal "" org-mode-line-string))
org-mode-line-string)
(substring-no-properties org-mode-line-string)
"No task clocked in"))
(defun bard/open-calendar ()
"Opens calendar as only window"
(interactive)
(calendar)
(delete-other-windows))
;; Org Agenda
(defun bard/choose-agenda ()
"For viewing my custom agenda"
(interactive)
(let ((agenda-views '("Default" "Monthly" "Yearly")))
(setq chosen-view (completing-read "Choose an agenda view: " agenda-views))
(cond
((string= chosen-view "Yearly")
(org-agenda nil "Y"))
((string= chosen-view "Monthly")
(org-agenda nil "M"))
((string= chosen-view "Default")
(org-agenda nil "D")))))
(defun bard/default-agenda ()
"For viewing my custom agenda"
(interactive)
(org-agenda nil "D"))
(provide 'bard-calendar)
;;; bard-calendar.el ends here
|
