I've just posted a new thirty minute screencast on setting up Org-mode
in Windows to Vimeo.
http://vimeo.com/16533939
Included are:
- Downloading and configuring Emacs for Windows
- Downloading and installing the latest Org-mode
- Setting up a working agenda
- Setting up capture for the agenda
- Windows native popup reminders from Agenda entries
- Setting up and use of one touch timestamps
Under my sig are the snippets I used in the video.
Enjoy!
------------------------------------------------------------------
Russell Adams address@hidden
PGP Key ID: 0x1160DCB3 http://www.adamsinfoserv.com/
Fingerprint: 1723 D8CA 4280 1EC9 557F 66E8 1154 E018 1160 DCB3
----------------------------------------------------------------------
;;; Agenda Icon Shortcut: "C:\Program Files\emacs-23.2\bin
\runemacs.exe" -f org-agenda-list
;;;;;; start Popup.vbs
; On Error Resume Next
; Msgbox WScript.Arguments(0),0,"Org-Mode Agenda Reminder"
;;;;;; end
;; .emacs customizations
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Installing
;; Load org-mode
(add-to-list 'load-path "c:/Org/org-7.3/lisp")
(add-to-list 'load-path "c:/Org/org-7.3/contrib/lisp")
(require 'org)
;; The following lines are always needed. Choose your own keys.
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(add-hook 'org-mode-hook 'turn-on-font-lock) ; not needed when
global-font-lock-mode is on
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Capture
;; Capture
(global-set-key (kbd "C-c r") 'org-capture)
(setq org-capture-templates
'(("t" "Agenda Todo" entry
(file+headline "c:/Org/MyAgenda.org" "Agenda")
"\n\n** TODO %?\n%T\n\n%i\n%a\n\n\n"
:empty-lines 1)
("n" "Agenda Notes" entry
(file+headline "c:/Org/MyAgenda.org" "Agenda")
"\n\n** %?\n%T\n%i\n%a\n\n\n"
:empty-lines 1)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Popups
;; Get appointments for today
(defun my-org-agenda-to-appt ()
(interactive)
(setq appt-time-msg-list nil)
(run-at-time "24:01" nil 'my-org-agenda-to-appt)
(let ((org-deadline-warning-days 0)) ;; will be automatic in
org 5.23
(org-agenda-to-appt)))
;;; Disabled so that I can open multiple emacs without org loading
agenda files.
(appt-activate t)
;; 5 minute warning
(setq appt-message-warning-time '60)
(setq appt-display-interval '15)
;; Update appt each time agenda opened.
(add-hook 'org-finalize-agenda-hook 'my-org-agenda-to-appt)
;; Setup agenda popup, we tell appt to use window, and replace
default function
(setq appt-display-format 'window)
(setq appt-disp-window-function (function my-appt-disp-window))
(defun my-appt-disp-window (min-to-app new-time msg)
(save-window-excursion
(shell-command
(concat
"c:/windows/system32/cscript.exe //nologo c:/Org/Popup.vbs \""
msg "\"") nil nil)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Timestamps
;; Insert immediate timestamp
(setq org-agenda-skip-additional-timestamps nil)
(define-key global-map (kbd "<f9>")
'(lambda () (interactive)
(when (eq major-mode 'org-mode)
(org-insert-time-stamp nil t t)
(insert "\n"))))
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode