(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$"))