sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-10 19:23:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: update sqrt-index
Some checks failed
Update Site / trigger_update (push) Has been cancelled
Details

Browse source
This commit is contained in:
Pavel Korytov 2025-11-12 23:37:47 +03:00
parent d1b69e6cbc
commit 4d1a6396e7
2 changed files with 84 additions and 105 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

83
.emacs.d/modules/sqrt-index.el
View file

@ -408,6 +408,16 @@ def parse_rclone_stats(log_output):
return None return None
def process_output(output):
if output is None:
print('(empty)')
for line in output.splitlines():
try:
datum = json.loads(line)
print(datum['msg'])
except Exception:
print(line)
def rclone_run(folder): def rclone_run(folder):
command = rclone_make_command( command = rclone_make_command(
folder['local-path'], folder['remote-path'], folder['remote'] folder['local-path'], folder['remote-path'], folder['remote']
@ -418,9 +428,9 @@ def rclone_run(folder):
print(f'=== Error syncing {folder['local-path']} ===') print(f'=== Error syncing {folder['local-path']} ===')
print(f'Command: {' '.join(command)}') print(f'Command: {' '.join(command)}')
print(f'--- STDOUT ---') print(f'--- STDOUT ---')
print(e.stdout if e.stdout else '(empty)') process_output(e.stdout)
print(f'--- STDERR ---') print(f'--- STDERR ---')
print(e.stderr if e.stderr else '(empty)') process_output(e.stderr)
return {'success': False, 'stats': {}} return {'success': False, 'stats': {}}
return {'success': True, 'stats': parse_rclone_stats(result.stderr)} return {'success': True, 'stats': parse_rclone_stats(result.stderr)}
@ -457,7 +467,7 @@ def rclone_run_all(folders):
error_msg = f'Sync error for remote {REMOTE}!' error_msg = f'Sync error for remote {REMOTE}!'
for folder in error_folders: for folder in error_folders:
error_msg += '''\n- ''' + folder error_msg += '''\n- ''' + folder
notify(f'rclone sync {REMOTE}', error_msg, level='error') notify(f'rclone sync {REMOTE}', error_msg, level='critical')
else: else:
msg = '' msg = ''
if total_transfers > 0: if total_transfers > 0:
@ -544,7 +554,7 @@ The return value is a list of commands as defined by
(list (list
(format "cat <<EOF > %s\n%s\nEOF" (format "cat <<EOF > %s\n%s\nEOF"
(my/index--rclone-script-loc remote) (my/index--rclone-script-loc remote)
(my/index--rclone-script remote folders)) (my/index--rclone-script remote (nreverse folders)))
"Update rclone sync script" 10) "Update rclone sync script" 10)
commands)) commands))
(nreverse commands))) (nreverse commands)))
@ -739,12 +749,13 @@ is still valid. Otherwise, it re-parses the index file."
(my/index--commands-display (append rclone-commands folder-commands git-commands (my/index--commands-display (append rclone-commands folder-commands git-commands
waka-commands symlink-commands))))) waka-commands symlink-commands)))))
(defun my/index--nav-extend (name path) (defun my/index--nav-extend (name path &optional project)
"Find all index-related files in PATH. "Find all index-related files in PATH.
NAME is the name of the root index entry, e.g. \"10.01 NAME is the name of the root index entry, e.g. \"10.01
Something\". If PATH containts folders like \"10.01.01 Something\". If PATH containts folders like \"10.01.01
Something\", \"10.01.02 ...\", they will be returned. Something\", \"10.01.02 ...\", they will be returned. PROJECT is the
project name.
The return value is a form as defined by `my/index--nav-get'." The return value is a form as defined by `my/index--nav-get'."
(when (file-directory-p path) (when (file-directory-p path)
@ -771,7 +782,7 @@ The return value is a form as defined by `my/index--nav-get'."
`(((:names . (,name-1)) `(((:names . (,name-1))
(:path . ,(concat path-1 "/"))))))))) (:path . ,(concat path-1 "/")))))))))
(defun my/index--nav-get (tree &optional names) (defun my/index--nav-get (tree &optional names project)
"Get the navigation structure from TREE. "Get the navigation structure from TREE.
TREE is a form as defined by `my/index--tree-get'. NAMES is a TREE is a form as defined by `my/index--tree-get'. NAMES is a
@ -783,7 +794,7 @@ The result is a list of alists with the following keys:
(\"10.01 Something\" \"10.01.01 Something\") (\"10.01 Something\" \"10.01.01 Something\")
- `:path` - path to the folder, e.g. - `:path` - path to the folder, e.g.
\"/path/10 stuff/10.01 Something/10.01.01 Something/\" \"/path/10 stuff/10.01 Something/10.01.01 Something/\"
- `:child-navs` - list of child navigation structures (optional)" - `:project` - project name."
(seq-sort-by (seq-sort-by
(lambda (item) (alist-get :path item)) (lambda (item) (alist-get :path item))
#'string-lessp #'string-lessp
@ -791,28 +802,24 @@ The result is a list of alists with the following keys:
(lambda (acc elem) (lambda (acc elem)
(let* ((name (alist-get :name elem)) (let* ((name (alist-get :name elem))
(path (alist-get :path elem))) (path (alist-get :path elem)))
(cond ((alist-get :project elem) (cond ((alist-get :children elem)
(let ((current-nav `((:names . (,@names ,name))
(:path . ,path))))
(when-let (child-navs
(and (alist-get :children elem)
(my/index--nav-get (alist-get :children elem))))
(setf (alist-get :child-navs current-nav) child-navs))
(push current-nav acc)))
((alist-get :children elem)
(when-let (child-navs (my/index--nav-get (when-let (child-navs (my/index--nav-get
(alist-get :children elem) (alist-get :children elem)
`(,@names ,name))) `(,@names ,name)
(or (when (alist-get :project elem)
name)
project)))
(cl-loop for child-nav in child-navs (cl-loop for child-nav in child-navs
do (push child-nav acc)))) do (push child-nav acc))))
(t (if-let ((extended-nav (my/index--nav-extend name path))) (t (if-let ((extended-nav (my/index--nav-extend name path project)))
(cl-loop for child-nav in extended-nav (cl-loop for child-nav in extended-nav
do (setf (alist-get :names child-nav) do (setf (alist-get :names child-nav)
(append names (list name) (append names (list name)
(alist-get :names child-nav))) (alist-get :names child-nav)))
do (push child-nav acc)) do (push child-nav acc))
(push `((:names . (,@names ,name)) (push `((:names . (,@names ,name))
(:path . ,path)) (:path . ,path)
(:project . ,project))
acc)))) acc))))
acc)) acc))
tree tree
@ -838,7 +845,10 @@ The return value is a form as defined by `my/index--nav-get'."
NAV is a structure as defined by `my/index--nav-get'." NAV is a structure as defined by `my/index--nav-get'."
(let* ((collection (let* ((collection
(mapcar (lambda (item) (mapcar (lambda (item)
(cons (car (last (alist-get :names item))) (cons (let ((name (car (last (alist-get :names item)))))
(if (alist-get :project item)
(format "%s / %s" (alist-get :project item) name)
name))
(alist-get :path item))) (alist-get :path item)))
nav)) nav))
(vertico-sort-function nil)) (vertico-sort-function nil))
@ -856,36 +866,21 @@ NAV is a structure as defined by `my/index--nav-get'."
(string-prefix-p (alist-get :path item) path)) (string-prefix-p (alist-get :path item) path))
nav)) nav))
(defun my/index-nav (arg &optional func) (defun my/index-nav (&optional func)
"Navigate the filesystem index. "Navigate the filesystem index.
If ARG is nil, navigate all levels sequentially from the top one.
If ARG is '(4), select another directory from the same level.
FUNC is the function to call with the selected path. It defaults FUNC is the function to call with the selected path. It defaults
to `dired' if used interactively." to `dired' if used interactively."
(interactive (list current-prefix-arg #'dired)) (interactive (list #'dired))
(let* ((nav (my/index--nav-retrive)) (let* ((nav (my/index--nav-retrive))
(current-nav (my/index--nav-find-path (selected (my/index--nav-find-path
nav (expand-file-name default-directory))) nav
(current-child-navs (alist-get :child-navs current-nav))) (my/index--nav-prompt nav))))
(cond ((null arg) (funcall func (alist-get :path selected))))
(let ((selected (my/index--nav-find-path
nav
(my/index--nav-prompt nav))))
(if-let (child-navs (alist-get :child-navs selected))
(funcall func (my/index--nav-prompt child-navs))
(funcall func (alist-get :path selected)))))
((and (equal arg '(4)) current-child-navs)
(funcall func (my/index--nav-prompt current-child-navs)))
((and (equal arg '(4)) (null current-child-navs))
(funcall func (my/index--nav-prompt nav))))))
(defun my/index-nav-with-select-file (arg) (defun my/index-nav-with-select-file ()
(interactive (list current-prefix-arg)) (interactive)
(my/index-nav (my/index-nav
arg
(lambda (dir) (lambda (dir)
(let ((default-directory dir)) (let ((default-directory dir))
(projectile-find-file))))) (projectile-find-file)))))

106
Emacs.org
View file

@ -11730,7 +11730,7 @@ I don't have access to any proprietary APIs, but LLaMA 3.1 8b with [[https://oll
:key (lambda () (my/password-store-get-field :key (lambda () (my/password-store-get-field
"My_Online/Accounts/openrouter" "api-key")) "My_Online/Accounts/openrouter" "api-key"))
:stream t :stream t
:models '("anthropic/claude-sonnet-4" :models '("anthropic/claude-sonnet-4.5"
"qwen/qwen3-coder" "qwen/qwen3-coder"
"qwen/qwen3-coder:free")) "qwen/qwen3-coder:free"))
(setq gptel--known-backends (setq gptel--known-backends
@ -12939,21 +12939,24 @@ def rclone_run_all(folders):
total_transfers += res.get('stats', {}).get('transfers', 0) total_transfers += res.get('stats', {}).get('transfers', 0)
total_deleted += res.get('stats', {}).get('deletes', 0) total_deleted += res.get('stats', {}).get('deletes', 0)
total_renamed += res.get('stats', {}).get('renames', 0) total_renamed += res.get('stats', {}).get('renames', 0)
msg = ''
level = 'normal'
if total_transfers > 0:
msg += f'''Transferred {total_transfers} files ({sizeof_fmt(total_bytes)})\n'''
if total_deleted > 0:
msg += f'''Deleted {total_transfers} files\n'''
if total_renamed > 0:
msg += f'''Renamed {total_renamed} files\n'''
if len(error_folders) > 0: if len(error_folders) > 0:
error_msg = f'Sync error for remote {REMOTE}!' msg += '''\nSync errors for the following folders:'''
for folder in error_folders: for folder in error_folders:
error_msg += '''\n- ''' + folder msg += '''\n- ''' + folder
notify(f'rclone sync {REMOTE}', error_msg, level='critical') level = 'critical'
else:
msg = '' if len(msg) > 0:
if total_transfers > 0: notify(f'rclone sync {REMOTE}', msg, level=level)
msg += f'''Transferred {total_transfers} files ({sizeof_fmt(total_bytes)})\n'''
if total_deleted > 0:
msg += f'''Deleted {total_transfers} files\n'''
if total_renamed > 0:
msg += f'''Renamed {total_renamed} files\n'''
if len(msg) > 0:
notify(f'rclone sync {REMOTE}', msg)
if __name__ == '__main__': if __name__ == '__main__':
rclone_run_all(FOLDERS) rclone_run_all(FOLDERS)
@ -13086,7 +13089,7 @@ I use [[https://wakatime.com/][WakaTime]] to track my coding activity, and I don
E.g. 10.03.R.01 Project Name -> Project Name." E.g. 10.03.R.01 Project Name -> Project Name."
(replace-regexp-in-string (replace-regexp-in-string
(rx bos (+ (| num alpha "." "-")) space) "" name)) (rx bos (+ num) (? "." (+ (| num alpha "." "-"))) space) "" name))
(defun my/index--wakatime-escape (string) (defun my/index--wakatime-escape (string)
"Escape STRING for use in a WakaTime config file." "Escape STRING for use in a WakaTime config file."
@ -13289,20 +13292,17 @@ The last piece is the navigation interface.
Of course, plain dired does the job fine, thanks to the relatively low-depth filesystem structure. But I still want a navigation interface like =M-x projectile-switch-project=. Of course, plain dired does the job fine, thanks to the relatively low-depth filesystem structure. But I still want a navigation interface like =M-x projectile-switch-project=.
**** Navigation data **** Navigation data
There are two slight problems with that. One problem is that the index tree does not always have the full info. E.g., I have the =10.03.A Artifacts= folder, which I sync with MEGA and which has child folders like =10.03.A.01 smth= and so on. Names of the latter are not stored anywhere because I don't see the point, which means we have to extract that from the filesystem.
First, the index tree does not always have the full info. For instance, I have the =10.03.A Artifacts= folder, which I sync with MEGA and which has child folders like =10.03.A.01 smth= and so on. Names of the latter are not stored anywhere because I don't see the point, which means we have to extract that from the filesystem. So, a function to tackle this:
Second, as it turns out, there have to be two levels for navigation, which are delimited by the =project= property. I'm not sure if that the optimal way to implement Jonny.Decimal, but it works for me.
So, a function to tackle the first problem:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun my/index--nav-extend (name path) (defun my/index--nav-extend (name path &optional project)
"Find all index-related files in PATH. "Find all index-related files in PATH.
NAME is the name of the root index entry, e.g. \"10.01 NAME is the name of the root index entry, e.g. \"10.01
Something\". If PATH containts folders like \"10.01.01 Something\". If PATH containts folders like \"10.01.01
Something\", \"10.01.02 ...\", they will be returned. Something\", \"10.01.02 ...\", they will be returned. PROJECT is the
project name.
The return value is a form as defined by `my/index--nav-get'." The return value is a form as defined by `my/index--nav-get'."
(when (file-directory-p path) (when (file-directory-p path)
@ -13332,7 +13332,7 @@ The return value is a form as defined by `my/index--nav-get'."
And one to get the navigation data structure. And one to get the navigation data structure.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun my/index--nav-get (tree &optional names) (defun my/index--nav-get (tree &optional names project)
"Get the navigation structure from TREE. "Get the navigation structure from TREE.
TREE is a form as defined by `my/index--tree-get'. NAMES is a TREE is a form as defined by `my/index--tree-get'. NAMES is a
@ -13344,7 +13344,7 @@ The result is a list of alists with the following keys:
(\"10.01 Something\" \"10.01.01 Something\") (\"10.01 Something\" \"10.01.01 Something\")
- `:path` - path to the folder, e.g. - `:path` - path to the folder, e.g.
\"/path/10 stuff/10.01 Something/10.01.01 Something/\" \"/path/10 stuff/10.01 Something/10.01.01 Something/\"
- `:child-navs` - list of child navigation structures (optional)" - `:project` - project name."
(seq-sort-by (seq-sort-by
(lambda (item) (alist-get :path item)) (lambda (item) (alist-get :path item))
#'string-lessp #'string-lessp
@ -13352,28 +13352,24 @@ The result is a list of alists with the following keys:
(lambda (acc elem) (lambda (acc elem)
(let* ((name (alist-get :name elem)) (let* ((name (alist-get :name elem))
(path (alist-get :path elem))) (path (alist-get :path elem)))
(cond ((alist-get :project elem) (cond ((alist-get :children elem)
(let ((current-nav `((:names . (,@names ,name))
(:path . ,path))))
(when-let (child-navs
(and (alist-get :children elem)
(my/index--nav-get (alist-get :children elem))))
(setf (alist-get :child-navs current-nav) child-navs))
(push current-nav acc)))
((alist-get :children elem)
(when-let (child-navs (my/index--nav-get (when-let (child-navs (my/index--nav-get
(alist-get :children elem) (alist-get :children elem)
`(,@names ,name))) `(,@names ,name)
(or (when (alist-get :project elem)
name)
project)))
(cl-loop for child-nav in child-navs (cl-loop for child-nav in child-navs
do (push child-nav acc)))) do (push child-nav acc))))
(t (if-let ((extended-nav (my/index--nav-extend name path))) (t (if-let ((extended-nav (my/index--nav-extend name path project)))
(cl-loop for child-nav in extended-nav (cl-loop for child-nav in extended-nav
do (setf (alist-get :names child-nav) do (setf (alist-get :names child-nav)
(append names (list name) (append names (list name)
(alist-get :names child-nav))) (alist-get :names child-nav)))
do (push child-nav acc)) do (push child-nav acc))
(push `((:names . (,@names ,name)) (push `((:names . (,@names ,name))
(:path . ,path)) (:path . ,path)
(:project . ,project))
acc)))) acc))))
acc)) acc))
tree tree
@ -13406,7 +13402,10 @@ As for Emacs interface, =completing-read= is sufficient, except that I don't wan
NAV is a structure as defined by `my/index--nav-get'." NAV is a structure as defined by `my/index--nav-get'."
(let* ((collection (let* ((collection
(mapcar (lambda (item) (mapcar (lambda (item)
(cons (car (last (alist-get :names item))) (cons (let ((name (car (last (alist-get :names item)))))
(if (alist-get :project item)
(format "%s / %s" (alist-get :project item) name)
name))
(alist-get :path item))) (alist-get :path item)))
nav)) nav))
(vertico-sort-function nil)) (vertico-sort-function nil))
@ -13424,39 +13423,24 @@ NAV is a structure as defined by `my/index--nav-get'."
(string-prefix-p (alist-get :path item) path)) (string-prefix-p (alist-get :path item) path))
nav)) nav))
(defun my/index-nav (arg &optional func) (defun my/index-nav (&optional func)
"Navigate the filesystem index. "Navigate the filesystem index.
If ARG is nil, navigate all levels sequentially from the top one.
If ARG is '(4), select another directory from the same level.
FUNC is the function to call with the selected path. It defaults FUNC is the function to call with the selected path. It defaults
to `dired' if used interactively." to `dired' if used interactively."
(interactive (list current-prefix-arg #'dired)) (interactive (list #'dired))
(let* ((nav (my/index--nav-retrive)) (let* ((nav (my/index--nav-retrive))
(current-nav (my/index--nav-find-path (selected (my/index--nav-find-path
nav (expand-file-name default-directory))) nav
(current-child-navs (alist-get :child-navs current-nav))) (my/index--nav-prompt nav))))
(cond ((null arg) (funcall func (alist-get :path selected))))
(let ((selected (my/index--nav-find-path
nav
(my/index--nav-prompt nav))))
(if-let (child-navs (alist-get :child-navs selected))
(funcall func (my/index--nav-prompt child-navs))
(funcall func (alist-get :path selected)))))
((and (equal arg '(4)) current-child-navs)
(funcall func (my/index--nav-prompt current-child-navs)))
((and (equal arg '(4)) (null current-child-navs))
(funcall func (my/index--nav-prompt nav))))))
#+end_src #+end_src
Finally, something that I can bind to a key. Finally, something that I can bind to a key.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun my/index-nav-with-select-file (arg) (defun my/index-nav-with-select-file ()
(interactive (list current-prefix-arg)) (interactive)
(my/index-nav (my/index-nav
arg
(lambda (dir) (lambda (dir)
(let ((default-directory dir)) (let ((default-directory dir))
(projectile-find-file))))) (projectile-find-file)))))