Recent updates
This commit is contained in:
Joe Frikker
@@ -98,3 +98,161 @@
|
||||
(operators normal)
|
||||
(prettify insert)
|
||||
slurp/barf)))
|
||||
|
||||
(use-package! kubernetes-overview
|
||||
:commands (kubernetes-overview)
|
||||
:config
|
||||
(setq kubernetes-poll-frequency 3600
|
||||
kubernetes-redraw-frequency 3600))
|
||||
|
||||
(use-package! kubernetes-evil
|
||||
:after kubernetes-overview)
|
||||
|
||||
(use-package! ledger-mode
|
||||
:mode "\\.ledger\\'")
|
||||
|
||||
(use-package! evil-ledger
|
||||
:after ledger-mode
|
||||
:config
|
||||
(add-hook 'ledger-mode-hook #'evil-ledger-mode))
|
||||
|
||||
|
||||
; (use-package! org-transclusion
|
||||
; :after org)
|
||||
|
||||
(setq lsp-java-jdt-download-url "https://www.eclipse.org/downloads/download.php?file=/jdtls/milestones/1.42.0/jdt-language-server-1.42.0-202411281516.tar.gz")
|
||||
|
||||
(setq sql-connection-alist
|
||||
'((local
|
||||
(sql-product 'mysql)
|
||||
(sql-server "127.0.0.1")
|
||||
(sql-user "root")
|
||||
(sql-password "test")
|
||||
(sql-database "ebdb")
|
||||
(sql-port 3306))
|
||||
(dev
|
||||
(sql-product 'mysql)
|
||||
(sql-server "kube-db.dev.internal.shibumi.com")
|
||||
(sql-user "joe.frikker")
|
||||
(sql-password "psStCkHDMJ2DyR6x")
|
||||
(sql-database "mothership")
|
||||
(sql-port 3306)
|
||||
(sql-default-directory "/ssh:bastion.dev.internal.shibumi.com:"))))
|
||||
|
||||
(after! projectile
|
||||
(setq projectile-indexing-method 'alien))
|
||||
|
||||
(after! magit
|
||||
(setq magit-list-refs-sortby "-committerdate"))
|
||||
|
||||
(setq lsp-java-configuration-maven-user-settings "/Users/jfrikker/.m2/settings.xml")
|
||||
|
||||
(after! org
|
||||
(setq org-todo-keywords
|
||||
'((sequence
|
||||
"TODO(o)" ; A task that needs doing
|
||||
"IN_PROGRESS(p!)" ; Task is in progress
|
||||
"HOLD(h@)" ; Task is being held up or paused
|
||||
"|"
|
||||
"DONE(d!)"
|
||||
"CANCELLED(c@)"))
|
||||
org-todo-keyword-faces
|
||||
'(("IN_PROGRESS" . +org-todo-active)
|
||||
("HOLD" . +org-todo-onhold)
|
||||
("CANCELLED" . +org-todo-cancel)))
|
||||
|
||||
(setq org-capture-templates
|
||||
'(("t" "Personal todo" entry
|
||||
(file+headline +org-capture-todo-file "Inbox")
|
||||
"* TODO %?\n%i\n%a" :prepend t)
|
||||
("d" "Decision" entry
|
||||
(file+headline "decisions.org" "Unfiled")
|
||||
"* %?\n:properties:\n%^{ORG-LEVEL|Sprint Team}p:end:\n#What\n\n#Why\n\n#When\n\n%u"))))
|
||||
|
||||
(defun org-columns-dblock-write-default (ipos table params)
|
||||
"Write out a columnview table at position IPOS in the current buffer.
|
||||
TABLE is a table with data as produced by `org-columns--capture-view'.
|
||||
PARAMS is the parameter property list obtained from the dynamic block
|
||||
definition."
|
||||
(let ((link (plist-get params :link))
|
||||
(width-specs
|
||||
(mapcar (lambda (spec) (nth 2 spec))
|
||||
org-columns-current-fmt-compiled)))
|
||||
(when table
|
||||
;; Prune level information from the table. Also normalize
|
||||
;; headings: remove stars, add indentation entities, if
|
||||
;; required, and possibly precede some of them with a horizontal
|
||||
;; rule.
|
||||
(let ((item-index
|
||||
(let ((p (assoc "ITEM" org-columns-current-fmt-compiled)))
|
||||
(and p (cl-position p
|
||||
org-columns-current-fmt-compiled
|
||||
:test #'equal))))
|
||||
(hlines (plist-get params :hlines))
|
||||
(indent (plist-get params :indent))
|
||||
new-table)
|
||||
;; Copy header and first rule.
|
||||
(push (pop table) new-table)
|
||||
(push (pop table) new-table)
|
||||
(dolist (row table (setq table (nreverse new-table)))
|
||||
(let ((level (car row)))
|
||||
(when (and (not (eq (car new-table) 'hline))
|
||||
(or (eq hlines t)
|
||||
(and (numberp hlines) (<= level hlines))))
|
||||
(push 'hline new-table))
|
||||
(when item-index
|
||||
(let* ((raw (nth item-index (cdr row)))
|
||||
(cleaned (org-columns--clean-item raw))
|
||||
(item (if (not link) cleaned
|
||||
(let ((search (org-link-heading-search-string raw)))
|
||||
(org-link-make-string
|
||||
search
|
||||
cleaned)))))
|
||||
(setf (nth item-index (cdr row))
|
||||
(if (and indent (> level 1))
|
||||
(concat "\\_" (make-string (* 2 (1- level)) ?\s) item)
|
||||
item))))
|
||||
(push (cdr row) new-table))))
|
||||
(when (plist-get params :vlines)
|
||||
(setq table
|
||||
(let ((size (length org-columns-current-fmt-compiled)))
|
||||
(append (mapcar (lambda (x) (if (eq 'hline x) x (cons "" x)))
|
||||
table)
|
||||
(list (cons "/" (make-list size "<>")))))))
|
||||
(when (seq-find #'identity width-specs)
|
||||
;; There are width specifiers in column format. Pass them
|
||||
;; to the resulting table, adding alignment field as the first
|
||||
;; row.
|
||||
(push (mapcar (lambda (width) (when width (format "<%d>" width))) width-specs) table))
|
||||
;; now insert the table into the buffer
|
||||
(goto-char ipos)
|
||||
(let ((content-lines (org-split-string (plist-get params :content) "\n"))
|
||||
recalc)
|
||||
;; Insert affiliated keywords before the table.
|
||||
(when content-lines
|
||||
(while (string-match-p "\\`[ \t]*#\\+" (car content-lines))
|
||||
(insert (string-trim-left (pop content-lines)) "\n")))
|
||||
(save-excursion
|
||||
;; Insert table at point.
|
||||
(insert
|
||||
(mapconcat (lambda (row)
|
||||
(if (eq row 'hline) "|-|"
|
||||
(format "|%s|" (mapconcat #'identity row "|"))))
|
||||
table
|
||||
"\n"))
|
||||
;; Insert TBLFM lines following table.
|
||||
(let ((case-fold-search t))
|
||||
(dolist (line content-lines)
|
||||
(when (string-match-p "\\`[ \t]*#\\+TBLFM:" line)
|
||||
(insert "\n" (string-trim-left line))
|
||||
(unless recalc (setq recalc t))))))
|
||||
(when recalc (org-table-recalculate 'all t))
|
||||
(org-table-align)
|
||||
(when (seq-find #'identity width-specs)
|
||||
(org-table-shrink))))))
|
||||
(map!
|
||||
:nv "g w" #'avy-goto-word-1
|
||||
:nv "g r" #'+lookup/references
|
||||
:nv "SPC D" #'+default/diagnostics
|
||||
:nv "] e" #'flycheck-next-error
|
||||
:nv "[ e" #'flycheck-previous-error)
|
||||
|
||||
26
dot_config/doom/custom.el
Normal file
26
dot_config/doom/custom.el
Normal file
@@ -0,0 +1,26 @@
|
||||
(custom-set-variables
|
||||
;; custom-set-variables was added by Custom.
|
||||
;; If you edit it by hand, you could mess it up, so be careful.
|
||||
;; Your init file should contain only one such instance.
|
||||
;; If there is more than one, they won't work right.
|
||||
'(ignored-local-variable-values
|
||||
'((Syntax . ANSI-Common-Lisp)
|
||||
(package . cl-mock)
|
||||
(syntax . common-lisp)
|
||||
(Base . 10)
|
||||
(Package . FIVEAM)
|
||||
(Syntax . Ansi-Common-Lisp)))
|
||||
'(safe-local-variable-values
|
||||
'((org-tags-exclude-from-inheritance "why" "tbd")
|
||||
(org-tags-exclude-from-inheritance quote
|
||||
("why" "tbd"))
|
||||
(org-tags-exclude-from-inheritance quote
|
||||
("why"
|
||||
(\, "tbd")))
|
||||
(sly-load-failed-fasl . ask))))
|
||||
(custom-set-faces
|
||||
;; custom-set-faces was added by Custom.
|
||||
;; If you edit it by hand, you could mess it up, so be careful.
|
||||
;; Your init file should contain only one such instance.
|
||||
;; If there is more than one, they won't work right.
|
||||
)
|
||||
@@ -21,11 +21,13 @@
|
||||
;;layout ; auie,ctsrnm is the superior home row
|
||||
|
||||
:completion
|
||||
company ; the ultimate code completion backend
|
||||
;; company ; the ultimate code completion backend
|
||||
(corfu +orderless)
|
||||
;;helm ; the *other* search engine for love and life
|
||||
;;ido ; the other *other* search engine...
|
||||
;;ivy ; a search engine for love and life
|
||||
vertico ; the search engine of the future
|
||||
vertico
|
||||
; the search engine of the future
|
||||
|
||||
:ui
|
||||
;;deft ; notational velocity for Emacs
|
||||
@@ -34,17 +36,16 @@
|
||||
;;doom-quit ; DOOM quit-message prompts when you quit Emacs
|
||||
;;(emoji +unicode) ; 🙂
|
||||
hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
|
||||
;;hydra
|
||||
;;indent-guides ; highlighted indent columns
|
||||
;;ligatures ; ligatures and symbols to make your code pretty again
|
||||
;;minimap ; show a map of the code on the side
|
||||
modeline ; snazzy, Atom-inspired modeline, plus API
|
||||
;;nav-flash ; blink cursor line after big motions
|
||||
;;neotree ; a project drawer, like NERDTree for vim
|
||||
neotree ; a project drawer, like NERDTree for vim
|
||||
ophints ; highlight the region an operation acts on
|
||||
(popup +defaults) ; tame sudden yet inevitable temporary windows
|
||||
;;tabs ; a tab bar for Emacs
|
||||
(treemacs +lsp) ; a project drawer, like neotree but cooler
|
||||
;;(treemacs +lsp) ; a project drawer, like neotree but cooler
|
||||
;;unicode ; extended unicode support for various languages
|
||||
(vc-gutter +pretty) ; vcs diff in the fringe
|
||||
vi-tilde-fringe ; fringe tildes to mark beyond EOB
|
||||
@@ -88,36 +89,35 @@
|
||||
;;ansible
|
||||
;;biblio ; Writes a PhD for you (citation needed)
|
||||
;;collab ; buffers with friends
|
||||
;;debugger ; FIXME stepping through code, to help you add bugs
|
||||
;;direnv
|
||||
;;docker
|
||||
(debugger +lsp) ; FIXME stepping through code, to help you add bugs
|
||||
direnv
|
||||
docker
|
||||
;;editorconfig ; let someone else argue about tabs vs spaces
|
||||
;;ein ; tame Jupyter notebooks with emacs
|
||||
(eval +overlay) ; run code, run (also, repls)
|
||||
;;gist ; interacting with github gists
|
||||
lookup ; navigate your code and its documentation
|
||||
;;(lsp +eglot) ; M-x vscode
|
||||
;;magit ; a git porcelain for Emacs
|
||||
lsp ; M-x vscode
|
||||
(magit +forge) ; a git porcelain for Emacs
|
||||
;;make ; run make tasks from Emacs
|
||||
;;pass ; password manager for nerds
|
||||
;;pdf ; pdf enhancements
|
||||
;;prodigy ; FIXME managing external services & code builders
|
||||
;;rgb ; creating color strings
|
||||
taskrunner ; taskrunner for all your projects
|
||||
;;taskrunner ; taskrunner for all your projects
|
||||
;;terraform ; infrastructure as code
|
||||
;;tmux ; an API for interacting with tmux
|
||||
;;tree-sitter ; syntax and parsing, sitting in a tree...
|
||||
tree-sitter ; syntax and parsing, sitting in a tree...
|
||||
;;upload ; map local to remote projects via ssh/ftp
|
||||
|
||||
:os
|
||||
(:if IS-MAC macos) ; improve compatibility with macOS
|
||||
;;tty ; improve the terminal Emacs experience
|
||||
(:if (featurep :system 'macos) macos) ; improve compatibility with macOS
|
||||
tty ; improve the terminal Emacs experience
|
||||
|
||||
:lang
|
||||
;;agda ; types of types of types of types...
|
||||
;;beancount ; mind the GAAP
|
||||
;;(cc +lsp) ; C > C++ == 1
|
||||
clojure ; java with a lisp
|
||||
;;clojure ; java with a lisp
|
||||
common-lisp ; if you've seen one lisp, you've seen them all
|
||||
;;coq ; proofs-as-programs
|
||||
;;crystal ; ruby at the speed of c
|
||||
@@ -141,9 +141,9 @@
|
||||
;;(haskell +lsp) ; a language that's lazier than I am
|
||||
;;hy ; readability of scheme w/ speed of python
|
||||
;;idris ; a language you can depend on
|
||||
;;json ; At least it ain't XML
|
||||
;;(java +lsp +tree-sitter) ; the poster child for carpal tunnel syndrome
|
||||
;;(javascript +lsp) ; all(hope(abandon(ye(who(enter(here))))))
|
||||
(json +tree-sitter) ; At least it ain't XML
|
||||
(java +lsp +tree-sitter) ; the poster child for carpal tunnel syndrome
|
||||
(javascript +lsp +treesitter) ; all(hope(abandon(ye(who(enter(here))))))
|
||||
;;julia ; a better, faster MATLAB
|
||||
;;kotlin ; a better, slicker Java(Script)
|
||||
;;latex ; writing papers in Emacs has never been so fun
|
||||
@@ -154,7 +154,7 @@
|
||||
;;nim ; python + lisp at the speed of c
|
||||
;;nix ; I hereby declare "nix geht mehr!"
|
||||
;;ocaml ; an objective camel
|
||||
;;org ; organize your plain life in plain text
|
||||
(org) ; organize your plain life in plain text
|
||||
;;php ; perl's insecure younger brother
|
||||
;;plantuml ; diagrams for confusing people more
|
||||
;;purescript ; javascript, but functional
|
||||
@@ -162,10 +162,10 @@
|
||||
;;qt ; the 'cutest' gui framework ever
|
||||
;;racket ; a DSL for DSLs
|
||||
;;raku ; the artist formerly known as perl6
|
||||
;;rest ; Emacs as a REST client
|
||||
rest ; Emacs as a REST client
|
||||
;;rst ; ReST in peace
|
||||
;;(ruby +rails) ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
|
||||
;;(rust +lsp) ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
|
||||
(rust +lsp) ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
|
||||
;;scala ; java, but good
|
||||
;;(scheme +guile) ; a fully conniving family of lisps
|
||||
sh ; she sells {ba,z,fi}sh shells on the C xor
|
||||
@@ -173,8 +173,8 @@
|
||||
;;solidity ; do you need a blockchain? No.
|
||||
;;swift ; who asked for emoji variables?
|
||||
;;terra ; Earth and Moon in alignment for performance.
|
||||
;;web ; the tubes
|
||||
;;yaml ; JSON, but readable
|
||||
web ; the tubes
|
||||
yaml ; JSON, but readable
|
||||
;;zig ; C, but simpler
|
||||
|
||||
:email
|
||||
|
||||
@@ -26,26 +26,32 @@
|
||||
;; with the `:disable' property:
|
||||
;(package! builtin-package :disable t)
|
||||
(package! sly-quicklisp :disable t)
|
||||
;(package! org-transclusion)
|
||||
|
||||
(package! kubernetes)
|
||||
(package! kubernetes-evil)
|
||||
(package! ledger-mode)
|
||||
(package! evil-ledger)
|
||||
|
||||
;; You can override the recipe of a built in package without having to specify
|
||||
;; all the properties for `:recipe'. These will inherit the rest of its recipe
|
||||
;; from Doom or MELPA/ELPA/Emacsmirror:
|
||||
;(package! builtin-package :recipe (:nonrecursive t))
|
||||
;(package! builtin-package-2 :recipe (:repo "myfork/package"))
|
||||
;(package! builtin-package :recipe (:nonrecursive t))
|
||||
;(package! builtin-package-2 :recipe (:repo "myfork/package"))
|
||||
|
||||
;; Specify a `:branch' to install a package from a particular branch or tag.
|
||||
;; This is required for some packages whose default branch isn't 'master' (which
|
||||
;; our package manager can't deal with; see radian-software/straight.el#279)
|
||||
;(package! builtin-package :recipe (:branch "develop"))
|
||||
;(package! builtin-package :recipe (:branch "develop"))
|
||||
|
||||
;; Use `:pin' to specify a particular commit to install.
|
||||
;(package! builtin-package :pin "1a2b3c4d5e")
|
||||
;(package! builtin-package :pin "1a2b3c4d5e")
|
||||
|
||||
|
||||
;; Doom's packages are pinned to a specific commit and updated from release to
|
||||
;; release. The `unpin!' macro allows you to unpin single packages...
|
||||
;(unpin! pinned-package)
|
||||
;(unpin! pinned-package)
|
||||
;; ...or multiple packages
|
||||
;(unpin! pinned-package another-pinned-package)
|
||||
;(unpin! pinned-package another-pinned-package)
|
||||
;; ...Or *all* packages (NOT RECOMMENDED; will likely break things)
|
||||
;(unpin! t)
|
||||
;(unpin! t)
|
||||
|
||||
Reference in New Issue
Block a user