From mboxrd@z Thu Jan 1 00:00:00 1970 From: Russell Adams Subject: New Screencast: Setting Up Org-mode for Windows Date: Fri, 5 Nov 2010 16:52:05 -0500 Message-ID: <20101105215205.GH4528@x201> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from [140.186.70.92] (port=57411 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PEUCh-0003rZ-Jo for emacs-orgmode@gnu.org; Fri, 05 Nov 2010 17:52:12 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PEUCg-0001qP-96 for emacs-orgmode@gnu.org; Fri, 05 Nov 2010 17:52:11 -0400 Received: from squirtle.drak.net ([72.52.144.201]:50756) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PEUCg-0001qH-3D for emacs-orgmode@gnu.org; Fri, 05 Nov 2010 17:52:10 -0400 Received: from 206.180.155.43.adsl.hal-pc.org ([206.180.155.43] helo=localhost) by squirtle.drak.net with esmtpsa (TLSv1:AES128-SHA:128) (Exim 4.69) (envelope-from ) id 1PEUCe-0004pw-8k for emacs-orgmode@gnu.org; Fri, 05 Nov 2010 16:52:08 -0500 Content-Disposition: inline List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode 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 "") '(lambda () (interactive) (when (eq major-mode 'org-mode) (org-insert-time-stamp nil t t) (insert "\n"))))