update packages ; install org-super-agenda into org-mode profile
This commit is contained in:
parent
d66bbc5052
commit
c73ab93edc
|
|
@ -1,6 +1,6 @@
|
|||
(define-package "all-the-icons" "20220801.1541" "A library for inserting Developer icons"
|
||||
(define-package "all-the-icons" "20220823.1719" "A library for inserting Developer icons"
|
||||
'((emacs "24.3"))
|
||||
:commit "6f876fa11ef64af20d9b2a44fdabac6446de51ba" :authors
|
||||
:commit "4a4d6269b8b85b0b15954f063e6ce378630d80c0" :authors
|
||||
'(("Dominic Charlesworth" . "dgc336@gmail.com"))
|
||||
:maintainer
|
||||
'("Dominic Charlesworth" . "dgc336@gmail.com")
|
||||
|
|
@ -445,6 +445,8 @@ for performance sake.")
|
|||
("^Makefile$" all-the-icons-fileicon "gnu" :face all-the-icons-dorange)
|
||||
("^CMakeLists.txt$" all-the-icons-fileicon "cmake" :face all-the-icons-red)
|
||||
("^CMakeCache.txt$" all-the-icons-fileicon "cmake" :face all-the-icons-blue)
|
||||
("^meson.build$" all-the-icons-fileicon "meson" :face all-the-icons-purple)
|
||||
("^meson_options.txt$" all-the-icons-fileicon "meson" :face all-the-icons-purple)
|
||||
|
||||
;; Docker
|
||||
("^\\.?Dockerfile" all-the-icons-fileicon "dockerfile" :face all-the-icons-blue)
|
||||
|
|
@ -723,7 +725,8 @@ for performance sake.")
|
|||
(elfeed-show-mode all-the-icons-faicon "rss" :face all-the-icons-orange)
|
||||
(lilypond-mode all-the-icons-faicon "music" :face all-the-icons-green)
|
||||
(magik-session-mode all-the-icons-alltheicon "terminal" :face all-the-icons-blue)
|
||||
(magik-cb-mode all-the-icons-faicon "book" :face all-the-icons-blue)))
|
||||
(magik-cb-mode all-the-icons-faicon "book" :face all-the-icons-blue)
|
||||
(meson-mode all-the-icons-fileicon "meson" :face all-the-icons-purple)))
|
||||
|
||||
(defvar all-the-icons-url-alist
|
||||
'(
|
||||
|
|
@ -267,7 +267,7 @@
|
|||
( "maya" . "\xe9f6" )
|
||||
( "mediawiki" . "\xe954" )
|
||||
( "mercury" . "\xe994" )
|
||||
( "meson" . "\xea54" )
|
||||
( "meson" . "\xeafe" )
|
||||
( "metal" . "\x4d" )
|
||||
( "meteor" . "\xe6a5" )
|
||||
( "microsoft-infopath" . "\xea35" )
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -1,6 +1,6 @@
|
|||
;;; async-bytecomp.el --- Compile elisp files asynchronously -*- lexical-binding: t -*-
|
||||
|
||||
;; Copyright (C) 2014-2019 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2014-2022 Free Software Foundation, Inc.
|
||||
|
||||
;; Authors: John Wiegley <jwiegley@gmail.com>
|
||||
;; Thierry Volpiatto <thievol@posteo.net>
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
(define-package "async" "20220630.57" "Asynchronous processing in Emacs"
|
||||
(define-package "async" "20220820.530" "Asynchronous processing in Emacs"
|
||||
'((emacs "24.4"))
|
||||
:commit "7f4ed1e8b44e0b88eadb2efeeaf97f32c38f14c4" :authors
|
||||
:commit "73f825fd739875e4b8e10d47d497df402bbb61e7" :authors
|
||||
'(("John Wiegley" . "jwiegley@gmail.com"))
|
||||
:maintainer
|
||||
'("Thierry Volpiatto" . "thievol@posteo.net")
|
||||
|
|
@ -1,12 +1,12 @@
|
|||
;;; async.el --- Asynchronous processing in Emacs -*- lexical-binding: t -*-
|
||||
|
||||
;; Copyright (C) 2012-2019 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2012-2022 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <jwiegley@gmail.com>
|
||||
;; Maintainer: Thierry Volpiatto <thievol@posteo.net>
|
||||
|
||||
;; Created: 18 Jun 2012
|
||||
;; Version: 1.9.5
|
||||
;; Version: 1.9.6
|
||||
;; Package-Requires: ((emacs "24.4"))
|
||||
|
||||
;; Keywords: async
|
||||
|
|
@ -36,7 +36,7 @@
|
|||
|
||||
(defgroup async nil
|
||||
"Simple asynchronous processing in Emacs"
|
||||
:group 'emacs)
|
||||
:group 'lisp)
|
||||
|
||||
(defcustom async-variables-noprops-function #'async--purecopy
|
||||
"Default function to remove text properties in variables."
|
||||
|
|
@ -230,19 +230,17 @@ It is intended to be used as follows:
|
|||
"Called from the child Emacs process' command line."
|
||||
;; Make sure 'message' and 'prin1' encode stuff in UTF-8, as parent
|
||||
;; process expects.
|
||||
(let ((coding-system-for-write 'utf-8-auto))
|
||||
(let ((coding-system-for-write 'utf-8-auto)
|
||||
(args-left command-line-args-left))
|
||||
(setq async-in-child-emacs t
|
||||
debug-on-error async-debug)
|
||||
(if debug-on-error
|
||||
debug-on-error async-debug
|
||||
command-line-args-left nil)
|
||||
(condition-case-unless-debug err
|
||||
(prin1 (funcall
|
||||
(async--receive-sexp (unless async-send-over-pipe
|
||||
command-line-args-left))))
|
||||
(condition-case err
|
||||
(prin1 (funcall
|
||||
(async--receive-sexp (unless async-send-over-pipe
|
||||
command-line-args-left))))
|
||||
(error
|
||||
(prin1 (list 'async-signal err)))))))
|
||||
args-left))))
|
||||
(error
|
||||
(prin1 (list 'async-signal err))))))
|
||||
|
||||
(defun async-ready (future)
|
||||
"Query a FUTURE to see if it is ready.
|
||||
|
|
@ -68,6 +68,19 @@ Should take same args as `message'."
|
|||
:risky t
|
||||
:type 'sexp)
|
||||
|
||||
(defcustom dired-async-skip-fast t
|
||||
"If non-nil, skip async for fast operations.
|
||||
Same device renames and copying and renaming files smaller than
|
||||
`dired-async-small-file-max' are considered fast."
|
||||
:risky t
|
||||
:type 'bool)
|
||||
|
||||
(defcustom dired-async-small-file-max 5000000
|
||||
"Files smaller than this in bytes are considered fast to copy
|
||||
or rename for `dired-async-skip-fast'."
|
||||
:risky t
|
||||
:type 'int)
|
||||
|
||||
(defface dired-async-message
|
||||
'((t (:foreground "yellow")))
|
||||
"Face used for mode-line message.")
|
||||
|
|
@ -174,6 +187,50 @@ Should take same args as `message'."
|
|||
(buffer-name b)) b))))
|
||||
(when buf (kill-buffer buf))))))
|
||||
|
||||
(defsubst dired-async--directory-p (attributes)
|
||||
"Return non-nil if ATTRIBUTES is for a directory.
|
||||
See `file-attributes'."
|
||||
;; Can also be a string for symlinks, so check for t explicitly.
|
||||
(eq (file-attribute-type attributes) t))
|
||||
|
||||
(defsubst dired-async--same-device-p (f1 f2)
|
||||
"Return non-nil if F1 and F2 have the same device number."
|
||||
(= (file-attribute-device-number (file-attributes f1))
|
||||
(file-attribute-device-number (file-attributes f2))))
|
||||
|
||||
(defun dired-async--small-file-p (file)
|
||||
"Return non-nil if FILE is small (can create quickly)."
|
||||
(let ((a (file-attributes file)))
|
||||
;; Directories are always large since we can't easily figure out
|
||||
;; their total size.
|
||||
(and (not (dired-async--directory-p a))
|
||||
(< (file-attribute-size a) dired-async-small-file-max))))
|
||||
|
||||
(defun dired-async--skip-async-p (file-creator file name-constructor)
|
||||
"Return non-nil if we should skip async for FILE.
|
||||
See `dired-create-files' for FILE-CREATOR and NAME-CONSTRUCTOR."
|
||||
;; Skip async for small files.
|
||||
(or (dired-async--small-file-p file)
|
||||
;; Also skip async for same device renames.
|
||||
(and (eq file-creator 'dired-rename-file)
|
||||
(let ((new (funcall name-constructor file)))
|
||||
(dired-async--same-device-p file (file-name-directory new))))))
|
||||
|
||||
(defun dired-async--smart-create-files (old-func file-creator operation fn-list name-constructor
|
||||
&optional marker-char)
|
||||
"Around advice for `dired-create-files'.
|
||||
Uses async like `dired-async-create-files' but skips certain fast
|
||||
cases if `dired-async-skip-fast' is non-nil."
|
||||
(let (async-list quick-list)
|
||||
(dolist (old fn-list)
|
||||
(if (dired-async--skip-async-p file-creator old name-constructor)
|
||||
(push old quick-list)
|
||||
(push old async-list)))
|
||||
(when async-list
|
||||
(dired-async-create-files file-creator operation (nreverse async-list) name-constructor marker-char))
|
||||
(when quick-list
|
||||
(funcall old-func file-creator operation (nreverse quick-list) name-constructor marker-char))))
|
||||
|
||||
(defvar overwrite-query)
|
||||
(defun dired-async-create-files (file-creator operation fn-list name-constructor
|
||||
&optional _marker-char)
|
||||
|
|
@ -340,10 +397,10 @@ ESC or `q' to not overwrite any of the remaining files,
|
|||
:global t
|
||||
(if dired-async-mode
|
||||
(progn
|
||||
(advice-add 'dired-create-files :override #'dired-async-create-files)
|
||||
(advice-add 'dired-create-files :around #'dired-async--smart-create-files)
|
||||
(advice-add 'wdired-do-renames :around #'dired-async-wdired-do-renames))
|
||||
(progn
|
||||
(advice-remove 'dired-create-files #'dired-async-create-files)
|
||||
(advice-remove 'dired-create-files #'dired-async--smart-create-files)
|
||||
(advice-remove 'wdired-do-renames #'dired-async-wdired-do-renames))))
|
||||
|
||||
(defmacro dired-async--with-async-create-files (&rest body)
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
;;; smtpmail-async.el --- Send e-mail with smtpmail.el asynchronously -*- lexical-binding: t -*-
|
||||
|
||||
;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2012-2022 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <jwiegley@gmail.com>
|
||||
;; Created: 18 Jun 2012
|
||||
|
|
@ -1,84 +0,0 @@
|
|||
;;; bind-key-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
|
||||
;;
|
||||
;;; Code:
|
||||
|
||||
(add-to-list 'load-path (directory-file-name
|
||||
(or (file-name-directory #$) (car load-path))))
|
||||
|
||||
|
||||
;;;### (autoloads nil "bind-key" "bind-key.el" (0 0 0 0))
|
||||
;;; Generated autoloads from bind-key.el
|
||||
|
||||
(autoload 'bind-key "bind-key" "\
|
||||
Bind KEY-NAME to COMMAND in KEYMAP (`global-map' if not passed).
|
||||
|
||||
KEY-NAME may be a vector, in which case it is passed straight to
|
||||
`define-key'. Or it may be a string to be interpreted as
|
||||
spelled-out keystrokes, e.g., \"C-c C-z\". See documentation of
|
||||
`edmacro-mode' for details.
|
||||
|
||||
COMMAND must be an interactive function or lambda form.
|
||||
|
||||
KEYMAP, if present, should be a keymap variable or symbol.
|
||||
For example:
|
||||
|
||||
(bind-key \"M-h\" #'some-interactive-function my-mode-map)
|
||||
|
||||
(bind-key \"M-h\" #'some-interactive-function 'my-mode-map)
|
||||
|
||||
If PREDICATE is non-nil, it is a form evaluated to determine when
|
||||
a key should be bound. It must return non-nil in such cases.
|
||||
Emacs can evaluate this form at any time that it does redisplay
|
||||
or operates on menu data structures, so you should write it so it
|
||||
can safely be called at any time.
|
||||
|
||||
\(fn KEY-NAME COMMAND &optional KEYMAP PREDICATE)" nil t)
|
||||
|
||||
(autoload 'unbind-key "bind-key" "\
|
||||
Unbind the given KEY-NAME, within the KEYMAP (if specified).
|
||||
See `bind-key' for more details.
|
||||
|
||||
\(fn KEY-NAME &optional KEYMAP)" nil t)
|
||||
|
||||
(autoload 'bind-key* "bind-key" "\
|
||||
Similar to `bind-key', but overrides any mode-specific bindings.
|
||||
|
||||
\(fn KEY-NAME COMMAND &optional PREDICATE)" nil t)
|
||||
|
||||
(autoload 'bind-keys "bind-key" "\
|
||||
Bind multiple keys at once.
|
||||
|
||||
Accepts keyword arguments:
|
||||
:map MAP - a keymap into which the keybindings should be
|
||||
added
|
||||
:prefix KEY - prefix key for these bindings
|
||||
:prefix-map MAP - name of the prefix map that should be created
|
||||
for these bindings
|
||||
:prefix-docstring STR - docstring for the prefix-map variable
|
||||
:menu-name NAME - optional menu string for prefix map
|
||||
:filter FORM - optional form to determine when bindings apply
|
||||
|
||||
The rest of the arguments are conses of keybinding string and a
|
||||
function symbol (unquoted).
|
||||
|
||||
\(fn &rest ARGS)" nil t)
|
||||
|
||||
(autoload 'bind-keys* "bind-key" "\
|
||||
|
||||
|
||||
\(fn &rest ARGS)" nil t)
|
||||
|
||||
(autoload 'describe-personal-keybindings "bind-key" "\
|
||||
Display all the personal keybindings defined by `bind-key'." t nil)
|
||||
|
||||
(register-definition-prefixes "bind-key" '("bind-key" "compare-keybindings" "get-binding-description" "override-global-m" "personal-keybindings"))
|
||||
|
||||
;;;***
|
||||
|
||||
;; Local Variables:
|
||||
;; version-control: never
|
||||
;; no-byte-compile: t
|
||||
;; no-update-autoloads: t
|
||||
;; coding: utf-8
|
||||
;; End:
|
||||
;;; bind-key-autoloads.el ends here
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
;;; Generated package description from bind-key.el -*- no-byte-compile: t -*-
|
||||
(define-package "bind-key" "20210210.1609" "A simple way to manage personal keybindings" 'nil :commit "a7422fb8ab1baee19adb2717b5b47b9c3812a84c" :authors '(("John Wiegley" . "johnw@newartisans.com")) :maintainer '("John Wiegley" . "johnw@newartisans.com") :keywords '("keys" "keybinding" "config" "dotemacs") :url "https://github.com/jwiegley/use-package")
|
||||
|
|
@ -22,9 +22,9 @@ COMMAND must be an interactive function or lambda form.
|
|||
KEYMAP, if present, should be a keymap variable or symbol.
|
||||
For example:
|
||||
|
||||
(bind-key \"M-h\" #'some-interactive-function my-mode-map)
|
||||
(bind-key \"M-h\" #\\='some-interactive-function my-mode-map)
|
||||
|
||||
(bind-key \"M-h\" #'some-interactive-function \\='my-mode-map)
|
||||
(bind-key \"M-h\" #\\='some-interactive-function \\='my-mode-map)
|
||||
|
||||
If PREDICATE is non-nil, it is a form evaluated to determine when
|
||||
a key should be bound. It must return non-nil in such cases.
|
||||
|
|
@ -1,2 +1,2 @@
|
|||
;;; Generated package description from bind-key.el -*- no-byte-compile: t -*-
|
||||
(define-package "bind-key" "20220815.1925" "A simple way to manage personal keybindings" 'nil :commit "e2d173b1200865a9efd5c2066831a230497582c0" :authors '(("John Wiegley" . "johnw@newartisans.com")) :maintainer '("John Wiegley" . "johnw@newartisans.com") :keywords '("keys" "keybinding" "config" "dotemacs") :url "https://github.com/jwiegley/use-package")
|
||||
(define-package "bind-key" "20220910.2157" "A simple way to manage personal keybindings" 'nil :commit "9a45a8004a9e520e0e822b960ca9d70c2528181e" :authors '(("John Wiegley" . "johnw@newartisans.com")) :maintainer '("John Wiegley" . "johnw@newartisans.com") :keywords '("keys" "keybinding" "config" "dotemacs") :url "https://github.com/jwiegley/use-package")
|
||||
|
|
@ -7,8 +7,8 @@
|
|||
;; Created: 16 Jun 2012
|
||||
;; Modified: 29 Nov 2017
|
||||
;; Version: 2.4
|
||||
;; Package-Version: 20220815.1925
|
||||
;; Package-Commit: e2d173b1200865a9efd5c2066831a230497582c0
|
||||
;; Package-Version: 20220910.2157
|
||||
;; Package-Commit: 9a45a8004a9e520e0e822b960ca9d70c2528181e
|
||||
;; Keywords: keys keybinding config dotemacs
|
||||
;; URL: https://github.com/jwiegley/use-package
|
||||
|
||||
|
|
@ -160,9 +160,9 @@ COMMAND must be an interactive function or lambda form.
|
|||
KEYMAP, if present, should be a keymap variable or symbol.
|
||||
For example:
|
||||
|
||||
(bind-key \"M-h\" #'some-interactive-function my-mode-map)
|
||||
(bind-key \"M-h\" #\\='some-interactive-function my-mode-map)
|
||||
|
||||
(bind-key \"M-h\" #'some-interactive-function \\='my-mode-map)
|
||||
(bind-key \"M-h\" #\\='some-interactive-function \\='my-mode-map)
|
||||
|
||||
If PREDICATE is non-nil, it is a form evaluated to determine when
|
||||
a key should be bound. It must return non-nil in such cases.
|
||||
|
Before Width: | Height: | Size: 43 KiB After Width: | Height: | Size: 43 KiB |
|
Before Width: | Height: | Size: 32 KiB After Width: | Height: | Size: 32 KiB |
|
|
@ -1,6 +1,6 @@
|
|||
(define-package "dashboard" "20220717.905" "A startup screen extracted from Spacemacs"
|
||||
(define-package "dashboard" "20220907.759" "A startup screen extracted from Spacemacs"
|
||||
'((emacs "26.1"))
|
||||
:commit "36c8da41bca977707c42bd9b13cdf39380b957d7" :authors
|
||||
:commit "02c350d7a767f577c8cccee84904c423f86fae54" :authors
|
||||
'(("Rakan Al-Hneiti" . "rakan.alhneiti@gmail.com"))
|
||||
:maintainer
|
||||
'("Jesús Martínez" . "jesusmartinez93@gmail.com")
|
||||
|
|
@ -174,6 +174,8 @@ Example:
|
|||
(setq package-count (length package-activated-list)))
|
||||
(when (boundp 'straight--profile-cache)
|
||||
(setq package-count (+ (hash-table-count straight--profile-cache) package-count)))
|
||||
(when (fboundp 'elpaca--queued)
|
||||
(setq package-count (length (elpaca--queued))))
|
||||
(if (zerop package-count)
|
||||
(format "Emacs started in %s" time)
|
||||
(format "%d packages loaded in %s" package-count time))))
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
;;; Generated package description from diminish.el -*- no-byte-compile: t -*-
|
||||
(define-package "diminish" "20220104.1539" "Diminished modes are minor modes with no modeline display" '((emacs "24.3")) :commit "6b7e837b0cf0129e9d7d6abae48093cf599bb9e8" :authors '(("Will Mengarini" . "seldon@eskimo.com")) :maintainer '("Martin Yrjölä" . "martin.yrjola@gmail.com") :keywords '("extensions" "diminish" "minor" "codeprose") :url "https://github.com/myrjola/diminish.el")
|
||||
|
|
@ -16,7 +16,7 @@ Interactively, enter (with completion) the name of any minor mode, followed
|
|||
on the next line by what you want it diminished to (default empty string).
|
||||
The response to neither prompt should be quoted. However, in Lisp code,
|
||||
both args must be quoted, the first as a symbol, the second as a string,
|
||||
as in (diminish 'jiggle-mode \" Jgl\").
|
||||
as in (diminish \\='jiggle-mode \" Jgl\").
|
||||
|
||||
The mode-line displays of minor modes usually begin with a space, so
|
||||
the modes' names appear as separate words on the mode line. However, if
|
||||
|
|
@ -36,7 +36,7 @@ Interactively, enter (with completion) the name of any diminished mode (a
|
|||
mode that was formerly a minor mode on which you invoked \\[diminish]).
|
||||
To restore all diminished modes to minor status, answer `diminished-modes'.
|
||||
The response to the prompt shouldn't be quoted. However, in Lisp code,
|
||||
the arg must be quoted as a symbol, as in (diminish-undo 'diminished-modes).
|
||||
the arg must be quoted as a symbol, as in (diminish-undo \\='diminished-modes).
|
||||
|
||||
\(fn MODE)" t nil)
|
||||
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
;;; Generated package description from diminish.el -*- no-byte-compile: t -*-
|
||||
(define-package "diminish" "20220909.847" "Diminished modes are minor modes with no modeline display" '((emacs "24.3")) :commit "fbd5d846611bad828e336b25d2e131d1bc06b83d" :authors '(("Will Mengarini" . "seldon@eskimo.com")) :maintainer '("Martin Yrjölä" . "martin.yrjola@gmail.com") :keywords '("extensions" "diminish" "minor" "codeprose") :url "https://github.com/myrjola/diminish.el")
|
||||
|
|
@ -5,8 +5,8 @@
|
|||
;; Author: Will Mengarini <seldon@eskimo.com>
|
||||
;; Maintainer: Martin Yrjölä <martin.yrjola@gmail.com>
|
||||
;; URL: https://github.com/myrjola/diminish.el
|
||||
;; Package-Version: 20220104.1539
|
||||
;; Package-Commit: 6b7e837b0cf0129e9d7d6abae48093cf599bb9e8
|
||||
;; Package-Version: 20220909.847
|
||||
;; Package-Commit: fbd5d846611bad828e336b25d2e131d1bc06b83d
|
||||
;; Created: Th 19 Feb 98
|
||||
;; Version: 0.46
|
||||
;; Package-Requires: ((emacs "24.3"))
|
||||
|
|
@ -159,7 +159,7 @@ Interactively, enter (with completion) the name of any minor mode, followed
|
|||
on the next line by what you want it diminished to (default empty string).
|
||||
The response to neither prompt should be quoted. However, in Lisp code,
|
||||
both args must be quoted, the first as a symbol, the second as a string,
|
||||
as in (diminish 'jiggle-mode \" Jgl\").
|
||||
as in (diminish \\='jiggle-mode \" Jgl\").
|
||||
|
||||
The mode-line displays of minor modes usually begin with a space, so
|
||||
the modes' names appear as separate words on the mode line. However, if
|
||||
|
|
@ -212,7 +212,7 @@ Interactively, enter (with completion) the name of any diminished mode (a
|
|||
mode that was formerly a minor mode on which you invoked \\[diminish]).
|
||||
To restore all diminished modes to minor status, answer `diminished-modes'.
|
||||
The response to the prompt shouldn't be quoted. However, in Lisp code,
|
||||
the arg must be quoted as a symbol, as in (diminish-undo 'diminished-modes)."
|
||||
the arg must be quoted as a symbol, as in (diminish-undo \\='diminished-modes)."
|
||||
(interactive
|
||||
(list (read (completing-read
|
||||
"Restore what diminished mode: "
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
;;; Generated package description from dockerfile-mode.el -*- no-byte-compile: t -*-
|
||||
(define-package "dockerfile-mode" "20220220.1439" "Major mode for editing Docker's Dockerfiles" '((emacs "24")) :commit "b63a3d12b7dea0cb9efc7f78d7ad5672ceab2a3f" :keywords '("docker") :url "https://github.com/spotify/dockerfile-mode")
|
||||
|
|
@ -13,9 +13,19 @@
|
|||
(autoload 'dockerfile-build-buffer "dockerfile-mode" "\
|
||||
Build an image called IMAGE-NAME based upon the buffer.
|
||||
|
||||
If prefix arg NO-CACHE is set, don't cache the image.
|
||||
The build string will be of the format:
|
||||
`sudo docker build --no-cache --tag IMAGE-NAME --build-args arg1.. -f filename directory`
|
||||
If the prefix arg NO-CACHE is set, don't cache the image.
|
||||
|
||||
The shell command used to build the image is:
|
||||
|
||||
sudo docker build \\
|
||||
--no-cache \\
|
||||
--force-rm \\
|
||||
--pull \\
|
||||
--tag IMAGE-NAME \\
|
||||
--build-args args \\
|
||||
--progress type \\
|
||||
-f filename \\
|
||||
directory
|
||||
|
||||
\(fn IMAGE-NAME &optional NO-CACHE)" t nil)
|
||||
|
||||
|
|
@ -30,7 +40,7 @@ A major mode to edit Dockerfiles.
|
|||
|
||||
\(fn)" t nil)
|
||||
|
||||
(add-to-list 'auto-mode-alist '("/Dockerfile\\(?:\\.[^/\\]*\\)?\\'" . dockerfile-mode))
|
||||
(add-to-list 'auto-mode-alist (cons (concat "[/\\]" "\\(?:Containerfile\\|Dockerfile\\)" "\\(?:\\.[^/\\]*\\)?\\'") 'dockerfile-mode))
|
||||
|
||||
(add-to-list 'auto-mode-alist '("\\.dockerfile\\'" . dockerfile-mode))
|
||||
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
;;; Generated package description from dockerfile-mode.el -*- no-byte-compile: t -*-
|
||||
(define-package "dockerfile-mode" "20220822.2021" "Major mode for editing Docker's Dockerfiles" '((emacs "24")) :commit "52c6c00da1d31c0b6c29c74335b3af63ed6bf06c" :keywords '("docker" "languages" "processes" "tools") :url "https://github.com/spotify/dockerfile-mode")
|
||||
|
|
@ -2,12 +2,12 @@
|
|||
|
||||
;; Copyright (c) 2013 Spotify AB
|
||||
;; Package-Requires: ((emacs "24"))
|
||||
;; Package-Version: 20220220.1439
|
||||
;; Package-Commit: b63a3d12b7dea0cb9efc7f78d7ad5672ceab2a3f
|
||||
;; Package-Version: 20220822.2021
|
||||
;; Package-Commit: 52c6c00da1d31c0b6c29c74335b3af63ed6bf06c
|
||||
;; Homepage: https://github.com/spotify/dockerfile-mode
|
||||
;; URL: https://github.com/spotify/dockerfile-mode
|
||||
;; Version: 1.5
|
||||
;; Keywords: docker
|
||||
;; Version: 1.7
|
||||
;; Keywords: docker languages processes tools
|
||||
;;
|
||||
;; Licensed under the Apache License, Version 2.0 (the "License"); you may not
|
||||
;; use this file except in compliance with the License. You may obtain a copy of
|
||||
|
|
@ -36,7 +36,7 @@
|
|||
(declare-function cygwin-convert-file-name-to-windows "cygw32.c" (file &optional absolute-p))
|
||||
|
||||
(defgroup dockerfile nil
|
||||
"dockerfile code editing commands for Emacs."
|
||||
"Dockerfile editing commands for Emacs."
|
||||
:link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
|
||||
:prefix "dockerfile-"
|
||||
:group 'languages)
|
||||
|
|
@ -69,6 +69,11 @@ Each element of the list will be passed as a separate
|
|||
:type '(repeat string)
|
||||
:group 'dockerfile)
|
||||
|
||||
(defcustom dockerfile-build-progress "auto"
|
||||
"Type of --progress output (auto, plain, tty) of docker build."
|
||||
:group 'dockerfile
|
||||
:type 'string)
|
||||
|
||||
(defcustom dockerfile-use-buildkit nil
|
||||
"Use Docker buildkit for building images?
|
||||
|
||||
|
|
@ -178,7 +183,9 @@ file name. Otherwise, uses Emacs' standard conversion function."
|
|||
(convert-standard-filename file)))
|
||||
|
||||
(defun dockerfile-tag-string (image-name)
|
||||
"Return a --tag shell-quoted IMAGE-NAME string or an empty string if image-name is blank."
|
||||
"Return a --tag shell-quoted IMAGE-NAME string.
|
||||
|
||||
Returns an empty string if IMAGE-NAME is blank."
|
||||
(if (string= image-name "") "" (format "--tag %s " (shell-quote-argument image-name))))
|
||||
|
||||
(define-obsolete-variable-alias 'docker-image-name 'dockerfile-image-name "2017-10-22")
|
||||
|
|
@ -199,15 +206,25 @@ This can be set in file or directory-local variables.")
|
|||
(defun dockerfile-build-buffer (image-name &optional no-cache)
|
||||
"Build an image called IMAGE-NAME based upon the buffer.
|
||||
|
||||
If prefix arg NO-CACHE is set, don't cache the image.
|
||||
The build string will be of the format:
|
||||
`sudo docker build --no-cache --tag IMAGE-NAME --build-args arg1.. -f filename directory`"
|
||||
If the prefix arg NO-CACHE is set, don't cache the image.
|
||||
|
||||
The shell command used to build the image is:
|
||||
|
||||
sudo docker build \\
|
||||
--no-cache \\
|
||||
--force-rm \\
|
||||
--pull \\
|
||||
--tag IMAGE-NAME \\
|
||||
--build-args args \\
|
||||
--progress type \\
|
||||
-f filename \\
|
||||
directory"
|
||||
|
||||
(interactive (list (dockerfile-read-image-name) prefix-arg))
|
||||
(save-buffer)
|
||||
(compilation-start
|
||||
(format
|
||||
"%s%s%s build %s %s %s %s %s -f %s %s"
|
||||
"%s%s%s build %s %s %s %s %s --progress %s -f %s %s"
|
||||
(if dockerfile-use-buildkit "DOCKER_BUILDKIT=1 " "")
|
||||
(if dockerfile-use-sudo "sudo " "")
|
||||
dockerfile-mode-command
|
||||
|
|
@ -216,6 +233,7 @@ The build string will be of the format:
|
|||
(if dockerfile-build-pull "--pull " "")
|
||||
(dockerfile-tag-string image-name)
|
||||
(dockerfile-build-arg-string)
|
||||
dockerfile-build-progress
|
||||
(shell-quote-argument (dockerfile-standard-filename
|
||||
(or (file-remote-p (buffer-file-name) 'localname)
|
||||
(buffer-file-name))))
|
||||
|
|
@ -248,8 +266,7 @@ returned, otherwise the base image name is used."
|
|||
;;;###autoload
|
||||
(define-derived-mode dockerfile-mode prog-mode "Dockerfile"
|
||||
"A major mode to edit Dockerfiles.
|
||||
\\{dockerfile-mode-map}
|
||||
"
|
||||
\\{dockerfile-mode-map}"
|
||||
(set-syntax-table dockerfile-mode-syntax-table)
|
||||
(set (make-local-variable 'imenu-generic-expression)
|
||||
`(("Stage" dockerfile--imenu-function 1)))
|
||||
|
|
@ -264,8 +281,11 @@ returned, otherwise the base image name is used."
|
|||
(set (make-local-variable 'indent-line-function) #'dockerfile-indent-line-function))
|
||||
|
||||
;;;###autoload
|
||||
(add-to-list 'auto-mode-alist '("/Dockerfile\\(?:\\.[^/\\]*\\)?\\'" .
|
||||
dockerfile-mode))
|
||||
(add-to-list 'auto-mode-alist
|
||||
(cons (concat "[/\\]"
|
||||
"\\(?:Containerfile\\|Dockerfile\\)"
|
||||
"\\(?:\\.[^/\\]*\\)?\\'")
|
||||
'dockerfile-mode))
|
||||
|
||||
;;;###autoload
|
||||
(add-to-list 'auto-mode-alist '("\\.dockerfile\\'" . dockerfile-mode))
|
||||
|
|
@ -15,47 +15,6 @@ If DEFAULT is non-nil, set the default mode-line for all buffers.
|
|||
|
||||
\(fn &optional DEFAULT)" nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-minimal-modeline "doom-modeline" "\
|
||||
Set minimal mode-line." nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-special-modeline "doom-modeline" "\
|
||||
Set special mode-line." nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-project-modeline "doom-modeline" "\
|
||||
Set project mode-line." nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-dashboard-modeline "doom-modeline" "\
|
||||
Set dashboard mode-line." nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-vcs-modeline "doom-modeline" "\
|
||||
Set vcs mode-line." nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-info-modeline "doom-modeline" "\
|
||||
Set Info mode-line." nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-package-modeline "doom-modeline" "\
|
||||
Set package mode-line." nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-media-modeline "doom-modeline" "\
|
||||
Set media mode-line." nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-message-modeline "doom-modeline" "\
|
||||
Set message mode-line." nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-pdf-modeline "doom-modeline" "\
|
||||
Set pdf mode-line." nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-org-src-modeline "doom-modeline" "\
|
||||
Set org-src mode-line." nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-helm-modeline "doom-modeline" "\
|
||||
Set helm mode-line.
|
||||
|
||||
\(fn &rest _)" nil nil)
|
||||
|
||||
(autoload 'doom-modeline-set-timemachine-modeline "doom-modeline" "\
|
||||
Set timemachine mode-line." nil nil)
|
||||
|
||||
(defvar doom-modeline-mode nil "\
|
||||
Non-nil if Doom-Modeline mode is enabled.
|
||||
See the `doom-modeline-mode' command
|
||||
|
|
@ -85,7 +44,7 @@ it is disabled.
|
|||
|
||||
\(fn &optional ARG)" t nil)
|
||||
|
||||
(register-definition-prefixes "doom-modeline" '("doom-modeline-mode-map"))
|
||||
(register-definition-prefixes "doom-modeline" '("doom-modeline-"))
|
||||
|
||||
;;;***
|
||||
|
||||
|
|
@ -529,6 +529,13 @@ It respects `display-time-mode'."
|
|||
:type 'boolean
|
||||
:group 'doom-modeline)
|
||||
|
||||
(defcustom doom-modeline-display-misc-in-all-mode-lines t
|
||||
"Whether display the misc segment on all mode lines.
|
||||
|
||||
If nil, display only if the mode line is active."
|
||||
:type 'boolean
|
||||
:group 'doom-modeline)
|
||||
|
||||
|
||||
;;
|
||||
;; Faces
|
||||
|
|
@ -778,8 +785,8 @@ Also see the face `doom-modeline-unread-number'."
|
|||
;;
|
||||
|
||||
(declare-function face-remap-remove-relative "face-remap")
|
||||
(declare-function ffip-project-root "ext:find-file-in-project")
|
||||
(declare-function project-root "project")
|
||||
(declare-function ffip-get-project-root-directory "ext:find-file-in-project")
|
||||
(declare-function projectile-project-root "ext:projectile")
|
||||
|
||||
|
||||
|
|
@ -1028,7 +1035,7 @@ If DEFAULT is non-nil, set the default mode-line for all buffers."
|
|||
(when-let ((modeline (doom-modeline key)))
|
||||
(setf (if default
|
||||
(default-value 'mode-line-format)
|
||||
(buffer-local-value 'mode-line-format (current-buffer)))
|
||||
mode-line-format)
|
||||
(list "%e" modeline))))
|
||||
|
||||
|
||||
|
|
@ -1219,12 +1226,11 @@ Return nil if no project was found."
|
|||
(setq doom-modeline--project-root
|
||||
(cond
|
||||
((and (memq doom-modeline-project-detection '(auto ffip))
|
||||
(fboundp 'ffip-get-project-root-directory))
|
||||
(fboundp 'ffip-project-root))
|
||||
(let ((inhibit-message t))
|
||||
(ffip-get-project-root-directory)))
|
||||
(ffip-project-root)))
|
||||
((and (memq doom-modeline-project-detection '(auto projectile))
|
||||
(or (fboundp 'projectile-project-root)
|
||||
(require 'projectile nil t)))
|
||||
(bound-and-true-p projectile-mode))
|
||||
(projectile-project-root))
|
||||
((and (memq doom-modeline-project-detection '(auto project))
|
||||
(fboundp 'project-current))
|
||||
|
|
@ -1,8 +1,8 @@
|
|||
(define-package "doom-modeline" "20220804.508" "A minimal and modern mode-line"
|
||||
(define-package "doom-modeline" "20220911.631" "A minimal and modern mode-line"
|
||||
'((emacs "25.1")
|
||||
(compat "28.1.1.1")
|
||||
(shrink-path "0.2.0"))
|
||||
:commit "4c4b451fcf705f58e6ca41339f22365434b664cb" :authors
|
||||
:commit "73cccaba36aca706e8d819ce01f74d8d24533167" :authors
|
||||
'(("Vincent Zhang" . "seagle0128@gmail.com"))
|
||||
:maintainer
|
||||
'("Vincent Zhang" . "seagle0128@gmail.com")
|
||||
|
|
@ -1344,7 +1344,7 @@ regions, 5. The current/total for the highlight term (with `symbol-overlay'),
|
|||
|
||||
(doom-modeline-def-segment media-info
|
||||
"Metadata regarding the current file, such as dimensions for images."
|
||||
;; TODO Include other information
|
||||
;; TODO: Include other information
|
||||
(cond ((eq major-mode 'image-mode)
|
||||
(cl-destructuring-bind (width . height)
|
||||
(when (fboundp 'image-size)
|
||||
|
|
@ -1612,7 +1612,9 @@ mouse-2: Show help for minor mode"
|
|||
(doom-modeline-def-segment misc-info
|
||||
"Mode line construct for miscellaneous information.
|
||||
By default, this shows the information specified by `global-mode-string'."
|
||||
(unless doom-modeline--limited-width-p
|
||||
(when (and (not doom-modeline--limited-width-p)
|
||||
(or doom-modeline-display-misc-in-all-mode-lines
|
||||
(doom-modeline--active)))
|
||||
'("" mode-line-misc-info)))
|
||||
|
||||
|
||||
|
|
@ -154,82 +154,46 @@
|
|||
If DEFAULT is non-nil, set the default mode-line for all buffers."
|
||||
(doom-modeline-set-modeline 'main default))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-minimal-modeline ()
|
||||
"Set minimal mode-line."
|
||||
(doom-modeline-set-modeline 'minimal))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-special-modeline ()
|
||||
"Set special mode-line."
|
||||
(doom-modeline-set-modeline 'special))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-project-modeline ()
|
||||
"Set project mode-line."
|
||||
(doom-modeline-set-modeline 'project))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-dashboard-modeline ()
|
||||
"Set dashboard mode-line."
|
||||
(doom-modeline-set-modeline 'dashboard))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-vcs-modeline ()
|
||||
"Set vcs mode-line."
|
||||
(doom-modeline-set-modeline 'vcs))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-info-modeline ()
|
||||
"Set Info mode-line."
|
||||
(doom-modeline-set-modeline 'info))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-package-modeline ()
|
||||
"Set package mode-line."
|
||||
(doom-modeline-set-modeline 'package))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-media-modeline ()
|
||||
"Set media mode-line."
|
||||
(doom-modeline-set-modeline 'media))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-message-modeline ()
|
||||
"Set message mode-line."
|
||||
(doom-modeline-set-modeline 'message))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-pdf-modeline ()
|
||||
"Set pdf mode-line."
|
||||
(doom-modeline-set-modeline 'pdf))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-org-src-modeline ()
|
||||
"Set org-src mode-line."
|
||||
(doom-modeline-set-modeline 'org-src))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-helm-modeline (&rest _) ; To advice helm
|
||||
"Set helm mode-line."
|
||||
(doom-modeline-set-modeline 'helm))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-modeline-set-timemachine-modeline ()
|
||||
"Set timemachine mode-line."
|
||||
(doom-modeline-set-modeline 'timemachine))
|
||||
|
||||
|
||||
;;
|
||||
;; Minor mode
|
||||
;;
|
||||
|
||||
(defvar doom-modeline-mode-map (make-sparse-keymap))
|
||||
|
||||
;; Suppress warnings
|
||||
(defvar 2C-mode-line-format)
|
||||
(declare-function helm-display-mode-line "ext:helm-core")
|
||||
|
||||
(defvar doom-modeline-mode-map (make-sparse-keymap))
|
||||
|
||||
(defvar doom-modeline-mode-alist
|
||||
'((message-mode . message)
|
||||
(git-commit-mode . message)
|
||||
(magit-mode . vcs)
|
||||
(dashboard-mode . dashboard)
|
||||
(Info-mode . project)
|
||||
(image-mode . media)
|
||||
(pdf-view-mode . pdf)
|
||||
(org-src-mode . org-src)
|
||||
(paradox-menu-mode . package)
|
||||
(xwidget-webkit-mode . minimal)
|
||||
(git-timemachine-mode . timemachine)
|
||||
(circe-mode . special)
|
||||
(erc-mode . special)
|
||||
(rcirc-mode . special))
|
||||
"Alist of major modes and mode-lines.")
|
||||
|
||||
(defun doom-modeline-auto-set-modeline ()
|
||||
"Set mode-line base on major-mode."
|
||||
(catch 'found
|
||||
(dolist (x doom-modeline-mode-alist)
|
||||
(when (derived-mode-p (car x))
|
||||
(doom-modeline-set-modeline (cdr x))
|
||||
(throw 'found x)))))
|
||||
|
||||
(defun doom-modeline-set-helm-modeline (&rest _) ; To advice helm
|
||||
"Set helm mode-line."
|
||||
(doom-modeline-set-modeline 'helm))
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode doom-modeline-mode
|
||||
"Toggle `doom-modeline' on or off."
|
||||
|
|
@ -250,24 +214,10 @@ If DEFAULT is non-nil, set the default mode-line for all buffers."
|
|||
;; For two-column editing
|
||||
(setq 2C-mode-line-format (doom-modeline 'special))
|
||||
|
||||
;; Add hooks
|
||||
(add-hook 'Info-mode-hook #'doom-modeline-set-info-modeline)
|
||||
(add-hook 'dired-mode-hook #'doom-modeline-set-project-modeline)
|
||||
(add-hook 'dashboard-mode-hook #'doom-modeline-set-dashboard-modeline)
|
||||
(add-hook 'image-mode-hook #'doom-modeline-set-media-modeline)
|
||||
(add-hook 'message-mode-hook #'doom-modeline-set-message-modeline)
|
||||
(add-hook 'git-commit-mode-hook #'doom-modeline-set-message-modeline)
|
||||
(add-hook 'magit-mode-hook #'doom-modeline-set-vcs-modeline)
|
||||
(add-hook 'circe-mode-hook #'doom-modeline-set-special-modeline)
|
||||
(add-hook 'erc-mode-hook #'doom-modeline-set-special-modeline)
|
||||
(add-hook 'rcirc-mode-hook #'doom-modeline-set-special-modeline)
|
||||
(add-hook 'pdf-view-mode-hook #'doom-modeline-set-pdf-modeline)
|
||||
(add-hook 'org-src-mode-hook #'doom-modeline-set-org-src-modeline)
|
||||
(add-hook 'git-timemachine-mode-hook #'doom-modeline-set-timemachine-modeline)
|
||||
(add-hook 'paradox-menu-mode-hook #'doom-modeline-set-package-modeline)
|
||||
(add-hook 'xwidget-webkit-mode-hook #'doom-modeline-set-minimal-modeline)
|
||||
;; Automatically set mode-lines
|
||||
(add-hook 'after-change-major-mode-hook #'doom-modeline-auto-set-modeline)
|
||||
|
||||
;; Add advices
|
||||
;; Special handles
|
||||
(advice-add #'helm-display-mode-line :after #'doom-modeline-set-helm-modeline))
|
||||
(progn
|
||||
;; Restore mode-line
|
||||
|
|
@ -280,24 +230,8 @@ If DEFAULT is non-nil, set the default mode-line for all buffers."
|
|||
;; For two-column editing
|
||||
(setq 2C-mode-line-format (doom-modeline--original-value '2C-mode-line-format))
|
||||
|
||||
;; Remove hooks
|
||||
(remove-hook 'Info-mode-hook #'doom-modeline-set-info-modeline)
|
||||
(remove-hook 'dired-mode-hook #'doom-modeline-set-project-modeline)
|
||||
(remove-hook 'dashboard-mode-hook #'doom-modeline-set-dashboard-modeline)
|
||||
(remove-hook 'image-mode-hook #'doom-modeline-set-media-modeline)
|
||||
(remove-hook 'message-mode-hook #'doom-modeline-set-message-modeline)
|
||||
(remove-hook 'git-commit-mode-hook #'doom-modeline-set-message-modeline)
|
||||
(remove-hook 'magit-mode-hook #'doom-modeline-set-vcs-modeline)
|
||||
(remove-hook 'circe-mode-hook #'doom-modeline-set-special-modeline)
|
||||
(remove-hook 'erc-mode-hook #'doom-modeline-set-special-modeline)
|
||||
(remove-hook 'rcirc-mode-hook #'doom-modeline-set-special-modeline)
|
||||
(remove-hook 'pdf-view-mode-hook #'doom-modeline-set-pdf-modeline)
|
||||
(remove-hook 'org-src-mode-hook #'doom-modeline-set-org-src-modeline)
|
||||
(remove-hook 'git-timemachine-mode-hook #'doom-modeline-set-timemachine-modeline)
|
||||
(remove-hook 'paradox-menu-mode-hook #'doom-modeline-set-package-modeline)
|
||||
(remove-hook 'xwidget-webkit-mode-hook #'doom-modeline-set-minimal-modeline)
|
||||
|
||||
;; Remove advices
|
||||
;; Cleanup
|
||||
(remove-hook 'after-change-major-mode-hook #'doom-modeline-auto-set-modeline)
|
||||
(advice-remove #'helm-display-mode-line #'doom-modeline-set-helm-modeline))))
|
||||
|
||||
(provide 'doom-modeline)
|
||||
|
|
@ -1,8 +1,8 @@
|
|||
(define-package "f" "20220608.943" "Modern API for working with files and directories"
|
||||
(define-package "f" "20220911.711" "Modern API for working with files and directories"
|
||||
'((emacs "24.1")
|
||||
(s "1.7.0")
|
||||
(dash "2.2.0"))
|
||||
:commit "d2019d4f9625bcc44349c69fe46d6645fd9ff4ff" :authors
|
||||
:commit "d50dca48929575642912bb5bbb2585709ba38f82" :authors
|
||||
'(("Johan Andersson" . "johan.rejeep@gmail.com"))
|
||||
:maintainer
|
||||
'("Lucien Cartier-Tilet" . "lucien@phundrak.com")
|
||||
|
|
@ -1,5 +1,4 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; f-shortdoc.el --- Shortdoc for f.el -*- lexical-binding: t -*-
|
||||
;;; f-shortdoc.el --- Shortdoc for f.el -*- lexical-binding: t; no-byte-compile: t; -*-
|
||||
|
||||
;; Author: Lucien Cartier-Tilet <lucien@phundrak.com>
|
||||
;; Maintainer: Lucien Cartier-Tilet <lucien@phundrak.com>
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
;;; helm-dabbrev.el --- Helm implementation of dabbrev. -*- lexical-binding: t -*-
|
||||
|
||||
;; Copyright (C) 2012 ~ 2021 Thierry Volpiatto
|
||||
;; Copyright (C) 2012 ~ 2021 Thierry Volpiatto
|
||||
|
||||
;; 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
|
||||
|
|
@ -105,7 +105,7 @@ initial search for all candidates in buffer(s)."
|
|||
'helm-dabbrev-separator-regexp "2.8.3")
|
||||
;; Check for beginning of line should happen last (^\n\\|^).
|
||||
(defvar helm-dabbrev-separator-regexp
|
||||
"\\s-\\|\t\\|[(\\[\\{\"'`=<$;,@.#+]\\|\\s\\\\|^\n\\|^"
|
||||
"\\s-\\|\t\\|[(\\[\\{\"'`=<>$;,@.#+]\\|\\s\\\\|^\n\\|^"
|
||||
"Regexp matching the start of a dabbrev candidate.")
|
||||
|
||||
|
||||
|
|
@ -739,6 +739,7 @@ when moving out of directory when non nil."
|
|||
'helm-find-files-rsync
|
||||
"Rename file(s) `M-R, C-u to follow'" 'helm-find-files-rename
|
||||
"Backup files" 'helm-find-files-backup
|
||||
"Multiple copy" 'helm-ff-mcp
|
||||
"Symlink files(s) `M-S, C-u to follow'" 'helm-find-files-symlink
|
||||
"Relsymlink file(s) `M-Y, C-u to follow'" 'helm-find-files-relsymlink
|
||||
"Hardlink file(s) `M-H, C-u to follow'" 'helm-find-files-hardlink
|
||||
|
|
@ -803,6 +804,12 @@ to nil to avoid error messages when using `helm-find-files'."
|
|||
This can be toggled at any time from `helm-ff-file-name-history' with \
|
||||
\\<helm-file-name-history-map>\\[helm-file-name-history-show-or-hide-deleted]."
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom helm-ff-follow-blacklist-file-exts '("gpg" "doc" "docx" "mp3" "ogg")
|
||||
"File extensions we don't want to follow when helm-follow-mode is enabled.
|
||||
Note that image files are always followed even if their extensions is
|
||||
present in this list."
|
||||
:type '(repeat string))
|
||||
|
||||
;;; Faces
|
||||
;;
|
||||
|
|
@ -1800,11 +1807,9 @@ prefix arg shell buffer doesn't exists, create it and switch to it."
|
|||
(length failures)
|
||||
(mapconcat (lambda (f) (format "- %s\n" f)) failures "")))))
|
||||
|
||||
(defun helm-ff-run-touch-files ()
|
||||
(helm-make-command-from-action helm-ff-run-touch-files
|
||||
"Used to interactively run touch file action from keyboard."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-touch-files)))
|
||||
'helm-ff-touch-files)
|
||||
(put 'helm-ff-run-touch-files 'helm-only t)
|
||||
|
||||
(defun helm-ff-sort-by-size ()
|
||||
|
|
@ -2161,10 +2166,9 @@ COUNT is used for incrementing new name if needed."
|
|||
(helm-ff-query-replace-on-filenames marked)))
|
||||
|
||||
;; The command for `helm-find-files-map'.
|
||||
(defun helm-ff-run-query-replace-fnames-on-marked ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-query-replace-fnames-on-marked)))
|
||||
(helm-make-command-from-action helm-ff-run-query-replace-fnames-on-marked
|
||||
"Run query-replace on filenames from HFF."
|
||||
'helm-ff-query-replace-fnames-on-marked)
|
||||
(put 'helm-ff-run-query-replace-fnames-on-marked 'helm-only t)
|
||||
|
||||
(defun helm-ff-query-replace (_candidate)
|
||||
|
|
@ -2172,24 +2176,22 @@ COUNT is used for incrementing new name if needed."
|
|||
collect (buffer-name (find-file-noselect f)))))
|
||||
(helm-buffer-query-replace-1 nil bufs)))
|
||||
|
||||
(helm-make-command-from-action helm-ff-run-query-replace
|
||||
"Run query-replace from HFF."
|
||||
'helm-ff-query-replace)
|
||||
(put 'helm-ff-run-query-replace 'helm-only t)
|
||||
|
||||
(defun helm-ff-query-replace-regexp (_candidate)
|
||||
(let ((bufs (cl-loop for f in (helm-marked-candidates :with-wildcard t)
|
||||
collect (buffer-name (find-file-noselect f)))))
|
||||
(helm-buffer-query-replace-1 'regexp bufs)))
|
||||
|
||||
(defun helm-ff-run-query-replace ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-query-replace)))
|
||||
(put 'helm-ff-run-query-replace 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-query-replace-regexp ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-query-replace-regexp)))
|
||||
(helm-make-command-from-action helm-ff-run-query-replace-regexp
|
||||
"Run query-replace regexp from HFF."
|
||||
'helm-ff-query-replace-regexp)
|
||||
(put 'helm-ff-run-query-replace-regexp 'helm-only t)
|
||||
|
||||
(defun helm-ff-toggle-auto-update (_candidate)
|
||||
(defun helm-ff-toggle-auto-update ()
|
||||
(if helm-ff--deleting-char-backward
|
||||
(progn
|
||||
(message "[Auto expansion disabled]")
|
||||
|
|
@ -2203,8 +2205,7 @@ COUNT is used for incrementing new name if needed."
|
|||
(defun helm-ff-run-toggle-auto-update ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-set-attr 'toggle-auto-update '(helm-ff-toggle-auto-update . never-split))
|
||||
(helm-execute-persistent-action 'toggle-auto-update)))
|
||||
(helm-ff-toggle-auto-update)))
|
||||
(put 'helm-ff-run-toggle-auto-update 'helm-only t)
|
||||
|
||||
(defun helm-ff-delete-char-backward ()
|
||||
|
|
@ -2300,172 +2301,124 @@ Called with a prefix arg open menu unconditionally."
|
|||
(interactive)
|
||||
(helm-ff-RET-1 t))
|
||||
|
||||
(defun helm-ff-run-grep ()
|
||||
"Run Grep action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-grep)))
|
||||
(helm-make-command-from-action helm-ff-run-grep
|
||||
"Run Grep action from `helm-source-find-files'."
|
||||
'helm-find-files-grep)
|
||||
(put 'helm-ff-run-grep 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-git-grep ()
|
||||
"Run git-grep action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-git-grep)))
|
||||
(helm-make-command-from-action helm-ff-run-git-grep
|
||||
"Run git-grep action from `helm-source-find-files'."
|
||||
'helm-ff-git-grep)
|
||||
(put 'helm-ff-run-git-grep 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-grep-ag ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-ag)))
|
||||
(helm-make-command-from-action helm-ff-run-grep-ag
|
||||
"Run grep AG action from `helm-source-find-files'."
|
||||
'helm-find-files-ag)
|
||||
(put 'helm-ff-run-grep-ag 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-pdfgrep ()
|
||||
"Run Pdfgrep action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-pdfgrep)))
|
||||
(helm-make-command-from-action helm-ff-run-pdfgrep
|
||||
"Run Pdfgrep action from `helm-source-find-files'."
|
||||
'helm-ff-pdfgrep)
|
||||
(put 'helm-ff-run-pdfgrep 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-zgrep ()
|
||||
"Run Grep action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-zgrep)))
|
||||
(helm-make-command-from-action helm-ff-run-zgrep
|
||||
"Run Grep action from `helm-source-find-files'."
|
||||
'helm-ff-zgrep)
|
||||
(put 'helm-ff-run-zgrep 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-copy-file ()
|
||||
"Run Copy file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-copy)))
|
||||
(helm-make-command-from-action helm-ff-run-copy-file
|
||||
"Run Copy file action from `helm-source-find-files'."
|
||||
'helm-find-files-copy)
|
||||
(put 'helm-ff-run-copy-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-rsync-file ()
|
||||
"Run Rsync file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-rsync)))
|
||||
(helm-make-command-from-action helm-ff-run-rsync-file
|
||||
"Run Rsync file action from `helm-source-find-files'."
|
||||
'helm-find-files-rsync)
|
||||
(put 'helm-ff-run-rsync-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-rename-file ()
|
||||
"Run Rename file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-rename)))
|
||||
(helm-make-command-from-action helm-ff-run-rename-file
|
||||
"Run Rename file action from `helm-source-find-files'."
|
||||
'helm-find-files-rename)
|
||||
(put 'helm-ff-run-rename-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-byte-compile-file ()
|
||||
"Run Byte compile file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-byte-compile)))
|
||||
(helm-make-command-from-action helm-ff-run-byte-compile-file
|
||||
"Run Byte compile file action from `helm-source-find-files'."
|
||||
'helm-find-files-byte-compile)
|
||||
(put 'helm-ff-run-byte-compile-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-load-file ()
|
||||
"Run Load file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-load-files)))
|
||||
(helm-make-command-from-action helm-ff-run-load-file
|
||||
"Run Load file action from `helm-source-find-files'."
|
||||
'helm-find-files-load-files)
|
||||
(put 'helm-ff-run-load-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-eshell-command-on-file ()
|
||||
"Run eshell command on file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action
|
||||
'helm-find-files-eshell-command-on-file)))
|
||||
(helm-make-command-from-action helm-ff-run-eshell-command-on-file
|
||||
"Run eshell command on file action from `helm-source-find-files'."
|
||||
'helm-find-files-eshell-command-on-file)
|
||||
(put 'helm-ff-run-eshell-command-on-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-ediff-file ()
|
||||
(helm-make-command-from-action helm-ff-run-ediff-file
|
||||
"Run Ediff file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-ediff-files)))
|
||||
'helm-find-files-ediff-files)
|
||||
(put 'helm-ff-run-ediff-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-ediff-merge-file ()
|
||||
"Run Ediff merge file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action
|
||||
'helm-find-files-ediff-merge-files)))
|
||||
(helm-make-command-from-action helm-ff-run-ediff-merge-file
|
||||
"Run Ediff merge file action from `helm-source-find-files'."
|
||||
'helm-find-files-ediff-merge-files)
|
||||
(put 'helm-ff-run-ediff-merge-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-symlink-file ()
|
||||
"Run Symlink file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-symlink)))
|
||||
(helm-make-command-from-action helm-ff-run-symlink-file
|
||||
"Run Symlink file action from `helm-source-find-files'."
|
||||
'helm-find-files-symlink)
|
||||
(put 'helm-ff-run-symlink-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-relsymlink-file ()
|
||||
"Run Symlink file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-relsymlink)))
|
||||
(helm-make-command-from-action helm-ff-run-relsymlink-file
|
||||
"Run Symlink file action from `helm-source-find-files'."
|
||||
'helm-find-files-relsymlink)
|
||||
(put 'helm-ff-run-relsymlink-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-hardlink-file ()
|
||||
"Run Hardlink file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-hardlink)))
|
||||
(helm-make-command-from-action helm-ff-run-hardlink-file
|
||||
"Run Hardlink file action from `helm-source-find-files'."
|
||||
'helm-find-files-hardlink)
|
||||
(put 'helm-ff-run-hardlink-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-delete-files (candidate)
|
||||
"Delete files default action."
|
||||
(funcall helm-ff-delete-files-function candidate))
|
||||
|
||||
(defun helm-ff-run-delete-file ()
|
||||
"Run Delete file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action #'helm-ff-delete-files)))
|
||||
(helm-make-command-from-action helm-ff-run-delete-file
|
||||
"Run Delete file action from `helm-source-find-files'."
|
||||
'helm-ff-delete-files)
|
||||
(put 'helm-ff-run-delete-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-complete-fn-at-point ()
|
||||
"Run complete file name action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action
|
||||
'helm-insert-file-name-completion-at-point)))
|
||||
(helm-make-command-from-action helm-ff-run-complete-fn-at-point
|
||||
"Run complete file name action from `helm-source-find-files'."
|
||||
'helm-insert-file-name-completion-at-point)
|
||||
(put 'helm-ff-run-complete-fn-at-point 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-switch-to-shell ()
|
||||
"Run switch to eshell action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-switch-to-shell)))
|
||||
(helm-make-command-from-action helm-ff-run-switch-to-shell
|
||||
"Run switch to eshell action from `helm-source-find-files'."
|
||||
'helm-ff-switch-to-shell)
|
||||
(put 'helm-ff-run-switch-to-shell 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-switch-other-window ()
|
||||
"Run switch to other window action from `helm-source-find-files'.
|
||||
(helm-make-command-from-action helm-ff-run-switch-other-window
|
||||
"Run switch to other window action from `helm-source-find-files'.
|
||||
When a prefix arg is provided, split is done vertically."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-files-other-window)))
|
||||
'helm-find-files-other-window)
|
||||
(put 'helm-ff-run-switch-other-window 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-switch-other-frame ()
|
||||
"Run switch to other frame action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'find-file-other-frame)))
|
||||
(helm-make-command-from-action helm-ff-run-switch-other-frame
|
||||
"Run switch to other frame action from `helm-source-find-files'."
|
||||
'find-file-other-frame)
|
||||
(put 'helm-ff-run-switch-other-frame 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-open-file-externally ()
|
||||
"Run open file externally command action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-open-file-externally)))
|
||||
(helm-make-command-from-action helm-ff-run-open-file-externally
|
||||
"Run open file externally command action from `helm-source-find-files'."
|
||||
'helm-open-file-externally)
|
||||
(put 'helm-ff-run-open-file-externally 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-open-file-with-default-tool ()
|
||||
"Run open file externally command action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-open-file-with-default-tool)))
|
||||
(helm-make-command-from-action helm-ff-run-open-file-with-default-tool
|
||||
"Run open file externally command action from `helm-source-find-files'."
|
||||
'helm-open-file-with-default-tool)
|
||||
(put 'helm-ff-run-open-file-with-default-tool 'helm-only t)
|
||||
|
||||
(defun helm-ff-locate (candidate)
|
||||
|
|
@ -2485,47 +2438,38 @@ When a prefix arg is provided, split is done vertically."
|
|||
" -b"))))
|
||||
(helm-locate-1 helm-current-prefix-arg nil 'from-ff default)))
|
||||
|
||||
(defun helm-ff-run-locate ()
|
||||
"Run locate action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-locate)))
|
||||
(helm-make-command-from-action helm-ff-run-locate
|
||||
"Run locate action from `helm-source-find-files'."
|
||||
'helm-ff-locate)
|
||||
(put 'helm-ff-run-locate 'helm-only t)
|
||||
|
||||
(defun helm-files-insert-as-org-link (candidate)
|
||||
(insert (format "[[%s][]]" candidate))
|
||||
(goto-char (- (point) 2)))
|
||||
|
||||
(defun helm-ff-run-insert-org-link ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-files-insert-as-org-link)))
|
||||
(helm-make-command-from-action helm-ff-run-insert-org-link
|
||||
"Run insert org link from HFF."
|
||||
'helm-files-insert-as-org-link)
|
||||
(put 'helm-ff-run-insert-org-link 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-find-file-as-root ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-find-file-as-root)))
|
||||
(helm-make-command-from-action helm-ff-run-find-file-as-root
|
||||
"Run find file as root from HFF."
|
||||
'helm-find-file-as-root)
|
||||
(put 'helm-ff-run-find-file-as-root 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-find-alternate-file ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'find-alternate-file)))
|
||||
(helm-make-command-from-action helm-ff-run-find-alternate-file
|
||||
"Run `find-alternate-file' from HFF."
|
||||
'find-alternate-file)
|
||||
(put 'helm-ff-run-find-alternate-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-mail-attach-files ()
|
||||
"Run mail attach files command action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-mail-attach-files)))
|
||||
(helm-make-command-from-action helm-ff-run-mail-attach-files
|
||||
"Run mail attach files command action from `helm-source-find-files'."
|
||||
'helm-ff-mail-attach-files)
|
||||
(put 'helm-ff-run-mail-attach-files 'helm-only t)
|
||||
|
||||
(defun helm-ff-run-etags ()
|
||||
"Run Etags command action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-etags-select)))
|
||||
(helm-make-command-from-action helm-ff-run-etags
|
||||
"Run Etags command action from `helm-source-find-files'."
|
||||
'helm-ff-etags-select)
|
||||
(put 'helm-ff-run-etags 'helm-only t)
|
||||
|
||||
(defvar lpr-printer-switch)
|
||||
|
|
@ -2577,11 +2521,9 @@ Same as `dired-do-print' but for Helm."
|
|||
(start-process-shell-command "helm-print" nil cmd-line)
|
||||
(error "Error: Please verify your printer settings in Emacs."))))
|
||||
|
||||
(defun helm-ff-run-print-file ()
|
||||
"Run Print file action from `helm-source-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-print)))
|
||||
(helm-make-command-from-action helm-ff-run-print-file
|
||||
"Run Print file action from `helm-source-find-files'."
|
||||
'helm-ff-print)
|
||||
(put 'helm-ff-run-print-file 'helm-only t)
|
||||
|
||||
(defun helm-ff-checksum (file)
|
||||
|
|
@ -2619,20 +2561,22 @@ Emacs and even the whole system as it eats all memory."
|
|||
(message "Calculating %s checksum for `%s' done and copied to kill-ring"
|
||||
algo bn)))))
|
||||
|
||||
(defun helm-ff-toggle-basename (_candidate)
|
||||
(defun helm-ff-toggle-basename ()
|
||||
(with-helm-buffer
|
||||
(setq helm-ff-transformer-show-only-basename
|
||||
(not helm-ff-transformer-show-only-basename))
|
||||
(let* ((cand (helm-get-selection nil t))
|
||||
(let* ((cand (helm-get-selection))
|
||||
(target (if helm-ff-transformer-show-only-basename
|
||||
(helm-basename cand) cand)))
|
||||
(helm-force-update (concat (regexp-quote target) "$")))))
|
||||
(helm-force-update
|
||||
(format helm-ff-last-expanded-candidate-regexp
|
||||
(regexp-quote target))))))
|
||||
|
||||
(defun helm-ff-run-toggle-basename ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(unless (helm-empty-source-p)
|
||||
(helm-ff-toggle-basename nil))))
|
||||
(helm-ff-toggle-basename))))
|
||||
(put 'helm-ff-run-toggle-basename 'helm-only t)
|
||||
|
||||
(defun helm-reduce-file-name-1 (fname level)
|
||||
|
|
@ -3039,11 +2983,9 @@ With a prefix arg toggle dired buffer to wdired mode."
|
|||
(when (or helm-current-prefix-arg current-prefix-arg)
|
||||
(call-interactively 'wdired-change-to-wdired-mode))))))
|
||||
|
||||
(defun helm-ff-run-marked-files-in-dired ()
|
||||
"Execute `helm-marked-files-in-dired' interactively."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-marked-files-in-dired)))
|
||||
(helm-make-command-from-action helm-ff-run-marked-files-in-dired
|
||||
"Execute `helm-marked-files-in-dired' interactively."
|
||||
'helm-marked-files-in-dired)
|
||||
(put 'helm-ff-run-marked-files-in-dired 'helm-only t)
|
||||
|
||||
(defun helm-ff--create-tramp-name (fname)
|
||||
|
|
@ -3776,12 +3718,9 @@ to avoid an unnecessary call to `file-truename'."
|
|||
(helm-execute-persistent-action 'properties-action)))
|
||||
(put 'helm-ff-properties-persistent 'helm-only t)
|
||||
|
||||
(defun helm-ff-persistent-delete ()
|
||||
"Delete current candidate without quitting."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-set-attr 'quick-delete '(helm-ff-quick-delete . never-split))
|
||||
(helm-execute-persistent-action 'quick-delete)))
|
||||
(helm-make-persistent-command-from-action helm-ff-persistent-delete
|
||||
"Delete current candidate without quitting."
|
||||
'quick-delete 'helm-ff-quick-delete)
|
||||
(put 'helm-ff-persistent-delete 'helm-only t)
|
||||
|
||||
(defun helm-ff-dot-file-p (file)
|
||||
|
|
@ -3808,7 +3747,7 @@ in `helm-find-files-persistent-action-if'."
|
|||
(buf-name (buffer-name buf))
|
||||
(win (get-buffer-window buf))
|
||||
(helm--reading-passwd-or-string t))
|
||||
(cond ((and buf win (eq buf (get-buffer helm-current-buffer)))
|
||||
(cond ((and buf win (eql buf (get-buffer helm-current-buffer)))
|
||||
(user-error
|
||||
"Can't kill `helm-current-buffer' without quitting session"))
|
||||
((and buf win (buffer-modified-p buf))
|
||||
|
|
@ -3822,12 +3761,9 @@ in `helm-find-files-persistent-action-if'."
|
|||
(message "Buffer `%s' killed" buf-name))
|
||||
(t (find-file candidate)))))
|
||||
|
||||
(defun helm-ff-run-kill-buffer-persistent ()
|
||||
"Execute `helm-ff-kill-buffer-fname' without quitting."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-set-attr 'kill-buffer-fname 'helm-ff-kill-buffer-fname)
|
||||
(helm-execute-persistent-action 'kill-buffer-fname)))
|
||||
(helm-make-persistent-command-from-action helm-ff-run-kill-buffer-persistent
|
||||
"Execute `helm-ff-kill-buffer-fname' without quitting."
|
||||
'kill-buffer-fname 'helm-ff-kill-buffer-fname)
|
||||
(put 'helm-ff-run-kill-buffer-persistent 'helm-only t)
|
||||
|
||||
;; Preview with external tool
|
||||
|
|
@ -3838,11 +3774,9 @@ in `helm-find-files-persistent-action-if'."
|
|||
(message "Please configure an external program for `*%s' file in `helm-external-programs-associations'"
|
||||
(file-name-extension file t))))
|
||||
|
||||
(defun helm-ff-run-preview-file-externally ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-set-attr 'open-file-externally '(helm-ff-persistent-open-file-externally . never-split))
|
||||
(helm-execute-persistent-action 'open-file-externally)))
|
||||
(helm-make-persistent-command-from-action helm-ff-run-preview-file-externally
|
||||
"Run open file externally without quitting helm."
|
||||
'open-file-externally 'helm-ff-persistent-open-file-externally)
|
||||
(put 'helm-ff-run-preview-file-externally 'helm-only t)
|
||||
|
||||
(defun helm-ff-prefix-filename (fname &optional file-or-symlinkp new-file)
|
||||
|
|
@ -4559,6 +4493,13 @@ This affects directly file CANDIDATE."
|
|||
|
||||
(defvar helm-ff-sound-file-extensions '("wav" "au"))
|
||||
|
||||
(defun helm-ff--maybe-follow (candidate)
|
||||
(let ((file (file-regular-p candidate))
|
||||
(image (string-match-p (image-file-name-regexp) candidate))
|
||||
(ext (file-name-extension candidate)))
|
||||
(and file
|
||||
(or image (not (member ext helm-ff-follow-blacklist-file-exts))))))
|
||||
|
||||
(cl-defun helm-find-files-persistent-action-if (candidate)
|
||||
"Open subtree CANDIDATE without quitting helm.
|
||||
If CANDIDATE is not a directory expand CANDIDATE filename.
|
||||
|
|
@ -4582,13 +4523,13 @@ file."
|
|||
nil fname)
|
||||
(insert fname))))))
|
||||
(helm-set-attr 'candidate-number-limit helm-ff-candidate-number-limit)
|
||||
(unless image-cand
|
||||
(unless (helm-ff--maybe-follow candidate)
|
||||
(when follow
|
||||
(helm-follow-mode -1)
|
||||
(helm-follow-mode -1) (message nil)
|
||||
(cl-return-from helm-find-files-persistent-action-if
|
||||
(prog1
|
||||
#'ignore
|
||||
(message "Helm-follow-mode allowed only on images, disabling")))))
|
||||
(user-error "Can't follow this kind of file")))))
|
||||
(cond (;; Tramp methods completion.
|
||||
(string-match helm-ff-tramp-method-regexp candidate)
|
||||
(let ((method (match-string 1 candidate)))
|
||||
|
|
@ -6048,6 +5989,43 @@ list."
|
|||
(message "No files found in file(s)"))
|
||||
:buffer "*helm find files in files*")))
|
||||
|
||||
(defun helm-ff-mcp (_candidate)
|
||||
"Copy the car of marked candidates to the remaining marked candidates.
|
||||
|
||||
The car of marked should be a regular file and the rest of marked (cdr) should
|
||||
be directories."
|
||||
(let* ((mkd (helm-marked-candidates))
|
||||
(file (car mkd))
|
||||
(targets (cdr mkd))
|
||||
(skipped 0)
|
||||
(copies 0))
|
||||
(cl-assert (file-regular-p file) nil (format "Not a regular file `%s'" file))
|
||||
(cl-assert targets nil (format "No destination specified for file `%s'" file))
|
||||
(when targets
|
||||
(cl-loop for dest in targets
|
||||
for dest-file = (expand-file-name (helm-basename file) dest)
|
||||
for dir-ok = (file-accessible-directory-p dest)
|
||||
for overwrite = (and dir-ok
|
||||
(file-exists-p
|
||||
(expand-file-name
|
||||
(helm-basename file) dest)))
|
||||
for skip = (and overwrite
|
||||
(null (y-or-n-p
|
||||
(format
|
||||
"File `%s' already-exists, overwrite? "
|
||||
dest-file))))
|
||||
if dir-ok
|
||||
do (if skip
|
||||
(cl-incf skipped)
|
||||
(copy-file file (file-name-as-directory dest) overwrite)
|
||||
(cl-incf copies))
|
||||
else do (progn
|
||||
(cl-incf skipped)
|
||||
(message "Access denied `%s'" dest))
|
||||
finally do
|
||||
(message "%s %s of `%s' done, %s skipped"
|
||||
copies (if (> copies 1) "copies" "copy")
|
||||
(helm-basename file) skipped)))))
|
||||
|
||||
;;; File name history
|
||||
;;
|
||||
|
|
@ -6129,11 +6107,10 @@ list."
|
|||
(helm-set-pattern
|
||||
(expand-file-name candidate)))
|
||||
|
||||
(defun helm-ff-file-name-history-run-ff ()
|
||||
(helm-make-command-from-action helm-ff-file-name-history-run-ff
|
||||
"Switch back to current HFF session with selection as preselect."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-file-name-history-ff)))
|
||||
'helm-ff-file-name-history-ff)
|
||||
(put 'helm-ff-file-name-history-run-ff 'helm-only t)
|
||||
|
||||
(defun helm-ff-file-name-history-delete-item (_candidate)
|
||||
(let ((files (helm-marked-candidates)))
|
||||
|
|
@ -6253,11 +6230,9 @@ Use FD as backend."
|
|||
(let ((dir (with-helm-buffer (helm-get-attr 'root-dir))))
|
||||
(helm-grep-ag dir helm-current-prefix-arg)))
|
||||
|
||||
(defun helm-browse-project-run-ag ()
|
||||
(helm-make-command-from-action helm-browse-project-run-ag
|
||||
"Run `helm-grep' AG from `helm-browse-project'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-browse-project-ag)))
|
||||
'helm-browse-project-ag)
|
||||
(put 'helm-browse-project-run-ag 'helm-only t)
|
||||
|
||||
(defclass helm-browse-project-override-inheritor (helm-type-file) ())
|
||||
|
|
@ -6386,10 +6361,9 @@ See `helm-browse-project'."
|
|||
(with-helm-default-directory helm-ff-default-directory
|
||||
(helm-browse-project helm-current-prefix-arg)))
|
||||
|
||||
(defun helm-ff-run-browse-project ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-browse-project)))
|
||||
(helm-make-command-from-action helm-ff-run-browse-project
|
||||
"Run browse project."
|
||||
'helm-ff-browse-project)
|
||||
(put 'helm-ff-run-browse-project 'helm-only t)
|
||||
|
||||
;;; Actions calling helm and main interactive functions.
|
||||
|
|
@ -6399,10 +6373,9 @@ See `helm-browse-project'."
|
|||
(with-helm-default-directory helm-ff-default-directory
|
||||
(helm-gid)))
|
||||
|
||||
(defun helm-ff-run-gid ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-gid)))
|
||||
(helm-make-command-from-action helm-ff-run-gid
|
||||
"Run gid from HFF."
|
||||
'helm-ff-gid)
|
||||
(put 'helm-ff-run-gid 'helm-only t)
|
||||
|
||||
;; helm-find bindings for helm-find-files.
|
||||
|
|
@ -6411,11 +6384,9 @@ See `helm-browse-project'."
|
|||
(require 'helm-find)
|
||||
(helm-find-1 helm-ff-default-directory))
|
||||
|
||||
(defun helm-ff-run-find-sh-command ()
|
||||
"Run find shell command action with key from `helm-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-find-sh-command)))
|
||||
(helm-make-command-from-action helm-ff-run-find-sh-command
|
||||
"Run find shell command action with key from `helm-find-files'."
|
||||
'helm-ff-find-sh-command)
|
||||
(put 'helm-ff-run-find-sh-command 'helm-only t)
|
||||
|
||||
;; helm-hd bindings for hff
|
||||
|
|
@ -6424,11 +6395,9 @@ See `helm-browse-project'."
|
|||
(require 'helm-fd)
|
||||
(helm-fd-1 helm-ff-default-directory))
|
||||
|
||||
(defun helm-ff-run-fd ()
|
||||
"Run fd shell command action with key from `helm-find-files'."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-ff-fd)))
|
||||
(helm-make-command-from-action helm-ff-run-fd
|
||||
"Run fd shell command action with key from `helm-find-files'."
|
||||
'helm-ff-fd)
|
||||
(put 'helm-ff-run-fd 'helm-only t)
|
||||
|
||||
;;;###autoload
|
||||
|
|
@ -533,11 +533,7 @@ If COLLECTION is an `obarray', a TEST should be needed. See `obarray'."
|
|||
|
||||
(defun helm-cr-default (default cands)
|
||||
(delq nil
|
||||
(cond ((and (stringp default)
|
||||
(not (string= default ""))
|
||||
(string= helm-pattern ""))
|
||||
(cons default (delete default cands)))
|
||||
((and (consp default) (string= helm-pattern ""))
|
||||
(cond ((and (consp default) (string= helm-pattern ""))
|
||||
(append (cl-loop for d in default
|
||||
;; Don't convert
|
||||
;; nil to "nil" (i.e the string)
|
||||
|
|
@ -547,6 +543,10 @@ If COLLECTION is an `obarray', a TEST should be needed. See `obarray'."
|
|||
do (setq cands (delete d cands))
|
||||
when str collect str)
|
||||
cands))
|
||||
((and (not (equal default ""))
|
||||
(string= helm-pattern ""))
|
||||
(cons default (delete (helm-stringify default)
|
||||
cands)))
|
||||
(t cands))))
|
||||
|
||||
;;;###autoload
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
(define-package "helm" "20220803.1447" "Helm is an Emacs incremental and narrowing framework"
|
||||
(define-package "helm" "20220911.1317" "Helm is an Emacs incremental and narrowing framework"
|
||||
'((helm-core "3.8.7")
|
||||
(popup "0.5.3"))
|
||||
:commit "4ede199d5d1b7050486a0fdeecbbbf49fef31118" :authors
|
||||
:commit "288f7d9f173d7ddd7a7766eb333cc2db1c1caa34" :authors
|
||||
'(("Thierry Volpiatto" . "thievol@posteo.net"))
|
||||
:maintainer
|
||||
'("Thierry Volpiatto" . "thievol@posteo.net")
|
||||
|
|
@ -87,6 +87,12 @@ Possible value are:
|
|||
(integer :tag "Match after or before (+/-)")
|
||||
(const :tag "Never match" never)))
|
||||
|
||||
(defcustom helm-highlight-only-all-matches nil
|
||||
"Highlight only when all items match on the line when non nil.
|
||||
See `helm-highlight-current-line'."
|
||||
:group 'helm-utils
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom helm-buffers-to-resize-on-pa nil
|
||||
"A list of helm buffers where the helm-window should be reduced on PA.
|
||||
Where PA means persistent action."
|
||||
|
|
@ -820,7 +826,14 @@ Inlined here for compatibility."
|
|||
(defvar helm--match-item-overlays nil)
|
||||
|
||||
(cl-defun helm-highlight-current-line (&optional start end buf face)
|
||||
"Highlight and underline current position"
|
||||
"Highlight current line and all matching items around it.
|
||||
|
||||
The number of lines around matched line where the matching items are
|
||||
highlighted are defined by `helm-highlight-matches-around-point-max-lines'.
|
||||
When the variable `helm-highlight-only-all-matches' is non nil only
|
||||
the lines containing all matches (in case of multi match) are highlighted.
|
||||
|
||||
Optional arguments START, END and FACE are only here for debugging purpose."
|
||||
(let* ((start (or start (line-beginning-position)))
|
||||
(end (or end (1+ (line-end-position))))
|
||||
start-match end-match
|
||||
|
|
@ -872,30 +885,48 @@ Inlined here for compatibility."
|
|||
helm-highlight-matches-around-point-max-lines)
|
||||
(point-at-bol)))))
|
||||
(catch 'empty-line
|
||||
(cl-loop with ov
|
||||
for r in (helm-remove-if-match
|
||||
"\\`!" (helm-mm-split-pattern
|
||||
(if (with-helm-buffer
|
||||
;; Needed for highlighting AG matches.
|
||||
(assq 'pcre (helm-get-current-source)))
|
||||
(helm--translate-pcre-to-elisp helm-input)
|
||||
helm-input)))
|
||||
do (save-excursion
|
||||
(goto-char start-match)
|
||||
(let* ((regex-list (helm-remove-if-match
|
||||
"\\`!" (helm-mm-split-pattern
|
||||
(if (with-helm-buffer
|
||||
;; Needed for highlighting AG matches.
|
||||
(assq 'pcre (helm-get-current-source)))
|
||||
(helm--translate-pcre-to-elisp helm-input)
|
||||
helm-input))))
|
||||
(num-regex (length regex-list)))
|
||||
(save-excursion
|
||||
(goto-char start-match)
|
||||
(while (< (point) end-match)
|
||||
(let* ((start-line (line-beginning-position))
|
||||
(end-line (line-end-position))
|
||||
all-matches)
|
||||
(dolist (r regex-list)
|
||||
(let ((match-list '()))
|
||||
(save-excursion
|
||||
(goto-char start-line)
|
||||
(while (condition-case _err
|
||||
(and (not (= start-match end-match))
|
||||
(and (not (= start-line end-line))
|
||||
(if helm-migemo-mode
|
||||
(helm-mm-migemo-forward r end-match t)
|
||||
(re-search-forward r end-match t)))
|
||||
(helm-mm-migemo-forward r end-line t)
|
||||
(re-search-forward r end-line t)))
|
||||
(invalid-regexp nil))
|
||||
(let ((s (match-beginning 0))
|
||||
(e (match-end 0)))
|
||||
(if (= s e)
|
||||
(throw 'empty-line nil)
|
||||
(push (setq ov (make-overlay s e))
|
||||
helm--match-item-overlays)
|
||||
(overlay-put ov 'face 'helm-match-item)
|
||||
(overlay-put ov 'priority 1))))))))
|
||||
(push (cons s e) match-list)))))
|
||||
(when match-list
|
||||
(push match-list all-matches))))
|
||||
(when (and all-matches
|
||||
(or (not helm-highlight-only-all-matches)
|
||||
(eql (length all-matches) num-regex)))
|
||||
(cl-loop for ml in all-matches
|
||||
do (cl-loop for (s . e) in ml
|
||||
for ov = (make-overlay s e)
|
||||
do (progn
|
||||
(push ov helm--match-item-overlays)
|
||||
(overlay-put ov 'face 'helm-match-item)
|
||||
(overlay-put ov 'priority 1))))))
|
||||
(forward-line 1))))))
|
||||
(recenter)))
|
||||
|
||||
(defun helm--translate-pcre-to-elisp (regexp)
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
(define-package "helm-core" "20220824.1925" "Development files for Helm"
|
||||
(define-package "helm-core" "20220831.2005" "Development files for Helm"
|
||||
'((emacs "25.1")
|
||||
(async "1.9.4"))
|
||||
:commit "4e99cc8ef66aac2d824c456f58abe833be26c99d" :authors
|
||||
:commit "1855ee17c0b3db18bbc9a329c91ce8fa27e825e5" :authors
|
||||
'(("Thierry Volpiatto" . "thievol@posteo.net"))
|
||||
:maintainer
|
||||
'("Thierry Volpiatto" . "thievol@posteo.net")
|
||||
|
|
@ -2120,6 +2120,28 @@ End:")
|
|||
(helm-set-local-variable
|
||||
'helm-display-function 'helm-display-buffer-in-own-frame)
|
||||
,@body))
|
||||
|
||||
(defmacro helm-make-command-from-action (symbol doc action)
|
||||
"Make a command SYMBOL from ACTION with docstring DOC.
|
||||
The command SYMBOL will quit helm before execute.
|
||||
Argument ACTION should be an existing helm action."
|
||||
(declare (indent defun) (debug t))
|
||||
`(defun ,symbol ()
|
||||
,doc
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action ,action))))
|
||||
|
||||
(defmacro helm-make-persistent-command-from-action (symbol doc psymbol action)
|
||||
"Make a persistent command SYMBOL bound to PSYMBOL from ACTION."
|
||||
(declare (indent defun) (debug t))
|
||||
`(defun ,symbol ()
|
||||
,doc
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-set-attr ,psymbol (cons ,action 'never-split))
|
||||
(helm-execute-persistent-action ,psymbol))))
|
||||
|
||||
|
||||
;;; helm-attributes
|
||||
;;
|
||||
|
|
@ -3872,7 +3894,8 @@ For PRESELECT RESUME KEYMAP DEFAULT HISTORY, see `helm'."
|
|||
helm-execute-action-at-once-if-one)
|
||||
(helm-log "helm-quit-if-no-candidate = %S" helm-quit-if-no-candidate)
|
||||
(when (and src (helm-resume-p resume))
|
||||
(helm-display-mode-line src))
|
||||
(helm-display-mode-line src)
|
||||
(setq helm-pattern input))
|
||||
;; Reset `helm-pattern' and update
|
||||
;; display if no result found with precedent value of `helm-pattern'
|
||||
;; unless `helm-quit-if-no-candidate' is non-`nil', in this case
|
||||
|
|
@ -4120,12 +4143,9 @@ WARNING: Do not use this mode yourself, it is internal to Helm."
|
|||
;; `helm-set-local-variable'.
|
||||
(setq helm--force-updating-p nil)
|
||||
(setq helm--buffer-in-new-frame-p nil)
|
||||
;; Reset helm-pattern so that value of previous session doesn't
|
||||
;; interfere with next session (bug#2530), however store last value
|
||||
;; of helm-pattern in `helm-last-query'.
|
||||
(setq helm-last-query helm-pattern
|
||||
helm-pattern ""
|
||||
helm-input "")
|
||||
;; No need to reinitialize helm-pattern here now it is done only
|
||||
;; once in init function bug#2530.
|
||||
(setq helm-last-query helm-pattern)
|
||||
;; This is needed in some cases where last input
|
||||
;; is yielded infinitely in minibuffer after helm session.
|
||||
(helm-clean-up-minibuffer))
|
||||
|
|
@ -296,6 +296,19 @@ available APPEND is ignored."
|
|||
;; that no change to file is done.
|
||||
;; This also lead to ask confirmation for every files even when not
|
||||
;; modified and when `wdired-use-interactive-rename' is nil.
|
||||
;; Obviously, we could make an :around advice like this:
|
||||
;; (defun helm--advice-wdired-get-filename (old--fn &rest args)
|
||||
;; (let* ((file (apply old--fn args))
|
||||
;; (split (and file (split-string file "//"))))
|
||||
;; (if (and (cdr split)
|
||||
;; (string-match (format "\\(%s/\\)\\1" (car split)) file))
|
||||
;; (replace-match "" nil nil file 1)
|
||||
;; file)))
|
||||
;; But for some reasons the original function in emacs-28 is returning
|
||||
;; nil in some conditions and operation fails with no errors but with
|
||||
;; something like "(no change performed)", so use an old version of
|
||||
;; `wdired-get-filename' with its output modified and advice it with
|
||||
;; :override.
|
||||
(defun helm--advice-wdired-get-filename (&optional no-dir old)
|
||||
;; FIXME: Use dired-get-filename's new properties.
|
||||
(let (beg end file)
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue