Re: find-file-dwim.el

[Philip Kaludercic <philipk@posteo.net>]

It might just be, but your message confuses me: I am not sure what you
are trying to say here, are you proposing adding the these functions to
the core (in which case a patch would be more appropriate) or to ELPA
(in which case we'd like a link to some Git repository).  If you are
just interested in sharing code with others, perhaps the development
mailing list is not the right place to do so.  (Also, please don't
forget to CC me in your response, I recall this being an issue in the
past where I didn't see your response until much later).

Emanuel Berg <incal@dataswamp.org> writes:

>> I'll do the legendary Holy Grail of Elisp programming,
>> namely find-file-dwim.el
>
> I'm working on this now so I'll forget all the rest. Do Calc if
> you want to.
>
> This will be a heck of an application. There will be several
> servers that are always ready and as soon as one server gets
> it right it will be promoted to try its thing sooner the
> next time.
>
> The individual servers can also be adapting and self-improving
> just by functioning much like a memory hierarchy with levels
> of differently sized, paced, and priced cache. Maybe overkill
> to do but would be cool.
>
> But it is all based on proximity in time and space.
>
> Ikr? Just like a drill!

Emanuel Berg <incal@dataswamp.org> writes:

>> I'll do the legendary Holy Grail of Elisp programming,
>> namely find-file-dwim.el
>
> Four methods now and one can add a lot of those if one comes up
> with new ideas.
>
> What remains to do, well, polishing, is the interface and
> I think it will be super-important to get that right, how to
> indicate a suggested file isn't what you look for, for
> example.
>
> I'll post a new version in a couple of days or so, maybe.
>
> ;;; -*- lexical-binding: t -*-
> ;;
> ;; this file:
> ;;   https://dataswamp.org/~incal/emacs-init/find-file-dwim.el
> ;;
> ;; created: 2024-07-22
> ;; version: 0.1.0
>
> (require 'cl-lib)
> (require 'psea)   ; https://dataswamp.org/~incal/emacs-init/psea.el
>
> (defun buffers ()
>   (mapcar #'buffer-name (buffer-list)) )
>
> ;; (buffers)
>
> (defun mod-time-sec (f)
>   (let ((s (time-convert
>               (file-attribute-modification-time (file-attributes f))
>             'integer) ))
>     (list s f) ))
>
> ;; (mod-time-sec "~/.emacs")
>
> (defun remove-data (ds)
>   (mapcar #'cadr ds) )
>
> (defun sort-mod-time-sec (&optional dir)
>   (or dir (setq dir default-directory))
>   (let ((fs (directory-files dir nil nil t)))
>     (remove-data
>       (reverse (cl-sort (mapcar #'mod-time-sec fs) #'> :key #'car)) )))
>
> ;; (sort-mod-time-sec)
>
> (defun psea-hit (s fs &optional max gov)
>   (and max (setq fs (seq-take fs max)))
>   (or  gov (setq gov 70) )
>   (cl-loop
>     with perc
>     with res
>     for f in fs do
>       (setq perc (sdp s f))
>       (when (< gov perc)
>         (cl-pushnew (list perc f) res) )
>     finally return (remove-data (cl-sort res #'> :key #'car)) ))
>
> ;; (psea-hit "buffer-menu"       (buffers))
> ;; (psea-hit "find-file-dwim.el" (sort-mod-time-sec))
>
> (defun re-hit (re fs &optional max)
>   (and max (setq fs (seq-take fs max)))
>   (cl-remove-if-not (lambda (f) (string-match re f)) fs) )
>
> ;; (re-hit "line" (buffers))
> ;; (re-hit "line" (sort-mod-time-sec) 1000)
>
> (provide 'find-file-dwim)

-- 
	Philip Kaludercic on peregrine