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