My Emacs Lisp Scripts

sort-import-group.el

(defun sort-import-group ()
  "This function basically sorts a comma separated list of strings but it's been
written to sort grouped imports in Scala.
Example:
`import org.temp.{ B, C, A }`
By selecting the grouped imported items (`B, C, A`) from the above code sample and run (M-x) `sort-group`
you'll get the following result:
`import org.temp.{ A, B, C }`"
  (interactive)
  (let* ((bounds (cons (region-beginning) (region-end)))
         (text (buffer-substring-no-properties (car bounds) (cdr bounds))))
    (when bounds
      (delete-region (car bounds) (cdr bounds))
      (let ((splited-sorted (sort
                             (split-string text
                                           ","
                                           nil
                                           " ")
                             'string<)))
        (insert (mapconcat 'identity
                           splited-sorted
                           ", "))))))