commit 93201a027904566efbca7f8e83066acd31e89c26 from: Omar Polo date: Fri Apr 01 14:20:40 2022 UTC + migration files, override for mct-backward-updir commit - 8c9af136966ccfde841caacbe51585123be25ab2 commit + 93201a027904566efbca7f8e83066acd31e89c26 blob - 4c33668c1d7d711960d617b89bd556093ac64357 blob + f6a0ed1655d2c6e0f65a3c6a77b989fe45ecbf37 --- emacs/init.el +++ emacs/init.el @@ -124,6 +124,15 @@ (slot . -1) (window-parameters . ((no-delete-other-windows . t))))) (delete-window))) + +(defun op/visit-new-migration-file (name) + "Visit a new SQL migration file named after NAME." + (interactive "Mname: ") + (let* ((name (replace-regexp-in-string " " "-" (string-trim name))) + (f (format "%s-%s.sql" + (format-time-string "%Y%m%d%H%M") + name))) + (find-file f))) (defun op/fill-or-unfill (fn &optional justify region) "Meant to be an adviced :around `fill-paragraph'. @@ -253,6 +262,11 @@ (marginalia-mode +1) (mct-minibuffer-mode +1) (mct-region-mode +1) + +;; override the binding for the annoying mct-backward-updir. +(define-key mct-minibuffer-local-filename-completion-map + (kbd "DEL") #'backward-delete-char) + (setq mct-remove-shadowed-file-names t mct-completions-format 'one-column mct-completion-passlist '(Info-goto-node