ime-snake.el

;;; ime-snake.el ---

;; Copyright (C) 2013, 2019  Ian Eure

;; Author: Ian Eure <ian.eure@gmail.com>
;; Keywords:

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;;

;;; Code:

(defconst snake-re "^[a-z][a-z0-9_]*$")

(defconst camel-re "^[a-z][a-zA-Z0-9]*$")

(defun snakep (sym)
  (let ((case-fold-search))
    (string-match-p snake-re sym)))

(defun camelp (sym)
  (string-match-p camel-re sym))

(defun snake-case (sym)
  (let ((case-fold-search))
    (downcase (replace-regexp-in-string "\\([a-z]\\)\\([A-Z]\\)" "\\1_\\2" sym))))

(defun camel-case (sym)
  (let ((case-fold-search))
    (replace-regexp-in-string "_\\([a-z]\\)"
                              (lambda (text) (upcase (substring text 1))) sym)))

(defun toggle-camel-snake (sym)
  (cond ((snakep sym) (camel-case sym))
        ((camelp sym) (snake-case sym))))


(defun toggle-symbol-camel-snake-at-point ()
  (interactive)
  (save-excursion
    (let ((bs (bounds-of-thing-at-point 'symbol)))
      (when bs
        (let* ((start (car bs))
               (end (cdr bs))
               (sym (buffer-substring start end)))
          (goto-char start)
          (delete-region start end)
          (insert (toggle-camel-snake sym)))))))

(provide 'ime-snake)
;;; ime-snake.el ends here