New Screencast: Setting Up Org-mode for Windows

[Russell Adams <RLAdams@AdamsInfoServ.Com>]

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                            RLAdams@AdamsInfoServ.com

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"))))