From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Daniel Mendler Newsgroups: gmane.emacs.devel Subject: Re: emacsclient in elisp Date: Wed, 19 May 2021 23:56:36 +0200 Message-ID: <7f61f071-5808-8bd5-498f-25efa5640e86@daniel-mendler.de> References: <00ce8ae3-bb21-c58f-cd32-c196f146842b@daniel-mendler.de> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="13962"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Stefan Monnier , "T.V Raman" To: "emacs-devel@gnu.org" Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Wed May 19 23:57:26 2021 Return-path: Envelope-to: ged-emacs-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1ljUBx-0003SY-3f for ged-emacs-devel@m.gmane-mx.org; Wed, 19 May 2021 23:57:25 +0200 Original-Received: from localhost ([::1]:51370 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ljUBv-0007rI-8e for ged-emacs-devel@m.gmane-mx.org; Wed, 19 May 2021 17:57:23 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:40976) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ljUBJ-0007An-U9 for emacs-devel@gnu.org; Wed, 19 May 2021 17:56:45 -0400 Original-Received: from server.qxqx.de ([2a01:4f8:121:346::180]:44835 helo=mail.qxqx.de) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ljUBH-0002nG-Hb for emacs-devel@gnu.org; Wed, 19 May 2021 17:56:45 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=qxqx.de; s=mail1392553390; h=Content-Transfer-Encoding:Content-Type:In-Reply-To: MIME-Version:Date:Message-ID:Cc:References:To:From:Subject:Sender:Reply-To: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=2rnnI4PIE8vsmq6jxXQSE0Xl+QUZr7ps3PKbnngHxYw=; b=cNbSq5gw/dYST4OIDkNfVka9tW yfl3pBTdc4LHTNPWgy3IssjRasLMfXiKr1cOhTSNp6Kl/u61DG5/8ytFi97pDdRJvLqHiXJTcj33N jaiMyYlyWGVAMq6B3kFvfVW3P1Zs8TrqGPn1V92Gjfd20/WoRgzgD4E4yT6eJGZXP0gQ=; In-Reply-To: <00ce8ae3-bb21-c58f-cd32-c196f146842b@daniel-mendler.de> Content-Language: en-US Received-SPF: pass client-ip=2a01:4f8:121:346::180; envelope-from=mail@daniel-mendler.de; helo=mail.qxqx.de X-Spam_score_int: -41 X-Spam_score: -4.2 X-Spam_bar: ---- X-Spam_report: (-4.2 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, RCVD_IN_DNSWL_MED=-2.3, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.io gmane.emacs.devel:269485 Archived-At: On 5/19/21 2:50 PM, Daniel Mendler wrote: > I am looking for an elisp implementation of emacsclient. Is such a > functionality already build into Emacs? This would allow to start a > separate Emacs instance which can then be used as an asynchronous worker. Turns out such an `emacsclient` is rather easy to build using `make-network-process`. This is probably neither robust nor platform independent due to the use of unix sockets. Nevertheless such a client is useful to communicate with asynchronous Emacs workers. With some effort it is possible to replace the current `emacsclient` protocol with something more robust. I assume there is no guarantee for backward compatibility in this protocol? Daniel ~~~~ (defun emacsclient (name expr callback) (let* ((result) (proc (make-network-process :name name :noquery t :sentinel (lambda (_proc _event) (funcall callback (and result (read result)))) :filter (lambda (_proc out) (dolist (line (split-string out "\n")) (cond ((string-prefix-p "-print " line) (setq result (server-unquote-arg (string-remove-prefix "-print " line)))) ((string-prefix-p "-print-nonl " line) (setq result (concat result (server-unquote-arg (string-remove-prefix "-printnonl " line)))))))) :coding 'raw-text-unix :family 'local :service (expand-file-name name server-socket-dir)))) (process-send-string proc (format "-eval %s \n" (server-quote-arg (prin1-to-string expr)))) proc))