eshell prompt function error

eshell prompt function error

[Guido Van Hoecke]

Hi,

I am not very proficient in lisp, so I would like some advise.

I like my eshell prompt of the form

2012-10-20 15:21 ~/dir/subdir
$

I use following function gratefully based upon code in
http://www.northbound-train.com/emacs/em-joc.el

(setq eshell-prompt-function
      (lambda ()
        (let ((prompt (eshell/pwd))
              (now (format-time-string "\n%Y-%m-%d %H:%M " (current-time)))
              (home-dir (expand-file-name "~")))
          ;; get rid of the nasty backslashes
          (while (string-match "\\\\" home-dir)
            (setq home-dir (replace-match "/" nil t home-dir)))

          ;; match home-dir at the begining of the line
          ;; be careful not to match `/users/foo.old' if $HOME is `/users/foo'
          (if (string-match
               (concat "^\\(" home-dir "\\)\\(/.*\\)?$")
               prompt)

          (setq prompt (replace-match
                        (if (and (match-string 2))
                            "~\\2"
                          "~")
                        nil
                        nil
                        prompt
                        0)))

        ;; return the prompt
        ;;   -tack on \n$ or \n# depending on user id
        (concat now prompt
                (if (= (user-uid) 0) "\n# " "\n$ ")))))

Works fine 99,99% of the time

I also want to clear my eshell buffer from time to time and copied
(thank you oh original author) following method:

(defun eshell/clear ()
  "04Dec2001 - sailor, to clear the eshell buffer."
  (interactive)
  (let ((inhibit-read-only t))
        (erase-buffer)))

Can somebody explain why my prompt function does not work anymore after
having issued the clear command?

It prints following text in the eshell buffer and no longer shows a
prompt:

Args out of range: 13, 38

When entering a command in this promptless buffer, it does work and
shows the prompt after executing the command.

I'd like to know what causes this and how to avoid it.

Any one?

Thanks in advance,


Guido

--
La-dee-dee, la-dee-dah.

http://vanhoecke.org ... and go2 places!

RE: eshell prompt function error

[Doug Lewan]

Guido,

I have no problems with this. Specifically, using eshell/clear like a shell command or via M-x both seem to work.

Could you provide an error case?

Thanks.

,Doug


> -----Original Message-----
> From: help-gnu-emacs-bounces+dougl=shubertticketing.com@gnu.org
> [mailto:help-gnu-emacs-bounces+dougl=shubertticketing.com@gnu.org] On
> Behalf Of Guido Van Hoecke
> Sent: Saturday, 2012 October 20 09:49
> To: help-gnu-emacs@gnu.org
> Subject: eshell prompt function error
> 
> Hi,
> 
> I am not very proficient in lisp, so I would like some advise.
> 
> I like my eshell prompt of the form
> 
> 2012-10-20 15:21 ~/dir/subdir
> $
> 
> I use following function gratefully based upon code in
> http://www.northbound-train.com/emacs/em-joc.el
> 
> (setq eshell-prompt-function
>       (lambda ()
>         (let ((prompt (eshell/pwd))
>               (now (format-time-string "\n%Y-%m-%d %H:%M " (current-
> time)))
>               (home-dir (expand-file-name "~")))
>           ;; get rid of the nasty backslashes
>           (while (string-match "\\\\" home-dir)
>             (setq home-dir (replace-match "/" nil t home-dir)))
> 
>           ;; match home-dir at the begining of the line
>           ;; be careful not to match `/users/foo.old' if $HOME is
> `/users/foo'
>           (if (string-match
>                (concat "^\\(" home-dir "\\)\\(/.*\\)?$")
>                prompt)
> 
>           (setq prompt (replace-match
>                         (if (and (match-string 2))
>                             "~\\2"
>                           "~")
>                         nil
>                         nil
>                         prompt
>                         0)))
> 
>         ;; return the prompt
>         ;;   -tack on \n$ or \n# depending on user id
>         (concat now prompt
>                 (if (= (user-uid) 0) "\n# " "\n$ ")))))
> 
> Works fine 99,99% of the time
> 
> I also want to clear my eshell buffer from time to time and copied
> (thank you oh original author) following method:
> 
> (defun eshell/clear ()
>   "04Dec2001 - sailor, to clear the eshell buffer."
>   (interactive)
>   (let ((inhibit-read-only t))
>         (erase-buffer)))
> 
> Can somebody explain why my prompt function does not work anymore after
> having issued the clear command?
> 
> It prints following text in the eshell buffer and no longer shows a
> prompt:
> 
> Args out of range: 13, 38
> 
> When entering a command in this promptless buffer, it does work and
> shows the prompt after executing the command.
> 
> I'd like to know what causes this and how to avoid it.
> 
> Any one?
> 
> Thanks in advance,
> 
> 
> Guido
> 
> --
> La-dee-dee, la-dee-dah.
> 
> http://vanhoecke.org ... and go2 places!

