Re: [ELPA] package proposal: fannypack.el

[Theodor Thornhill]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

> Thanks, pushed `satchel` to elpa.git.  See patch below (the first hunk
> of which is necessary before the tarball can be built).

Thanks!

>
> BTW, this makes me wonder if we couldn't make something slightly more
> automatic/transparent.
>
> E.g. keep track of all the times you select a file/buffer and the branch
> that was current for that file/buffer at that time, and then use that
> history to sort past files/buffers by frequency of use in the current
> context (directory&branch)?
>

This makes sense!  I'll see if I can figure out some good metadata to
use for something like this.  I've been thinking about both using more
advanced git trickery, such as the git worktree workflow etc, but then
I'd need to think a little harder on the design.  For a future version :)

>
>         Stefan
>
>
> PS: Personally, the branch info would be of virtually no use to me since
>     I rarely if ever `checkout` and use `git worktree`s instead.
>
>

Thanks for the input - I'll apply the patch shortly.

Theo


>
> diff --git a/satchel.el b/satchel.el
> index 1d736f03e5..cef792af15 100644
> --- a/satchel.el
> +++ b/satchel.el
> @@ -1,6 +1,6 @@
>  ;;; satchel.el --- A bag for your files, separated by git branches -*- 
> lexical-binding: t; -*-
>  
> -;; Copyright (C) 2022 Theodor Thornhill
> +;; Copyright (C) 2022  Free Software Foundation, Inc.
>  
>  ;; Author: Theodor Thornhill <theo@thornhill.no>
>  ;; Keywords: tools languages
> @@ -48,6 +48,7 @@
>    :group 'tools)
>  
>  (defcustom satchel-directory
> +  ;; FIXME: Use `locate-user-emacs-file'?
>    (concat user-emacs-directory ".local/satchel/")
>    "Where the satchels will be saved."
>    :type 'string)
> @@ -77,7 +78,7 @@
>  This is a file named after the path of the directory it refers
>  to.  There can be several of those files, appended with the
>  current branch name.  If the file can be found, we read that file
> -into lisp data."
> +into Lisp data."
>    (let ((filename (satchel--name)))
>      (when (file-exists-p filename)
>        (with-temp-buffer