Телеграмм чат группы emacs

Size: a a a

Emacs — русскоговорящее сообщество

2020 December 02

Dameda in Emacs — русскоговорящее сообщество

лежать плюс сосать

(when-let* ((files (directory-files-and-attributes "~/videos" nil "^[^.]"))
            (max (pop files)))
  (dolist (it files (car max))
    (when (time-less-p (file-attribute-status-change-time (cdr it))
                       (file-attribute-status-change-time (cdr max)))
      (setq max it))))

как можно считать императивное решение лучше функционального?

источник

19:06пожаловаться #1

Dameda in Emacs — русскоговорящее сообщество

Pig Greenest

бонус для любитейлей функциональщины, но без обработки пустого списка файлов

(car
 (cl-reduce
  (lambda (lhs rhs)
    (if (time-less-p (file-attribute-status-change-time (cdr rhs))
                     (file-attribute-status-change-time (cdr lhs)))
        rhs
      lhs))
  (directory-files-and-attributes "~/videos" nil "^[^.]")))

вот это лучше

источник

19:07пожаловаться #2

Pig Greenest in Emacs — русскоговорящее сообщество

ты на каждый файл создаешь буфер и зовешь stat

источник

19:07пожаловаться #3

Dameda in Emacs — русскоговорящее сообщество

нет

источник

19:07пожаловаться #4

Dameda in Emacs — русскоговорящее сообщество

Dameda

https://git.sr.ht/~liltechdude/dotfiles/tree/5e2df7f42844abf3c03ea412d16ce4c650ec9ba3/doom/config.org#L305 по 340

посмотри как сделано

источник

19:07пожаловаться #5

Pig Greenest in Emacs — русскоговорящее сообщество

а, то есть деды почти победили

источник

19:08пожаловаться #6

Dameda in Emacs — русскоговорящее сообщество

прям щас накатил коммит где использовал cl-sort

источник

19:09пожаловаться #7

Dameda in Emacs — русскоговорящее сообщество

https://git.sr.ht/~liltechdude/dotfiles/tree/master/doom/config.org#L311

источник

19:10пожаловаться #8

Pig Greenest in Emacs — русскоговорящее сообщество

вот так надо сделать

(car-safe
 (--max-by (time-less-p (file-attribute-status-change-time (cdr it))
                        (file-attribute-status-change-time (cdr other)))
           (directory-files-and-attributes "~/videos" nil "^[^.]")))

источник

19:10пожаловаться #9

Dameda in Emacs — русскоговорящее сообщество

но ведь --max-by

источник

19:11пожаловаться #10

Pig Greenest in Emacs — русскоговорящее сообщество

но ты то можешь его использовать

источник

19:12пожаловаться #11

Pig Greenest in Emacs — русскоговорящее сообщество

а stat у тебя все равно на каждый файл, только теперь не отдельным процессом, а всего лишь сисколлом