diff --git a/lisp/ti-config/libraries b/lisp/ti-config/libraries index d8233fa..31d7f43 160000 --- a/lisp/ti-config/libraries +++ b/lisp/ti-config/libraries @@ -1 +1 @@ -Subproject commit d8233fa707392cd171c76fca00c1a9f8f49446b0 +Subproject commit 31d7f4382b7900d90d0483992be0e962faa4b768 diff --git a/lisp/vertico-jumper.el b/lisp/vertico-jumper.el new file mode 100644 index 0000000..a2fb652 --- /dev/null +++ b/lisp/vertico-jumper.el @@ -0,0 +1,40 @@ +;;; vertico-jumper.el --- -*- lexical-binding: t -*- + +;; Copyright (C) 2023 Benson Chu + +;; Author: Benson Chu +;; Created: [2023-03-31 09:21] + +;; This file is not part of GNU Emacs + +;; 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 +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;;; Code: +(use-package vertico) +(require 'vertico-flat) + +(define-prefix-command '*vertico-jump-map*) + +(define-key vertico-flat-map (kbd "M-j") '*vertico-jump-map*) + +(define-key *vertico-jump-map* (kbd "h") #'vertico--jump-to-home) + +(defun vertico--jump-to-home () + (interactive) + (insert "~/")) + +(provide 'vertico-jumper) +;;; vertico-jumper.el ends here