How to detect two emacs process in Elisp code?

How to detect two emacs process in Elisp code?

[stardiviner]

I load desktop-save-mode session in init.el. But when using
"bug-hunter-init-file", I need to exclude this session init file.

Here is my try:

#+begin_src emacs-lisp
;;; detect external system has Emacs process running?
;;; If yes, like `bug-hunter' is running. Then don't load session.
;;; FIXME
(let ((emacs-processes
       (length (mapcar
                'string-to-number
                (seq-filter
                 (lambda (str)
                   (not (string-empty-p str)))
                 (split-string
                  ;; (shell-command-to-string "ps -C emacs -o pid=")
                  (shell-command-to-string "ps -C emacs -o pid=")
                  "\n"))))))
  (when (<= emacs-processes 1)
    (message "init-emacs-session loading")
    (require 'init-emacs-session)))
#+end_src

The upper code has a problem, the command "ps -C emacs -o pid=" can't detect
emacs program name like "emacs-28.2.3" which is which is in /usr/local/bin and
compiled from source code.

Does anyone have good solution for this? Thanks in advance.

-- 
[ stardiviner ]
       I try to make every word tell the meaning that I want to express.

       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner, Matrix: stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3

How to detect two emacs process in Elisp code?

[numbchild]

I load desktop-save-mode session in init.el. But when using
"bug-hunter-init-file", I need to exclude this session init file.

Here is my try:

#+begin_src emacs-lisp
;;; detect external system has Emacs process running?
;;; If yes, like `bug-hunter' is running. Then don't load session.
;;; FIXME
(let ((emacs-processes
       (length (mapcar
                'string-to-number
                (seq-filter
                 (lambda (str)
                   (not (string-empty-p str)))
                 (split-string
                  ;; (shell-command-to-string "ps -C emacs -o pid=")
                  (shell-command-to-string "ps -C emacs -o pid=")
                  "\n"))))))
  (when (<= emacs-processes 1)
    (message "init-emacs-session loading")
    (require 'init-emacs-session)))
#+end_src

The upper code has a problem, the command "ps -C emacs -o pid=" can't detect
emacs program name like "emacs-28.2.3" which is in /usr/local/bin and
compiled from source code.

Does anyone has good solution for this? Thanks in advance.

[stardiviner]           <Hack this world!>      GPG key ID: 47C32433
IRC(freeenode): stardiviner                     Twitter:  @numbchild
Key fingerprint = 9BAA 92BC CDDD B9EF 3B36  CB99 B8C4 B8E5 47C3 2433
Blog: http://stardiviner.github.io/

Re: How to detect two emacs process in Elisp code?

[Noam Postavsky]

On Sat, 18 Jul 2020 at 01:56, numbchild@gmail.com <numbchild@gmail.com> wrote:

>                   (shell-command-to-string "ps -C emacs -o pid=")
>                   "\n"))))))
>   (when (<= emacs-processes 1)
>     (message "init-emacs-session loading")
>     (require 'init-emacs-session)))
> #+end_src
>
> The upper code has a problem, the command "ps -C emacs -o pid=" can't detect
> emacs program name like "emacs-28.2.3" which is in /usr/local/bin and
> compiled from source code.

If your init does (server-start), then you can just check for
(server-running-p). Otherwise, something like

(seq-count
 (lambda (proc) (and (equal (alist-get 'user proc) user-login-name)
                (string-match "\\<emacs\\>" (alist-get 'comm proc))))
 (mapcar #'process-attributes (list-system-processes)))

[SOLVED] Re: How to detect two emacs process in Elisp code?

[numbchild]

Really thanks, Noam. You're awesome! This solved my problem.

[stardiviner]           <Hack this world!>      GPG key ID: 47C32433
IRC(freeenode): stardiviner                     Twitter:  @numbchild
Key fingerprint = 9BAA 92BC CDDD B9EF 3B36  CB99 B8C4 B8E5 47C3 2433
Blog: http://stardiviner.github.io/


On Sat, Jul 18, 2020 at 8:25 PM Noam Postavsky <npostavs@gmail.com> wrote:

> On Sat, 18 Jul 2020 at 01:56, numbchild@gmail.com <numbchild@gmail.com>
> wrote:
>
> >                   (shell-command-to-string "ps -C emacs -o pid=")
> >                   "\n"))))))
> >   (when (<= emacs-processes 1)
> >     (message "init-emacs-session loading")
> >     (require 'init-emacs-session)))
> > #+end_src
> >
> > The upper code has a problem, the command "ps -C emacs -o pid=" can't
> detect
> > emacs program name like "emacs-28.2.3" which is in /usr/local/bin and
> > compiled from source code.
>
> If your init does (server-start), then you can just check for
> (server-running-p). Otherwise, something like
>
> (seq-count
>  (lambda (proc) (and (equal (alist-get 'user proc) user-login-name)
>                 (string-match "\\<emacs\\>" (alist-get 'comm proc))))
>  (mapcar #'process-attributes (list-system-processes)))
>

Re: How to detect two emacs process in Elisp code?

[Emanuel Berg via Users list for the GNU Emacs text editor]

stardiviner wrote:

> I load desktop-save-mode session in init.el.
> But when using "bug-hunter-init-file", I need to
> exclude this session init file.
>
> Here is my try:
>
> #+begin_src emacs-lisp
> ;;; detect external system has Emacs process running?
> ;;; If yes, like `bug-hunter' is running. Then don't load session.
> ;;; FIXME
> (let ((emacs-processes
>        (length (mapcar
>                 'string-to-number
>                 (seq-filter
>                  (lambda (str)
>                    (not (string-empty-p str)))
>                  (split-string
>                   ;; (shell-command-to-string "ps -C emacs -o pid=")
>                   (shell-command-to-string "ps -C emacs -o pid=")
>                   "\n"))))))
>   (when (<= emacs-processes 1)
>     (message "init-emacs-session loading")
>     (require 'init-emacs-session)))
> #+end_src

Try this:

(require 'seq)
(defun how-many-emacs ()
  (let ((emacs-processes
         (length (mapcar
                  #'string-to-number
                  (seq-filter
                   (lambda (str)
                     (not (string-empty-p str)) )
                   (split-string
                    (shell-command-to-string "ps -C emacs -o pid=")
                    "\n") )))))
    (message (format "Emacs process: %d" emacs-processes)) ))
;; (how-many-emacs) ; 1

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal

Re: How to detect two emacs process in Elisp code?

[Eli Zaretskii]

> From: stardiviner <numbchild@gmail.com>
> Date: Fri, 17 Jul 2020 22:54:50 +0800
> 
> (let ((emacs-processes
>        (length (mapcar
>                 'string-to-number
>                 (seq-filter
>                  (lambda (str)
>                    (not (string-empty-p str)))
>                  (split-string
>                   ;; (shell-command-to-string "ps -C emacs -o pid=")
>                   (shell-command-to-string "ps -C emacs -o pid=")
>                   "\n"))))))
>   (when (<= emacs-processes 1)
>     (message "init-emacs-session loading")
>     (require 'init-emacs-session)))

Why do you need to use an external command ('ps')?  What's wrong with
using list-system-processes and process-attributes instead?

Re: How to detect two emacs process in Elisp code?

[Emanuel Berg via Users list for the GNU Emacs text editor]

Eli Zaretskii wrote:

>> (let ((emacs-processes
>>        (length (mapcar
>>                 'string-to-number
>>                 (seq-filter
>>                  (lambda (str)
>>                    (not (string-empty-p str)))
>>                  (split-string
>>                   ;; (shell-command-to-string "ps -C emacs -o pid=")
>>                   (shell-command-to-string "ps -C emacs -o pid=")
>>                   "\n"))))))
>>   (when (<= emacs-processes 1)
>>     (message "init-emacs-session loading")
>>     (require 'init-emacs-session)))
>
> Why do you need to use an external command ('ps')?
> What's wrong with using list-system-processes and
> process-attributes instead?

Uhm... like this:

(defun count-emacs ()
  (let ((eps 0))
    (cl-loop for pid in (list-system-processes)
             when (string= (cdar (process-attributes pid)) "emacs")
             do (cl-incf eps) )
    eps) )
;; (count-emacs) ; 1

?

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal

Re: How to detect two emacs process in Elisp code?

[stardiviner]

Emanuel Berg via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> writes:

> Eli Zaretskii wrote:
>
>>> (let ((emacs-processes
>>>        (length (mapcar
>>>                 'string-to-number
>>>                 (seq-filter
>>>                  (lambda (str)
>>>                    (not (string-empty-p str)))
>>>                  (split-string
>>>                   ;; (shell-command-to-string "ps -C emacs -o pid=")
>>>                   (shell-command-to-string "ps -C emacs -o pid=")
>>>                   "\n"))))))
>>>   (when (<= emacs-processes 1)
>>>     (message "init-emacs-session loading")
>>>     (require 'init-emacs-session)))
>>
>> Why do you need to use an external command ('ps')?
>> What's wrong with using list-system-processes and
>> process-attributes instead?
>
> Uhm... like this:
>
> (defun count-emacs ()
>   (let ((eps 0))
>     (cl-loop for pid in (list-system-processes)
>              when (string= (cdar (process-attributes pid)) "emacs")
>              do (cl-incf eps) )
>     eps) )
> ;; (count-emacs) ; 1
>
> ?

This does not work perfectly, when I have Emacs running, then start "emacs -q"
from new command. The upper `(list-system-processes)` solution get result "1"
instead of "2". Maybe somewhere is wrong?

-- 
[ stardiviner ]
       I try to make every word tell the meaning that I want to express.

       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner, Matrix: stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3

Re: How to detect two emacs process in Elisp code?

[Emanuel Berg via Users list for the GNU Emacs text editor]

stardiviner wrote:

>>>> (let ((emacs-processes
>>>>        (length (mapcar
>>>>                 'string-to-number
>>>>                 (seq-filter
>>>>                  (lambda (str)
>>>>                    (not (string-empty-p str)))
>>>>                  (split-string
>>>>                   ;; (shell-command-to-string "ps -C emacs -o pid=")
>>>>                   (shell-command-to-string "ps -C emacs -o pid=")
>>>>                   "\n"))))))
>>>>   (when (<= emacs-processes 1)
>>>>     (message "init-emacs-session loading")
>>>>     (require 'init-emacs-session)))
>>>
>>> Why do you need to use an external command ('ps')?
>>> What's wrong with using list-system-processes and
>>> process-attributes instead?
>>
>> Uhm... like this:
>>
>> (defun count-emacs ()
>>   (let ((eps 0))
>>     (cl-loop for pid in (list-system-processes)
>>              when (string= (cdar (process-attributes pid)) "emacs")
>>              do (cl-incf eps) )
>>     eps) )
>> ;; (count-emacs) ; 1
>>
>> ?
>
> This does not work perfectly, when I have Emacs
> running, then start "emacs -q" from new command.
> The upper `(list-system-processes)` solution get
> result "1" instead of "2". Maybe somewhere
> is wrong?

Yes, don't use -q :)

Fix it by replacing "emacs" above with something more
intelligent...

Or use the Unix version :)

Simpler.

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal