Re: [OT, meta] markup (Re: have emacs use SIGTERM to end a process instead of SIGHUP)

[Tassilo Horn <tsdh@gnu.org>]

Emanuel Berg <embe8573@student.uu.se> writes:

>> --8<---------------cut here---------------start------------->8---
>> (defvar nanoc-process nil)
>> (make-variable-buffer-local 'nanoc-process)
>>
>> (defun nanoc-kill-process ()
>>   (when nanoc-process
>>     (delete-process nanoc-process)))
>>
>> (defun nanoc-server ()
>>   "Runs a nanoc web server"
>>   (interactive)
>>   (let ((default-directory (repository-root))
>>         (process-connection-type t))
>>     (setq nanoc-process
>>           (start-process-shell-command
>>            "nanoc-server" "nanoc-server"
>>            "bundle exec nanoc view -p 3005 -C"))
>>     (add-hook 'kill-buffer-hook #'nanoc-kill-process nil t)))
>> --8<---------------cut here---------------end--------------->8---
>
> Are there any perks of this markup that I'm unaware of?

Well, it's emphasized by Gnus (and maybe other emacs MUAs, too).

> I think it just looks strange.

Would you prefer org-mode blocks that are also font-locked with the
language-specific rules by Gnus (and probably other emacs MUAs)?

#+BEGIN_SRC emacs-lisp
(defvar nanoc-process nil)
(make-variable-buffer-local 'nanoc-process)

(defun nanoc-kill-process ()
  (when nanoc-process
    (delete-process nanoc-process)))

(defun nanoc-server ()
  "Runs a nanoc web server"
  (interactive)
  (let ((default-directory (repository-root))
        (process-connection-type t))
    (setq nanoc-process
          (start-process-shell-command
           "nanoc-server" "nanoc-server"
           "bundle exec nanoc view -p 3005 -C"))
    (add-hook 'kill-buffer-hook #'nanoc-kill-process nil t)))
#+END_SRC

IMHO, that's very nice when the reader uses Gnus, but if he doesn't, it
looks much more weird than the markers above.

> I take it is configurable like everything else, but it may be a wasted
> effort as my impression is that not that many people use it. So it'd
> be interesting to hear.

I use it cause it's convenient to use.

,----[ C-h k C-c M-m ]
| C-c M-m runs the command message-mark-inserted-region, which is an interactive
| compiled Lisp function in `message.el'.
| 
| It is bound to C-c M-m, <menu-bar> <Message> <Insert Region Marked>.
| 
| (message-mark-inserted-region BEG END &optional VERBATIM)
| 
| Mark some region in the current article with enclosing tags.
| See `message-mark-insert-begin' and `message-mark-insert-end'.
| If VERBATIM, use slrn style verbatim marks ("#v+" and "#v-").
`----

,----[ C-h k C-c M-f ]
| C-c M-f runs the command message-mark-insert-file, which is an interactive
| compiled Lisp function in `message.el'.
| 
| It is bound to C-c M-f, <menu-bar> <Message> <Insert File Marked...>.
| 
| (message-mark-insert-file FILE &optional VERBATIM)
| 
| Insert FILE at point, marking it with enclosing tags.
| See `message-mark-insert-begin' and `message-mark-insert-end'.
| If VERBATIM, use slrn style verbatim marks ("#v+" and "#v-").
| 
| [back]
`----

Bye,
Tassilo