;;; Install packages
(elpaca org-transclusion)
-(elpaca (sweeprolog
- :files ("*.org" "*.texi" "sweep.pl"
- "sweeprolog-pce-theme.el" "sweeprolog.el")))
+(elpaca sweeprolog)
(elpaca avy)
(elpaca (bbdb
:repo "https://git.savannah.nongnu.org/git/bbdb.git"
(with-eval-after-load 'tramp
(tramp-set-completion-function "ssh" '((tramp-parse-netrc "~/.authinfo.gpg")))
- (add-to-list 'backup-directory-alist (cons tramp-file-name-regexp nil))
- (define-advice completion-file-name-table (:filter-args (args) no-remote-file-name-completion)
- (let ((string (car args))
- (pred (cadr args))
- (action (caddr args)))
- (if (and (file-remote-p string) (eq pred #'file-exists-p))
- (list string nil action)
- (list string pred action)))))
+ (add-to-list 'backup-directory-alist (cons tramp-file-name-regexp nil)))
;;; Configure `proced'
(all (let ((completion--input completion--input)
(completion-lazy-hilit t))
(completion-all-sorted-completions beg end))))
+ (setcdr (last all) nil)
(let (minibuffer-message-timeout)
- ;; TODO show number of completions and/or use different face when exact.
- (minibuffer-message (propertize (car all) 'face 'completions-common-part)))))
+ (minibuffer-message (concat (propertize (car all) 'face 'bold)
+ (when (cdr all)
+ (concat
+ " and "
+ (number-to-string (1- (length all)))
+ " more")))))))
(defun minibuffer-hint-cancel-timer ()
(when (timerp minibuffer-hint-timer)
(if minibuffer-hint-mode
(progn
(add-hook 'post-self-insert-hook #'minibuffer-hint-start-timer nil t)
- (add-hook 'minibuffer-exit-hook #'minibuffer-hint-cancel-timer nil t))
+ (add-hook 'minibuffer-exit-hook #'minibuffer-hint-cancel-timer nil t)
+ (add-hook 'pre-command-hook #'minibuffer-hint-cancel-timer nil t))
(remove-hook 'post-self-insert-hook #'minibuffer-hint-start-timer t)
+ (remove-hook 'minibuffer-exit-hook #'minibuffer-hint-cancel-timer t)
+ (remove-hook 'pre-command-hook #'minibuffer-hint-cancel-timer t)
(minibuffer-hint-cancel-timer)))
(add-hook 'minibuffer-setup-hook (lambda ()