Merge pull request #749 from lexa/emacsclient_advice
Added helper to open file with emacsclient using filename:line path
This commit is contained in:
commit
72d11bdddd
2 changed files with 27 additions and 0 deletions
|
@ -234,6 +234,14 @@ alias vi='emacsclient -t'
|
||||||
The last two aliases are helpful if you're used to editing files from
|
The last two aliases are helpful if you're used to editing files from
|
||||||
the command line using `vi(m)`.
|
the command line using `vi(m)`.
|
||||||
|
|
||||||
|
Also you can open a file with cursor on choosen line:
|
||||||
|
|
||||||
|
```bash
|
||||||
|
emacsclient somefile:1234
|
||||||
|
```
|
||||||
|
|
||||||
|
This will open file 'somefile' and set cursor on line 1234.
|
||||||
|
|
||||||
## Getting to know Prelude
|
## Getting to know Prelude
|
||||||
|
|
||||||
Certainly the best way to understand how Prelude enhances the default
|
Certainly the best way to understand how Prelude enhances the default
|
||||||
|
|
|
@ -397,6 +397,25 @@ indent yanked text (with prefix arg don't indent)."
|
||||||
("%" . apply-operation-to-number-at-point)
|
("%" . apply-operation-to-number-at-point)
|
||||||
("'" . operate-on-number-at-point)))
|
("'" . operate-on-number-at-point)))
|
||||||
|
|
||||||
|
(defadvice server-visit-files (before parse-numbers-in-lines (files proc &optional nowait) activate)
|
||||||
|
"Open file with emacsclient with cursors positioned on requested line.
|
||||||
|
Most of console-based utilities prints filename in format
|
||||||
|
'filename:linenumber'. So you may wish to open filename in that format.
|
||||||
|
Just call:
|
||||||
|
|
||||||
|
emacsclient filename:linenumber
|
||||||
|
|
||||||
|
and file 'filename' will be opened and cursor set on line 'linenumber'"
|
||||||
|
(ad-set-arg 0
|
||||||
|
(mapcar (lambda (fn)
|
||||||
|
(let ((name (car fn)))
|
||||||
|
(if (string-match "^\\(.*?\\):\\([0-9]+\\)\\(?::\\([0-9]+\\)\\)?$" name)
|
||||||
|
(cons
|
||||||
|
(match-string 1 name)
|
||||||
|
(cons (string-to-number (match-string 2 name))
|
||||||
|
(string-to-number (or (match-string 3 name) ""))))
|
||||||
|
fn))) files)))
|
||||||
|
|
||||||
(provide 'prelude-editor)
|
(provide 'prelude-editor)
|
||||||
|
|
||||||
;;; prelude-editor.el ends here
|
;;; prelude-editor.el ends here
|
||||||
|
|
Loading…
Reference in a new issue