What is Nostr?
fourier /
npub1tfz…54ty
2023-12-30 22:11:11

fourier on Nostr: helm-git-grep-at-point in LispWorks. One of my favorite commands in Emacs is ...

helm-git-grep-at-point in LispWorks.

One of my favorite commands in Emacs is helm-git-grep-at-point. I use it to navigate project all the time.
A similar simple command would enhance the LispWorks editor experience a lot, so I just wrote a simple function to simulate it using build-in "Search Files..." tool.

I assume the project is a git repo, and therefore just need to get the topmost directory where the .git directory is located an assume it as a project root. Using Editor sources (included in paid licenses for LW) one could find a way to call "Search files" tool.

So here you go, a couple of functions to do exactly that

https://pastebin.com/K7v9gELL

You can bind this command i.e like this:

```
;; Search current symbol in project, a-la Emacs helm-git-grep-at-point
(editor:bind-key "Search In Project" "Control-p" :mode "Lisp")
```

#LispWorks
Author Public Key
npub1tfze83puy76wxts44g9rvpj68pj2t95hydhmfx4gwhkwgg0fdg0qpl54ty