كيفية جعل المخزن المؤقت لقفل Emacs يفشل عندما لا يتمكن من قفل ملف؟

Question

أريد أن يقوم بعض Emacs lisp بمعالجة نفس الملف من عمليات Emacs المختلفة.لذلك كتبت النص التالي للتحقق من كيفية القيام بذلك lock-buffer يعمل.ومع ذلك، فإنه يتوقف عند محاولة قفل الملف بواسطة عملية Emacs الثانية (find-and-lock-file $es2 /tmp/dummy).أحتاج للذهاب إلى محطة أخرى وإرسالها emacsclient --socket-name server-2 --eval '(kill-emacs)' لإيقاف عملية Emacs.يطالبك Emacs بما يجب فعله للملف إذا قمت بفتح واجهة مستخدم من خلاله emacsclient -t --socket-name server-2, ، ولكني أريد إجراء كل ذلك في الخلفية وتجنب استخدام موجه Emacs لمواصلة العملية.كيف يمكنني أن أفعل هذا؟هل من الممكن جعل Emacs يثير بعض الأخطاء عندما يفشل في قفل ملف؟

يحرر:اقترح @event_jr إجابة باستخدام file-locked-p.أعتقد أنه يعمل في معظم الأوقات.ومع ذلك، أعتقد أن عملية Emacs الأخرى يمكنها قفل الملف بين تنفيذ file-locked-p و lock-buffer. لذا، سأبقي هذا السؤال مفتوحًا. تم حلها.شكرًا، @event_jr!

#!/bin/bash
es1="server-1"
es2="server-2"

start-server () {
    emacs -q --daemon --eval "(progn (setq server-name \"$1\") (server-start) (require 'cl))"
}

emacs-eval () {
    echo "@$1 >>> $2"
    emacsclient --socket-name "$1" --eval "$2"
}

kill-emacs () {
    emacs-eval "$1" '(kill-emacs)'
}

find-and-lock-file () {
    emacs-eval "$1" "(progn (find-file \"$2\") (set-buffer-modified-p t) (lock-buffer))"
}

start-server $es1
start-server $es2

find-and-lock-file $es1 /tmp/dummy
find-and-lock-file $es2 /tmp/dummy

kill-emacs $es1
kill-emacs $es2

Answer 1

لا يبدو أن هناك طريقة للقيام بذلك emacsclient --eval إرجاع رمز الخطأ.ولكن يمكنك جعله يطبع ما تحتاج إلى معرفته:

#!/usr/bin/env bash

es1="server-1"
es2="server-2"

emacs=/Applications/Emacs.app/Contents/MacOS/Emacs
[ -e $emacs ] || emacs=emacs

start-server () {
  read -r -d '' script <<EOF
(progn
  (setq server-name "$1")
  (server-start)
  (require 'cl)

  (defun my-set-buffer-modified-p (flag)
    (flet ((ask-user-about-lock
              (&rest args)
;;              (signal 'file-locked args)
              (apply 'error "%s was locked by %s" args)))
      (set-buffer-modified-p flag))))
EOF

  $emacs -q --daemon --eval "$script"
}

emacs-eval () {
    echo "@$1 >>> $2"
  emacsclient --socket-name "$1" --eval "$2"
}

kill-emacs () {
  emacs-eval "$1" '(kill-emacs)'
}

find-and-lock-file () {
  read -r -d '' script <<EOF
(with-current-buffer (find-file-noselect "$2")
  (my-set-buffer-modified-p t))
EOF

  emacs-eval "$1" "$script"

}

start-server $es1
start-server $es2

find-and-lock-file $es1 /tmp/dummy
find-and-lock-file $es2 /tmp/dummy

kill-emacs $es1
kill-emacs $es2

يحرر:لقد بحثت حول المصدر قليلاً ووجدت إشارة إليهask-user-about-lock, ، والذي يحلها بشكل جيد.

Answer 2

لقد وجدت إجابة أخرى باستخدام run-with-timer, ، لتجاوز خطأ emacsclient --eval، حتى أتمكن من التحقق من ذلك (signal 'file-locked ...) يعمل في الوضع "العادي".

#!/usr/bin/env bash

es1="server-1"
es2="server-2"

emacs=/Applications/Emacs.app/Contents/MacOS/Emacs
[ -e $emacs ] || emacs=emacs

start-server () {
  read -r -d '' script <<EOF
(progn
  (setq server-name "$1")
  (server-start)
  (require 'cl)
  (defvar my-file-is-locked "undefined")

  (defun my-set-buffer-modified-p (flag)
    (flet ((ask-user-about-lock
              (&rest args)
              (setq my-file-is-locked "no")
              (signal 'file-locked args)))
      (set-buffer-modified-p flag)
      (setq my-file-is-locked "yes"))))
EOF

  $emacs -q --daemon --eval "$script"
}

emacs-eval () {
    echo "@$1 >>> $2"
  emacsclient --socket-name "$1" --eval "$2"
}

kill-emacs () {
  emacs-eval "$1" '(kill-emacs)'
}

find-and-lock-file () {
  read -r -d '' script <<EOF
(run-with-timer 0 nil (lambda ()
  (with-current-buffer (find-file-noselect "$2")
    (my-set-buffer-modified-p t))))
EOF

  emacs-eval "$1" "$script"
}

file-locked-p () {
  emacs-eval "$1" "(message \"my-file-is-locked = %s\" my-file-is-locked)"
}

start-server $es1
start-server $es2

find-and-lock-file $es1 /tmp/dummy
find-and-lock-file $es2 /tmp/dummy

file-locked-p $es1
file-locked-p $es2

kill-emacs $es1
kill-emacs $es2