Re: Reuse frame with emacsclient and/or use shell aliases when finding files

[Thien-Thi Nguyen <ttn@gnu.org>]

[-- Attachment #1.1: Type: text/plain, Size: 342 bytes --]

() Jacob Gerlach <jacobgerlach@gmail.com>
() Fri, 30 May 2014 18:57:19 -0700 (PDT)

   I wonder if I could come up with some utility
   function to read in bash aliases and create the
   associated dired bookmarks when I start emacs.

Probably yes, if you learn a small bit of Emacs Lisp.
Personally, i define an env var for each directory:


[-- Attachment #1.2: .directory-env-vars --]
[-- Type: application/emacs-lisp, Size: 2244 bytes --]

[-- Attachment #1.3: jamenv.el --]
[-- Type: application/emacs-lisp, Size: 1911 bytes --]

[-- Attachment #1.4: Type: text/plain, Size: 2283 bytes --]


and type (for example) ‘C-x C-f $go/gnugo.el’ to visit
/home/ttn/build/GNU/elpa/packages/gnugo/gnugo.el.

Recent Emacs versions can do completion, and even on
the env vars!  (I marvel at this, taken aback by the
mega-cycles burned for such banalities -- i guess i
prefer a more lizard-like less-electric lifestyle...
[insert more curmudgeonly harumphing] here.)

The "scads of short env vars" approach has, over the
years, tickled bugs in various tools that presume such
env vars are not set, which was annoying at the time,
but good for all (me and tools) over the long run,
once the tools' authors made them more mindful.

I also instrument ‘M-x compile’ like so:

 (defun rewrite-shell-command-w/cd (string)
   "If STRING begins w/ \"$foo\", return a new string.
 In the new string, the \"$foo\" is replaced with \"cd $foo\", and
 furthermore \"$foo\" is replaced with the value of `(getenv \"foo\")'.
 
 For example, if (getenv \"hack\") => \"~/build/hack\", then
   (rewrite-shell-command-w/cd \"$hack.b ; echo $hack\")
   => \"cd ~/build/hack.b ; echo $hack\"
 
 For other values of STRING, simply return it."
   (save-match-data
     (if (string-match "^[$]\\([a-zA-Z_]+\\)" string)
         (replace-match (concat "cd " (getenv (match-string 1 string)))
                        t t string)
       string)))

 (defadvice compilation-start (before rewrite-compilation-command-w/cd activate)
  "Replace COMMAND using `rewrite-shell-command-w/cd'."
  (ad-set-arg 0 (rewrite-shell-command-w/cd (ad-get-arg 0))))

and bind ‘M-m’ to ‘compile’, such that (for example)

 M-m $go ; git remote update RET

invokes the "git remote update" command in directory
/home/ttn/build/GNU/elpa/packages/gnugo, no matter
what the ‘default-directory’ (from current buffer) is
at ‘M-m’ time.  This is a small step towards the yet-
unrealized ideal of having the env var expanded in the
command, itself, which involves phasing complications
for the expansion of "~", primarily.  Maybe Some Day...

-- 
Thien-Thi Nguyen
   GPG key: 4C807502
   (if you're human and you know it)
      read my lisp: (responsep (questions 'technical)
                               (not (via 'mailing-list)))
                     => nil

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 197 bytes --]