Permalink
Browse files

setup-myfiles: add concreto.

  • Loading branch information...
1 parent 7484417 commit e72e78c901a7eda42cb422ed6cdeb23fe4774f5f @tiagosab committed Aug 23, 2011
Showing with 8 additions and 0 deletions.
  1. +8 −0 ts-goodies/setup-myfiles.el
View
8 ts-goodies/setup-myfiles.el
@@ -20,6 +20,14 @@ Implemented on 2011-04-18."
(find-file "/home/tiago/lib/emacs/emanotes.org"))
;; END first section
+(defun ts-concreto ()
+ (interactive)
+ (let ((concreto-buffer (dired "/home/tiago/h/c")))
+ (with-current-buffer concreto-buffer
+ (mapc 'dired-maybe-insert-subdir
+ '("concreto" "noticias" "meta"))
+ (goto-char (point-min)))))
+
(require 'ipython)
(defun ts-open-dacdoc ()
(interactive)

0 comments on commit e72e78c

Please sign in to comment.