From 6c3a78d144f5ced9902d910296aa38c51fde46b1 Mon Sep 17 00:00:00 2001 From: benj Date: Fri, 2 Jul 2021 11:09:58 -0700 Subject: mu4e filters org-mode reset clojure mode w/ lsp --- settings/setup-clojure-mode.el | 15 ++++++++ settings/setup-custom.el | 7 +--- settings/setup-mu4e.el | 13 ++++--- settings/setup-org-mode.el | 84 +++++++++++++++++++++++++++++------------- settings/setup-web-mode.el | 1 - 5 files changed, 81 insertions(+), 39 deletions(-) (limited to 'settings') diff --git a/settings/setup-clojure-mode.el b/settings/setup-clojure-mode.el index 109b074..9961f09 100644 --- a/settings/setup-clojure-mode.el +++ b/settings/setup-clojure-mode.el @@ -2,7 +2,22 @@ (require 'clojure-mode-extra-font-locking) (require 'flycheck-clojure) +(add-hook 'clojure-mode-hook 'lsp) +(add-hook 'clojurescript-mode-hook 'lsp) +(add-hook 'clojurec-mode-hook 'lsp) + (add-hook 'clojure-mode-hook 'enable-paredit-mode) (add-hook 'clojure-mode-hook 'prettify-symbols-mode) +(setq gc-cons-threshold (* 100 1024 1024) + read-process-output-max (* 1024 1024) + treemacs-space-between-root-nodes nil + company-minimum-prefix-length 1 + lsp-lens-enable t + lsp-signature-auto-activate nil + ; lsp-enable-indentation nil ; uncomment to use cider indentation instead of lsp + ; lsp-enable-completion-at-point nil ; uncomment to use cider completion instead of lsp + ) + + (provide 'setup-clojure-mode) diff --git a/settings/setup-custom.el b/settings/setup-custom.el index aceedd1..73c6b71 100644 --- a/settings/setup-custom.el +++ b/settings/setup-custom.el @@ -7,12 +7,7 @@ ;; 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. - '(default ((t (:height 90 :width normal :family "Source Code Pro Medium")))) - '(org-level-1 ((t (:inherit outline-1 :height 1.0)))) - '(org-level-2 ((t (:inherit outline-2 :height 1.0)))) - '(org-level-3 ((t (:inherit outline-3 :height 1.0)))) - '(org-level-4 ((t (:inherit outline-4 :height 1.0)))) - '(org-level-5 ((t (:inherit outline-5 :height 1.0))))) + '(default ((t (:height 90 :width normal :family "Source Code Pro Medium"))))) ;; no line highlight (hl-line-mode 0) diff --git a/settings/setup-mu4e.el b/settings/setup-mu4e.el index fec8970..7497150 100644 --- a/settings/setup-mu4e.el +++ b/settings/setup-mu4e.el @@ -79,10 +79,10 @@ ("/personal-gmail/[Gmail]/Trash" . ?t) ("/personal-gmail/[Gmail]/All Mail" . ?a))) - ;; (mu4e-bookmarks . (("date:today..now AND flag:unread AND (NOT maildir:/personal-gmail/[Gmail]/Trash OR NOT maildir:/personal-gmail/[Gmail]/Sent Mail)" "Inbox" ?i) - ;; ("flag:unread AND (NOT maildir:/personal-gmail/[Gmail]/Trash AND NOT maildir:/personal-gmail/[Gmail]/Sent Mail)" "Unread" ?u) - ;; ("date:7d..now AND (NOT maildir:/personal-gmail/[Gmail]/Trash OR NOT maildir:/personal-gmail/[Gmail]/Sent Mail)" "Last 7 Days" ?w) - ;; ("NOT maildir:/personal-gmail/[Gmail]/Trash AND NOT maildir:/personal-gmail/[Gmail]/Sent Mail" "All" ?a))) + (mu4e-bookmarks . (("date:today..now AND flag:unread AND NOT (\"maildir:/personal-gmail/[Gmail]/Trash\")" "Inbox" ?i) + ("date:today..now AND NOT (\"maildir:/personal-gmail/[Gmail]/Trash\" OR \"maildir:/personal-gmail/[Gmail]/Sent Mail\")" "Today" ?t) + ("date:7d..now AND NOT (\"maildir:/personal-gmail/[Gmail]/Trash\" OR \"maildir:/personal-gmail/[Gmail]/Sent Mail\")" "Last 7 Days" ?w) + ("NOT (\"maildir:/personal-gmail/[Gmail]/Trash\" OR \"maildir:/personal-gmail/[Gmail]/Sent Mail\")" "All" ?a))) (smtpmail-queue-dir . "~/.mail/personal-gmail/queue/cur") (smtpmail-smtp-user . ,personal-email) @@ -96,7 +96,8 @@ (add-to-list 'mu4e-view-actions '("View In Browser" . mu4e-action-view-in-browser) t) -;(add-hook 'message-send-hook (lambda () (mml-secure-message-sign-pgpmime))) +(add-hook 'mu4e-compose-mode-hook (lambda () (auto-fill-mode -1))) +(add-hook 'message-send-hook (lambda () (mml-secure-message-sign-pgpmime))) ;; mu4e-alerts (mu4e-alert-set-default-style 'libnotify) @@ -106,7 +107,7 @@ mu4e-alert-interesting-mail-query (concat "date:today..now" " AND flag:unread" - " AND (NOT maildir:/personal-gmail/[Gmail]/Trash OR NOT maildir:/personal-gmail/[Gmail]/Sent Mail)")) + " AND NOT (\"maildir:/personal-gmail/[Gmail]/Trash\" OR \"maildir:/personal-gmail/[Gmail]/Sent Mail\")")) (provide 'setup-mu4e) diff --git a/settings/setup-org-mode.el b/settings/setup-org-mode.el index a2ec85f..bef8ba1 100644 --- a/settings/setup-org-mode.el +++ b/settings/setup-org-mode.el @@ -1,31 +1,63 @@ ;; Pretty bullets -(add-hook 'org-mode-hook (lambda() (org-bullets-mode 1))) - -(setq org-log-done 'time) -(setq org-src-fontify-natively t) -(setq org-src-tab-acts-natively t) -(setq org-todo-keywords - '((sequence "TODO" "IN-PROGRESS" "BLOCKED" "DONE"))) -(setq org-tag-alist - '((:startgroup . nil) - ("blocker" . ?b) - ("!critical" . ?u) - ("!major" . ?m) - ("!minor" . ?n) - ("!trivial" . ?t) - (:endgroup . nil) - ("@home" . ?h) - ("@store" . ?s) - ("@work" . ?w) - ("reading" . ?r) - ("studying" . ?s) - ("implementation" . ?i))) - (global-set-key (kbd "C-c a") 'org-agenda) -(org-babel-do-load-languages - 'org-babel-load-languages - '((emacs-lisp . t) - (python . t))) +;; open org mode planner +(global-set-key (kbd "C-c b") + (lambda () (interactive) + (delete-other-windows) + (find-file "~/workspace/.org/planner.org"))) + +(require 'rainbow-mode) +(add-hook 'org-mode-hook 'rainbow-mode) + +(setq org-base-directory "~/workspace/.org") + +(setq + org-export-html-postamble nil + org-log-done 'note + org-todo-keywords '((sequence "Todo" "In-Progress" "Waiting" "Done")) + org-agenda-files (list "~/workspace/.org/planner.org")) + +;; org publish +(require 'ox-publish) + +(defun publishing-entry (project) + `(,project + :base-directory ,(concat org-base-directory "/" project) + :base-extension "org" + :headline-levels 4 + :html-head-include-default-style nil + :html-head-include-scripts nil + :html-head-extra ,(concat "