daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

pkg update and first config fix

Browse Source 
org-brain not working, add org-roam
This commit is contained in:
Daniel Weschke
2022-12-19 23:02:34 +01:00
parent 02b3e07185
commit 82f05baffe
885 changed files with 356098 additions and 36993 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
lisp/pfuture.el
View File

@@ -5,9 +5,9 @@
;; Author: Alexander Miller <alexanderm@web.de>
;; Homepage: https://github.com/Alexander-Miller/pfuture
;; Package-Requires: ((emacs "25.2"))
;; Package-Version: 20211229.1513
;; Package-Commit: bde5b06795e3e35bfb2bba4c34b538d506a0856e
;; Version: 1.10.2
;; Package-Version: 20220913.1401
;; Package-Commit: 19b53aebbc0f2da31de6326c495038901bffb73c
;; Version: 1.10.3
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -61,16 +61,16 @@
(defun pfuture-new (&rest cmd)
"Create a new future process for command CMD.
Any arguments after the command are interpreted as arguments to the command.
This will return a process object with additional 'stderr and 'stdout
properties, which can be read via \(process-get process 'stdout\) and
\(process-get process 'stderr\) or alternatively with
This will return a process object with additional \\='stderr and \\='stdout
properties, which can be read via \(process-get process \\='stdout\) and
\(process-get process \\='stderr\) or alternatively with
\(pfuture-result process\) or \(pfuture-stderr process\).
Note that CMD must be a *sequence* of strings, meaning
this is wrong: (pfuture-new \"git status\")
this is right: (pfuture-new \"git\" \"status\")"
(let ((stderr (make-pipe-process
:name "Process Future stderr"
:name " Process Future stderr"
;; Use a dummy buffer for the stderr process. make-pipe-process creates a
;; buffer unless one is specified, even when :filter is specified and the
;; buffer is not used at all.
@@ -83,7 +83,7 @@ this is right: (pfuture-new \"git\" \"status\")"
;; cannot receive input.
(set-process-buffer stderr nil)
(condition-case err
(let* ((name (format "Pfuture-Buffer %s" cmd))
(let* ((name (format " Pfuture-Buffer %s" cmd))
(pfuture-buffer
(let (buffer-list-update-hook)
(generate-new-buffer name)))
@@ -122,54 +122,54 @@ FN may either be a (sharp) quoted function, and unquoted function or an sexp."
(cl-defmacro pfuture-callback
(command &key
directory
on-success
on-error
on-status-change
directory
name
connection-type
buffer
filter)
"Pfuture variant that supports a callback-based workflow.
Internally based on `make-process'. Requires lexical scope.
Internally based on `make-process'. Requires lexical scope.
The first - and only required - argument is COMMAND. It is an (unquoted) list of
the command and the arguments for the process that should be started. A vector
is likewise acceptable - the difference is purely cosmetic (this does not apply
when command is passed as a variable, in this case it must be a list).
The first - and only required - argument is COMMAND. It is an (unquoted) list
of the command and the arguments for the process that should be started. A
vector is likewise acceptable - the difference is purely cosmetic (this does not
apply when command is passed as a variable, in this case it must be a list).
The rest of the argument list is made up of the following keyword arguments:
ON-SUCCESS is the code that will run once the process has finished with an exit
code of 0. In its context, these variables are bound:
`process': The process object, as passed to the sentinel callback function.
`status': The string exit status, as passed to the sentinel callback function.
`pfuture-buffer': The buffer where the output of the process is collected,
including both stdin and stdout. You can use `pfuture-callback-output' to
quickly grab the buffer's content.
code of 0. In its context, these variables are bound: `process': The process
object, as passed to the sentinel callback function. `status': The string exit
status, as passed to the sentinel callback function. `pfuture-buffer': The
buffer where the output of the process is collected, including both stdin and
stdout. You can use `pfuture-callback-output' to quickly grab the buffer's
content.
ON-SUCCESS may take one of 3 forms: an unquoted sexp, a quoted function or an
unquoted function. In the former two cases the passed fuction will be called
unquoted function. In the former two cases the passed fuction will be called
with `process', `status' and `buffer' as its arguments.
ON-FAILURE is the inverse to ON-SUCCESS; it will only run if the process has
finished with a non-zero exit code. Otherwise the same conditions apply as for
ON-ERROR is the inverse to ON-SUCCESS; it will only run if the process has
finished with a non-zero exit code. Otherwise the same conditions apply as for
ON-SUCCESS.
ON-STATUS-CHANGE will run on every status change, even if the process remains
running. It is meant for debugging and has access to the same variables as
running. It is meant for debugging and has access to the same variables as
ON-SUCCESS and ON-ERROR, including the (potentially incomplete) process output
buffer. Otherwise the same conditions as for ON-SUCCESS and ON-ERROR apply.
buffer. Otherwise the same conditions as for ON-SUCCESS and ON-ERROR apply.
DIRECTORY is the value given to `default-directory' for the context of the
process. If not given it will fall back the current value of
process. If not given it will fall back the current value of
`default-directory'.
NAME will be passed to the :name property of `make-process'. If not given it
NAME will be passed to the :name property of `make-process'. If not given it
will fall back to \"Pfuture Callback [$COMMAND]\".
CONNECTION-TYPE will be passed to the :connection-process property of
`make-process'. If not given it will fall back to 'pipe.
`make-process'. If not given it will fall back to \\='pipe.
BUFFER is the buffer that will be used by the process to collect its output,
quickly collectible with `pfuture-output-from-buffer'.
@@ -183,7 +183,7 @@ to overwrite pfuture's own filter. By default pfuture uses its filter function
to collect the launched process' output in its buffer, thus when providing a
custom filter output needs to be gathered another way. Note that the process'
buffer is stored in its `buffer' property and is therefore accessible via
\(process-get process 'buffer\)."
\(process-get process \\='buffer\)."
(declare (indent 1))
(let* ((command (if (vectorp command)
`(quote ,(cl-map 'list #'identity command))
@@ -193,7 +193,7 @@ buffer is stored in its `buffer' property and is therefore accessible via
(unless (or on-success on-error)
(setq on-success '(function ignore)))
`(let* ((default-directory ,directory)
(name (or ,name (format "Pfuture-Callback %s" ,command)))
(name (or ,name (format " Pfuture-Callback %s" ,command)))
;; pfuture's buffers are internal implementation details
;; nobody should care if a new one is created
(pfuture-buffer (or ,buffer (let (buffer-list-update-hook) (generate-new-buffer name))))
@@ -229,10 +229,11 @@ Meant to be used with `pfuture-callback'."
Will accept the following optional keyword arguments:
TIMEOUT: The timeout in seconds to wait for the process. May be a float to
specify fractional number of seconds. In case of a timeout nil will be returned.
TIMEOUT: The timeout in seconds to wait for the process. May be a float to
specify fractional number of seconds. In case of a timeout nil will be
returned.
JUST-THIS-ONE: When t only read from the process of FUTURE and no other. For
JUST-THIS-ONE: When t only read from the process of FUTURE and no other. For
details see documentation of `accept-process-output'."
(let (inhibit-quit)
(accept-process-output
@@ -272,7 +273,7 @@ To get the full output use either `pfuture-await' or `pfuture-await-to-finish'."
Same as `pfuture-await', but will keep reading (and blocking) so long as the
process is *alive*.
If the process never quits this method will block forever. Use with caution!"
If the process never quits this method will block forever. Use with caution!"
;; If the sentinel hasn't run, disable it. We are going to delete
;; the stderr process here.
(set-process-sentinel process nil)