Re: eshell prompt function error

[Guido Van Hoecke]

Doug,

There's probably some interaction with other parts of my initialisation
code.

Trying to build a pure test case, I started an emasc --no-init-file,
sourced the eshell.clear and the eshell-prompt-function and - as you
said - they work fine.

So I'll start hunting for some code that could interact.

Thanks for your reply.

Kind regards,

Guido

On 22 October 2012 13:42, Doug Lewan <dougl@shubertticketing.com> wrote:
> Guido,
>
> I have no problems with this. Specifically, using eshell/clear like a shell command or via M-x both seem to work.
>
> Could you provide an error case?
>
> Thanks.
>
> ,Doug
>
>
>> -----Original Message-----
>> From: help-gnu-emacs-bounces+dougl=shubertticketing.com@gnu.org
>> [mailto:help-gnu-emacs-bounces+dougl=shubertticketing.com@gnu.org] On
>> Behalf Of Guido Van Hoecke
>> Sent: Saturday, 2012 October 20 09:49
>> To: help-gnu-emacs@gnu.org
>> Subject: eshell prompt function error
>>
>> Hi,
>>
>> I am not very proficient in lisp, so I would like some advise.
>>
>> I like my eshell prompt of the form
>>
>> 2012-10-20 15:21 ~/dir/subdir
>> $
>>
>> I use following function gratefully based upon code in
>> http://www.northbound-train.com/emacs/em-joc.el
>>
>> (setq eshell-prompt-function
>>       (lambda ()
>>         (let ((prompt (eshell/pwd))
>>               (now (format-time-string "\n%Y-%m-%d %H:%M " (current-
>> time)))
>>               (home-dir (expand-file-name "~")))
>>           ;; get rid of the nasty backslashes
>>           (while (string-match "\\\\" home-dir)
>>             (setq home-dir (replace-match "/" nil t home-dir)))
>>
>>           ;; match home-dir at the begining of the line
>>           ;; be careful not to match `/users/foo.old' if $HOME is
>> `/users/foo'
>>           (if (string-match
>>                (concat "^\\(" home-dir "\\)\\(/.*\\)?$")
>>                prompt)
>>
>>           (setq prompt (replace-match
>>                         (if (and (match-string 2))
>>                             "~\\2"
>>                           "~")
>>                         nil
>>                         nil
>>                         prompt
>>                         0)))
>>
>>         ;; return the prompt
>>         ;;   -tack on \n$ or \n# depending on user id
>>         (concat now prompt
>>                 (if (= (user-uid) 0) "\n# " "\n$ ")))))
>>
>> Works fine 99,99% of the time
>>
>> I also want to clear my eshell buffer from time to time and copied
>> (thank you oh original author) following method:
>>
>> (defun eshell/clear ()
>>   "04Dec2001 - sailor, to clear the eshell buffer."
>>   (interactive)
>>   (let ((inhibit-read-only t))
>>         (erase-buffer)))
>>
>> Can somebody explain why my prompt function does not work anymore after
>> having issued the clear command?
>>
>> It prints following text in the eshell buffer and no longer shows a
>> prompt:
>>
>> Args out of range: 13, 38
>>
>> When entering a command in this promptless buffer, it does work and
>> shows the prompt after executing the command.
>>
>> I'd like to know what causes this and how to avoid it.
>>
>> Any one?
>>
>> Thanks in advance,
>>
>>
>> Guido
>>
>> --
>> La-dee-dee, la-dee-dah.
>>
>> http://vanhoecke.org ... and go2 places!
>