Как заставить Emacs блокировать буфер, если он не может заблокировать файл? - PullRequest
Новая
       12

Как заставить Emacs блокировать буфер, если он не может заблокировать файл?

4 голосов
/ 08 марта 2012

Я хочу, чтобы некоторые 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 вызвать какую-либо ошибку, если не удается заблокировать файл?

EDIT : @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

Ответы [ 2 ]

4 голосов
/ 08 марта 2012

Кажется, нет способа заставить 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, что хорошо решает.

0 голосов
/ 12 марта 2012

Я нашел другой ответ, используя 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
...