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
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