Emacs Stack Exchange is a question and answer site for those using, extending or developing Emacs. It only takes a minute to sign up.
Sign up to join this community
How to add the string 'export ' to the beginning of each line of this text, with emacs:
RBENV_VERSION="2.n.0"
AUTHORIZE_NET_API_LOGIN_ID=example
AUTHORIZE_NET_TRANSACTION_KEY=example
# Google Calendar Integration
# Google Calendar
GOOGLE_CLIENT_ID=example
GOOGLE_CLIENT_SECRET=example
# Live Mailchimp keys
MAILCHIMP_API_KEY=example
An answer to a different question would be to add
_oldflags=$- ; set -a
as the first line of the file and
[[ "$_oldflags" =~ a ]] || set +a ; unset _oldflags
which tells bash to export all the variables (the set -a) and restore the state of the "set -a" flag at the end. If you never use "set -a" then this can be simplified to adding "set -a" at the start and "set +a" at the end.
Here's one way:
(defun doit ()
(interactive)
(while (not (eobp))
(beginning-of-line)
(when (looking-at "[A-Z]")
(insert "export "))
(next-line)))
This will walk through the lines starting at the cursor until the end of the buffer, and if the line starts with a capital letter (per the given regular expression range), then it will prepend with the string.
To use, paste this into *scratch*, position your cursor after the last close paren, and hit C-x C-e to load the definition. Then go to the buffer with your text, position your cursor on the first line you want to change, and invoke with M-x doit.
Of course this could be enhanced to only work in a region, parameterize in various ways, etc.
Another option, if you don't want to define a function, is to adapt the approach into a macro like this:
(when (looking-at "[A-Z]") (insert "export "))
C-x ( string C-a C-n C-x ), thenC-u 99 C-x e– Drew Dec 12 '19 at 5:32#. A non macro way to do the same would be to use C-x C-r t, string-rectangle once the start and end positions were marked. – icarus Dec 12 '19 at 6:27