Re: New Screencast: Setting Up Org-mode for Windows

[Carsten Dominik <carsten.dominik@gmail.com>]

Hi Russel,

Just looked at the screencast over breakfast (I am in Austin right  
now..)
Great work!  Is this already linked from Worg?

- Carsten

On Nov 5, 2010, at 4:52 PM, Russell Adams wrote:

> 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"))))
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode