| 1 | ;;; clang-rename.el --- Renames every occurrence of a symbol found at <offset>. -*- lexical-binding: t; -*- |
|---|
| 2 | |
|---|
| 3 | ;; Keywords: tools, c |
|---|
| 4 | |
|---|
| 5 | ;;; Commentary: |
|---|
| 6 | |
|---|
| 7 | ;; To install clang-rename.el make sure the directory of this file is in your |
|---|
| 8 | ;; `load-path' and add |
|---|
| 9 | ;; |
|---|
| 10 | ;; (require 'clang-rename) |
|---|
| 11 | ;; |
|---|
| 12 | ;; to your .emacs configuration. |
|---|
| 13 | |
|---|
| 14 | ;;; Code: |
|---|
| 15 | |
|---|
| 16 | (defgroup clang-rename nil |
|---|
| 17 | "Integration with clang-rename" |
|---|
| 18 | :group 'c) |
|---|
| 19 | |
|---|
| 20 | (defcustom clang-rename-binary "clang-rename" |
|---|
| 21 | "Path to clang-rename executable." |
|---|
| 22 | :type '(file :must-match t) |
|---|
| 23 | :group 'clang-rename) |
|---|
| 24 | |
|---|
| 25 | ;;;###autoload |
|---|
| 26 | (defun clang-rename (new-name) |
|---|
| 27 | "Rename all instances of the symbol at point to NEW-NAME using clang-rename." |
|---|
| 28 | (interactive "sEnter a new name: ") |
|---|
| 29 | (save-some-buffers :all) |
|---|
| 30 | ;; clang-rename should not be combined with other operations when undoing. |
|---|
| 31 | (undo-boundary) |
|---|
| 32 | (let ((output-buffer (get-buffer-create "*clang-rename*"))) |
|---|
| 33 | (with-current-buffer output-buffer (erase-buffer)) |
|---|
| 34 | (let ((exit-code (call-process |
|---|
| 35 | clang-rename-binary nil output-buffer nil |
|---|
| 36 | (format "-offset=%d" |
|---|
| 37 | ;; clang-rename wants file (byte) offsets, not |
|---|
| 38 | ;; buffer (character) positions. |
|---|
| 39 | (clang-rename--bufferpos-to-filepos |
|---|
| 40 | ;; Emacs treats one character after a symbol as |
|---|
| 41 | ;; part of the symbol, but clang-rename doesn’t. |
|---|
| 42 | ;; Use the beginning of the current symbol, if |
|---|
| 43 | ;; available, to resolve the inconsistency. |
|---|
| 44 | (or (car (bounds-of-thing-at-point 'symbol)) |
|---|
| 45 | (point)) |
|---|
| 46 | 'exact)) |
|---|
| 47 | (format "-new-name=%s" new-name) |
|---|
| 48 | "-i" (buffer-file-name)))) |
|---|
| 49 | (if (and (integerp exit-code) (zerop exit-code)) |
|---|
| 50 | ;; Success; revert current buffer so it gets the modifications. |
|---|
| 51 | (progn |
|---|
| 52 | (kill-buffer output-buffer) |
|---|
| 53 | (revert-buffer :ignore-auto :noconfirm :preserve-modes)) |
|---|
| 54 | ;; Failure; append exit code to output buffer and display it. |
|---|
| 55 | (let ((message (clang-rename--format-message |
|---|
| 56 | "clang-rename failed with %s %s" |
|---|
| 57 | (if (integerp exit-code) "exit status" "signal") |
|---|
| 58 | exit-code))) |
|---|
| 59 | (with-current-buffer output-buffer |
|---|
| 60 | (insert ?\n message ?\n)) |
|---|
| 61 | (message "%s" message) |
|---|
| 62 | (display-buffer output-buffer)))))) |
|---|
| 63 | |
|---|
| 64 | (defalias 'clang-rename--bufferpos-to-filepos |
|---|
| 65 | (if (fboundp 'bufferpos-to-filepos) |
|---|
| 66 | 'bufferpos-to-filepos |
|---|
| 67 | ;; Emacs 24 doesn’t have ‘bufferpos-to-filepos’, simulate it using |
|---|
| 68 | ;; ‘position-bytes’. |
|---|
| 69 | (lambda (position &optional _quality _coding-system) |
|---|
| 70 | (1- (position-bytes position))))) |
|---|
| 71 | |
|---|
| 72 | ;; ‘format-message’ is new in Emacs 25.1. Provide a fallback for older |
|---|
| 73 | ;; versions. |
|---|
| 74 | (defalias 'clang-rename--format-message |
|---|
| 75 | (if (fboundp 'format-message) 'format-message 'format)) |
|---|
| 76 | |
|---|
| 77 | (provide 'clang-rename) |
|---|
| 78 | |
|---|
| 79 | ;;; clang-rename.el ends here |
|---|
| 80 | |
|---|