@@ -48,4 +48,19 @@ ;; ;; If there is more than one, they won't work right. ;; '(highlight-current-line-face ((t (:background "#333333"))))) -;; (put 'narrow-to-region 'disabled nil) \ No newline at end of file +;; (put 'narrow-to-region 'disabled nil) + + +(custom-set-variables + ;; custom-set-variables was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(highlight-current-line-globally t nil (highlight-current-line)) + '(org-agenda-files (quote ("~/hgfiles/org/org.org" "~/hgfiles/org/tasks.org" "~/hgfiles/org/notes.org" "~/hgfiles/org/phone.org" "~/hgfiles/org/jodi.org" "~/hgfiles/org/greg.org" "~/hgfiles/org/move.org" "~/hgfiles/org/studio.org" "~/hgfiles/org/mind.org" "~/hgfiles/org/archive.org")))) +(custom-set-faces + ;; custom-set-faces was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(highlight-current-line-face ((t (:background "#333333"))))) configs/custom.el @@ -72,6 +72,7 @@ ;; ibuffer key (global-set-key (kbd "C-;") 'ibuffer) + ;; windmove bindings (when (fboundp 'windmove-default-keybindings) (windmove-default-keybindings)) @@ -128,4 +129,4 @@ ;; SavePlace (setq save-place-file "~/saveplace") ;; keep my ~/ clean -(setq-default save-place t) ;; activate it for all buffers +(setq-default save-place t) ;; activate it for all buffers \ No newline at end of file configs/main.el @@ -4,6 +4,21 @@ (add-to-list 'load-path (expand-file-name "~/.emacs.d/vendor/org-mode/lisp")) (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode)) (require 'org-install) +(server-start) +(require 'org-protocol) +;(require 'org-annotation-quicksilver) + +(defun my-custom-handler (data) + (let ((content (org-protocol-split-data data t))) + (delete-other-windows) + (sit-for 2) + (animate-sequence content 2)) + nil) + +(setq org-protocol-protocol-alist + '(("Screencast goodie" + :protocol "screencast" + :function my-custom-handler))) ;; ;; Standard key bindings @@ -105,7 +120,7 @@ (setq org-remember-templates (quote (("todo" ?t "* TODO %? %u %a" "~/hgfiles/org/tasks.org" bottom nil) - ("note" ?n "* %? :NOTE: + ("note" ?n "* %? :NOTE: %u %a" nil bottom nil) ("phone" ?p "* PHONE %:name - %:company - :PHONE: configs/org.el @@ -17,10 +17,15 @@ (concat emacs-config-dir file))) (message "Loaded config file: %s" file) )) + +(add-to-list 'load-path "/usr/share/emacs/site-lisp/w3m") +;(if window-system +; (require 'w3m-load)) (load-cfg-files '("browse_kill_ring" "custom" "git" + "gnus" "highlight_line" "ido" "javascript" init.el @@ -57,7 +57,7 @@ (autoload 'url-unhex-string "url") (add-to-list 'org-remember-templates - '("QS Inbox" ?q "\n* QS %U%?\n%i\n%a" (concat org-directory "~/gtd/inbox.org") "Inbox") 'append) + '("QS Inbox" ?q "\n* QS %U%?\n%i\n%a" (concat org-directory "~/hgfiles/org.org") "Inbox") 'append) (defun org-qs-remember-annotation () (if (string= noAnnotation "true") vendor/org-annotation-quicksilver.el @@ -1 +1 @@ -Subproject commit 855f85b46f9b473b33ba64f732797982ae4ca0a3 +Subproject commit 68492f74b7565bcd663d18eb5d38694c7ee1ac6c vendor/org-mode 59192283e9af3bc453a73da7507eefa4bb653828 Greg Newman greg@20seven.org http://github.com/gregnewman/20seven-emacs/commit/8ca041e56b1248529dd16a32c4c0db828c880ccf 8ca041e56b1248529dd16a32c4c0db828c880ccf 2009-06-26T02:16:20-07:00 2009-06-26T02:16:20-07:00 some minor tweeeeeeeeks d7efcabb4cfc0f9da0b80c58d3a3840a12097eb2 Greg Newman greg@20seven.org