Planet Emacsen

elephant in the room · right now

199$[0-9]$$


  9\1)


#!/bin/sh
/usr/sness/emacs/bin/emacsclient -c -n -s sness $1


view_source.editor.external true
view_source.editor.path firefox-emacsclient

(setq org-link-abbrev-alist
      '(("RT" . "https://rt/Ticket/Display.html?id=")))

(setq org-remember-templates
      '(("Tasks" ?t "* TODO %?\n  %i\n  %a"            "~/organizer.org")
        ("Appts" ?a "* Appointment: %?\n%^T\n%i\n  %a" "~/organizer.org")
        ("RT"    ?R "* [[RT:%^{Number}][%^{Number}/%^{Description}]]" "~/org/rt.org")))

diff -u /home/sachac/elisp/org/org.el /tmp/buffer-content-4571Oz1

--- /home/sachac/elisp/org/org.el	2008-07-20 11:28:54.000000000 -0400
+++ /tmp/buffer-content-4571Oz1	2008-07-20 11:42:06.000000000 -0400
@@ -12822,38 +12822,52 @@
 	    (org-set-local 'org-remember-default-headline headline))
 	;; Interactive template entries
 	(goto-char (point-min))
-	(while (re-search-forward "%^\\({\\([^}]*\\)}\\)?\\([guUtT]\\)?" nil t)
-	  (setq char (if (match-end 3) (match-string 3))
-		prompt (if (match-end 2) (match-string 2)))
-	  (goto-char (match-beginning 0))
-	  (replace-match "")
-	  (cond
-	   ((member char '("G" "g"))
-	    (let* ((org-last-tags-completion-table
-		    (org-global-tags-completion-table
-		     (if (equal char "G") (org-agenda-files) (and file (list file)))))
-		   (org-add-colon-after-tag-completion t)
-		   (ins (completing-read
-			 (if prompt (concat prompt ": ") "Tags: ")
-			 'org-tags-completion-function nil nil nil
-			 'org-tags-history)))
-	      (setq ins (mapconcat 'identity
-				  (org-split-string ins (org-re "[^[:alnum:]]+"))
-				  ":"))
-	      (when (string-match "\\S-" ins)
+	(let (interactive-entries lookup)
+	  (while (re-search-forward "%^\\({\\([^}]*\\)}\\)?\\([guUtT]\\)?" nil t)
+	    (setq char (if (match-end 3) (match-string 3))
+		  prompt (if (match-end 2) (match-string 2))
+		  lookup (assoc prompt interactive-entries))
+	    (goto-char (match-beginning 0))
+	    (replace-match "")
+	    (cond
+	     ((member char '("G" "g"))
+	      (let* ((org-last-tags-completion-table
+		      (org-global-tags-completion-table
+		       (if (equal char "G") (org-agenda-files) (and file (list file)))))
+		     (org-add-colon-after-tag-completion t)
+		     (ins (if lookup
+			      (cdr lookup)
+			    (completing-read
+			     (if prompt (concat prompt ": ") "Tags: ")
+			     'org-tags-completion-function nil nil nil
+			     'org-tags-history))))
+		(if (null lookup)
+		    (setq interactive-entries (cons (cons prompt ins) interactive-entries)))
+		(setq ins (mapconcat 'identity
+				     (org-split-string ins (org-re "[^[:alnum:]]+"))
+				     ":"))
+		(when (string-match "\\S-" ins)
 		(or (equal (char-before) ?:) (insert ":"))
 		(insert ins)
 		(or (equal (char-after) ?:) (insert ":")))))
-	   (char
-	    (setq org-time-was-given (equal (upcase char) char))
-	    (setq time (org-read-date (equal (upcase char) "U") t nil
-				      prompt))
-	    (org-insert-time-stamp time org-time-was-given
-				   (member char '("u" "U"))
-				   nil nil (list org-end-time-was-given)))
-	   (t
-	    (insert (read-string
-		     (if prompt (concat prompt ": ") "Enter string"))))))
+	     (char
+	      (setq org-time-was-given (equal (upcase char) char))
+	      (setq time (if lookup (cdr lookup) (org-read-date (equal (upcase char) "U") t nil
+								prompt)))
+	      (if (null lookup)
+		  (setq interactive-entries (cons (cons prompt time) interactive-entries))
+		(org-insert-time-stamp time org-time-was-given
+				       (member char '("u" "U"))
+				       nil nil (list org-end-time-was-given))))
+	     (t
+	      (let ((text
+		     (if lookup
+			 (cdr lookup)
+		       (read-string
+			(if prompt (concat prompt ": ") "Enter string")))))
+		(insert (or text ""))
+		(if (null lookup)
+		    (setq interactive-entries (cons (cons prompt text) interactive-entries))))))))
 	(goto-char (point-min))
 	(if (re-search-forward "%\\?" nil t)
 	    (replace-match "")

(defadvice bbdb-read-new-record (after wicked activate)
  "Prompt for the birthdate as well."
  (bbdb-record-putprop ad-return-value 'birthdate
		       (bbdb-read-string "Birthdate (YYYY.MM.DD): ")))

(defvar *my-emms-bindings*
  '(("n" "emms-next")
    ("p" "emms-previous")
    ("s" "emms-stop")
    ("P" "emms-pause")))

(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "m")
  (let ((m (stumpwm:make-sparse-keymap)))
    (map nil #'(lambda (x)
                 (stumpwm:define-key m (stumpwm:kbd (car x))
                   (concat "exec emacsclient -e '(" (cadr x) ")'")))
         *my-emms-bindings*)
    m))

  * Bank accounts
    |Account | Credit card | Expiry date | Password |
    |-

* Banks

  |-----------------+------------------+----------|
  | Account         | Credit card      | password |
  |-----------------+------------------+----------|
  | The credit box  | 8180819999999333 | fooo     |
  | GNU Free Credit | 6969696969696969 | boobarp  |
  | Engineering Safe| 0000000111111111 | passwdd  |
  | paypal          |                  | paaassss |
  |-----------------+------------------+----------|

* Sites

  |-------------------------------+------------------------+
  | site                          | user        | password |
  |-------------------------------+------------------------+
  | http://www.gnu.org            | a user name | password |
  | http://journals.foo.org       | a user name | password |
  | http://philosophy.org         | a user name | password |
  | http://linkedin.com           | a user name | password |
  | http://www.pragpro.com        | a user name | password |
  | http://www.tug.org/members    | a user name | password |
  |-------------------------------+------------------------+

* Source code repositories...

;; Emacs 23: bundled EasyPG
(require 'epa)
(epa-file-enable)

;; EasyPG installed in path/to/epg
(add-to-list 'load-path "path/to/epg")
(require 'epa-setup)
(epa-file-enable)

-*- mode: org -*- -*- epa-file-encrypt-to: ("my_key_email@foo.org") -*-

(defun date-to-vernacular (then-date)
  (let ((delta (days-between then-date (current-time-string)))
	(then-time (date-to-time then-date)))
    (cond ((= delta 1)
	   (format-time-string "tomorrow at %R" then-time t))
	  ((= delta 0)
	   (format-time-string "today at %R" then-time t))
	  ((= delta -1)
	   (format-time-string "yesterday at %R" then-time t))
	  ((and (< delta 0)
		(<= -7 delta))
	   (format-time-string "%A" then-time t))
	  (t then-date))))

(defun vernacular-time-tomorrow ()
  (let ((tomorrow (days-to-time 1)))
    (current-time-string (time-add (current-time) tomorrow))))

(defun vernacular-time-yesterday ()
  (let ((yesterday (days-to-time 1)))
    (current-time-string (time-subtract (current-time) yesterday))))

(defun vernacular-time-one-week-ago ()
  (let ((one-week-ago (days-to-time 7)))
    (current-time-string (time-subtract (current-time) one-week-ago))))

(date-to-vernacular "Wed Jul 16 21:41:57 2011")	    ; future
(date-to-vernacular (vernacular-time-tomorrow))	    ; tomorrow
(date-to-vernacular (current-time-string))	    ; today
(date-to-vernacular (vernacular-time-yesterday))    ; yesterday
(date-to-vernacular (vernacular-time-one-week-ago)) ; a week ago
(date-to-vernacular "Wed Jul 16 21:41:57 2007")	    ; in the past

;; google-region
(defun google-region (&optional flags)
  "Google the selected region"
  (interactive)
  (let ((query (buffer-substring (region-beginning) (region-end))))
    (browse-url (concat "http://www.google.com/search?ie=utf-8&oe=utf-8&q=" query))))
;; press control-c g to google the selected region
(global-set-key (kbd "C-c g") 'google-region)


Planet Emacsen

David's World: Randy Pausch, RIP

hexmode: Women and Computing

Emacs Life: regexp

sachachua: Please vote for my about-me/sitemap slideshow on Slideshare!

John Sullivan: 5 Questions: Give Apple the iPhone Challenge

Yoni Rabkin Katzenell: AdUni Systems

Emacs Life: org-mode

Flickr tag 'emacs': Broken mesh transformations

Flickr tag 'emacs': First correct mesh render

Flickr tag 'emacs': Bounding boxes appear

Michael Olson: [tech] Org mode likes and dislikes

Emacs Life: firefox and emacsclient

Yoni Rabkin Katzenell: Add Bochs to movitz-slime.el

sachachua: Emacs: Smarter interactive prompts with Org remember templates

sachachua: Emacs: BBDB: Modifying the record creation process

Flickr tag 'emacs': emacs-tetris

Yoni Rabkin Katzenell: Moving the wine reviews, thank you weekend

Phil Jackson: stumpwm: Control emms

sachachua: Emacs Org Google Tech Talk

minor emacs wizardry: jao

minor emacs wizardry: jao

Yoni Rabkin Katzenell: vernacular date

Phil Jackson: Org mode in Google

John Wiegley: A new Ledger mailing list

Flickr tag 'emacs': Pretty emms

emacspeak: Talk Announcement: Developing Accessible Web-2.0 Applications

Open Source Developers @ Google Speaker Series: Charles Chen & T.V. Raman

Yoni Rabkin Katzenell: NASA still using Lisp?

Rodrigo Lazo: [BEH] How to type when using emacs?

John Sullivan: 5 real reasons to avoid iPhone 3G

Ted Roden: Google Region