"%(org-read-date) * %(yt/helm-ledger-payee) (push '("l" "Ledger Journal" plain (file "~/git/data_finance/ledger/refile.ledger") ("jc" "Career" entry (file+datetree "~/git/org/diary/") "* %?:finance:\n%U\t\n" :clock-in t :clock-resume t) ("jf" "Finance" entry (file+datetree "~/git/org/diary/") "* %?:office:\n%U\n" :clock-in t :clock-resume t) ("jo" "Office" entry (file+datetree "~/git/org/diary/") ("js" "Statistician" entry (file+datetree "~/git/org/diary/") ("jk" "Kaggle Competition" entry (file+datetree "~/git/org/diary/") "* %?\n%U\n" :clock-in t :clock-resume t) ("jd" "diary" entry (file+datetree "~/git/org/diary/") "* %? :VOCA:\n%U" :clock-in t :clock-resume t) ("v" "Vocabulary" entry (file "~/git/org/") "* NEXT %?\nSCHEDULED: %(format-time-string \"\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n%U\n") "* %? :NOTE:\n%U\n" :clock-in t :clock-resume t) "* TODO %? :READ:\n%U\n" :clock-in t :clock-resume t) "* To %? about :RESPONSE: \nSCHEDULED: %t\n%U\n%a" :clock-in t :clock-resume t) ("r" "respond" entry (file "~/git/org/life//") "* TODO %?General Org\n%U\n" :clock-in t :clock-resume t) TODO: %? %U %a, what does these means? %: %c "* TODO %?\n\n" :clock-in t :clock-resume t) TODO: %? %U %a, what does these means? %: %c Does not follow symbolic links.(quote (("t" "todo" entry (file "~/git/org/life//") "Like `ediff-directories' but recurses into sub-directories. `(defun ediff-directories-recursive (dir1 dir2 regexp)
#List directory contents in emacs full
(apply 'directory-files-recursive (list (concat prefix "/" d) full match nosort)))))))
(apply 'directory-files-recursive (list d full match nosort)) (funcall ,directory-files-original directory full match nosort)) (when (null (file-directory-p (if full p (concat prefix "/" p)))) (funcall ,directory-files-original directory full nil nosort)) (let ((fullname (if full p (concat prefix "/" p)))) (let* ((prefix (or (and full "") directory)) "Like `directory-files' but recurses into subdirectories. `(defun directory-files-recursive (directory &optional full match nosort) (let ((directory-files-original (symbol-function 'directory-files))) The magic behind that is temporarily replacing the built-in directory-files by a self-made directory-files-recursive before calling ediff-directories. The function ediff-directories-recursive works like ediff-directories but recurses into sub-directories. I also needed this feature and came up with the following. How can I exit session groups without exiting the sub-sessions one by one? This sesssion group has active sessions-cannot exit
#List directory contents in emacs how to
If anybody knows of a tutorial on how to use ediff-directories (other than the official documentation), I would be highly interested.Īlso, if I want to exit a session group (comparison of folders at one level), but I have sessions open for deeper levels, if I press q (quit this session group), Emacs complains with the messaage: How can I tell emacs to go recursively all the way to the leaves so that I can see all the differences in the directory difference buffer (accessible via the keyboard command D)?
If I want to see which folders have = signs at deeper levels in the folder hierarchy, I need to re-run the = command at each level. However, if I press = I only get folders with = signs (meaning that the two folders have identical contents) on the level where I run the command. I read in the documentation that, once I supply two directories to ediff-directories, if I press = Emacs compares them recursively. I am experimenting with ediff-directories, but I am not sure I am using it correctly.
0 kommentar(er)
