(defun jmjeong-org-directory-file (dir)
"Private org directory file lister"
(let ((contents (directory-files dir))
expanded result)
(progn
(while contents
(setq expanded (expand-file-name (concat dir (car contents))))
(if (and (file-regular-p expanded)
(string-match "org$" expanded))
(setq result (nconc result (list expanded))))
(setq contents (cdr contents))))
result
))
(setq org-agenda-files (jmjeong-org-directory-file "~/journal/org/"))
PlannerMode 대신에 Org-mode를 사용하고 있는데, 자동으로 생성되는 주간 파일들을 org-agenda-files에 등록하기 위한 script가 필요하게 되었다. 인자로 주어진 dir directory부터 파일들을 읽어서 일반파일이고 확장자가 .org로 끝나는 파일인 경우는 list에다 넣어서 반환해주는 파일이다.
jmjeong-local.el 파일에서 emacs 부팅시에 등록하게 된다. 새로운 org 파일이 만들어질 때마다 해당 script를 수행하도록 설정이 필요할까?
TODO : 새로운 org 파일을 만들 때마다 이미 agenda 파일에 등록이 되어 있지 않으면 등록하는 script. 파일 갯수가 많아지면 속도 issue는 없을까?
[2007-04-19] directory-files에 부가적인 option이 있었네.. Iteration을 하면서 파일을 찾는건 한마디로 닭질이다. 아래 두 줄이면 같은 일을 할 수 있다. Win32와 linux상에서 Home directory를 구별하기 위해서 home을 전역 변수로 지정하고 사용하기로 했다.
(setq org-agenda-directory (concat home "/journal/org/"))
(setq org-agenda-files
(directory-files (expand-file-name org-agenda-directory) t "^.*\\.org$"))