Re: Need help writing file-visiting macro

[Kevin Rodgers]

Martin Slouf wrote:
> Is there an easy modification of this piece of code that can help me 
to find
> files in different directories?  i guess these are the string 
manipulation
> functions.

There are also file name manipulation functions, which are generally
preferable to the lower-level string manipulation functions:

file-name-directory
file-name-nondirectory
file-name-extension
file-name-sans-extension
file-name-sans-versions
file-name-as-directory
directory-file-name
expand-file-name

> The situation is like this:
>
> For each business level class (BankAccount.java) (located somewhere 
under the
> 'src' directory structure) there are at least two jsp pages:
> bank_account_edit_.jsp and bank_account_list_.jsp under the 'web' 
directory
> structure), ie:
>
> top dir
> +
> |
> +-- src (Java source in packages)
> |    |
> |    +-- somewhere
> |            |
> |            +-- BankAccount.java
> |
> +---web (JSP pages using jakarta-struts)
>      |
>      +-- somewhere
>              |
>              +-- bank_account_edit_.jsp
>         |
>         +-- bak_account_list_.jsp
>
>
> i get those macros (proposed in thi sthread) open the same buffer with
> modified name in the same directory.  My questions are like this:
>
> 1. what string function can be used to make the string BankAccount to
> transform it into bank_account_edit_ and bank_account_list_

Hmmm, CamelCase to lower_case.
http://www.emacswiki.org/cgi-bin/wiki/CamelCase refers to glasses-mode,
which unfortunately doesn't provide a low level utility function to
convert strings.  But you can write your own:

(defun CamelCase-to-lower_case (string)
  (let ((i 0)
        (result "")
        (case-fold-search nil))
    (while (string-match "[[:upper:]][[:lower:]]*" string i)
      (setq result
            (concat result
                    (substring string i (match-beginning 0))
                    (if (> (match-beginning 0) 0) "_")
                    (downcase (match-string 0 string))))
      (setq i (match-end 0)))
    (setq result
          (concat result (substring string i)))))

So (concat (CamelCase-to-lower_case "BankAccount") "_edit_") returns
"bank_account_edit_".

> 2. what functions should be used to open those jsp buffers (java
> buffer respectively)?, when each of this file is / can be in different
> directory?

Just stick with find-file, or perhaps
(switch-to-buffer (find-file-noselect FILE)) or
(pop-to-buffer (find-file-noselect FILE)).

--
Kevin Rodgers