chris/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adding devdocs

Browse source
This commit is contained in:
Chris Cochrun 2022-03-24 13:51:32 -05:00
parent 3cf1d6aa36
commit b7e7249283
2 changed files with 106 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

57
init.el
View file

@ -560,8 +560,8 @@ targets."
;; Add `completion-at-point-functions', used by `completion-at-point'.
(add-to-list 'completion-at-point-functions #'cape-file)
;; (add-to-list 'completion-at-point-functions #'cape-tex)
(add-to-list 'completion-at-point-functions #'cape-dabbrev)
(add-to-list 'completion-at-point-functions #'cape-keyword)
(add-to-list 'completion-at-point-functions #'cape-dabbrev)
;;(add-to-list 'completion-at-point-functions #'cape-sgml)
;;(add-to-list 'completion-at-point-functions #'cape-rfc1345)
;;(add-to-list 'completion-at-point-functions #'cape-abbrev)
@ -569,10 +569,16 @@ targets."
;;(add-to-list 'completion-at-point-functions #'cape-dict)
;; (add-to-list 'completion-at-point-functions #'cape-symbol)
;;(add-to-list 'completion-at-point-functions #'cape-line)
:config
(setq cape-dabbrev-min-length 2)
)
(use-package devdocs
:general
(chris/leader-keys 'normal
"hd" 'devdocs-lookup))
(use-package yasnippet
:config
(setq yas-snippet-dirs (list (expand-file-name "yasnippets/" user-emacs-directory)))
@ -684,7 +690,23 @@ targets."
:commands (helpful-callable helpful-variable helpful-command helpful-key)
:general
(general-def 'normal 'helpful-mode-map
"q" 'chris/kill-buffer-frame))
"q" 'helpful-kill-buffers)
:config
(defun helpful--autoloaded-p (sym buf)
"Return non-nil if function SYM is autoloaded."
(-when-let (file-name (buffer-file-name buf))
(setq file-name (s-chop-suffix ".gz" file-name))
(help-fns--autoloaded-p sym)))
(defun helpful--skip-advice (docstring)
"Remove mentions of advice from DOCSTRING."
(let* ((lines (s-lines docstring))
(relevant-lines
(--take-while
(not (or (s-starts-with-p ":around advice:" it)
(s-starts-with-p "This function has :around advice:" it)))
lines)))
(s-trim (s-join "\n" relevant-lines)))))
(use-package format-all
:config
@ -817,7 +839,8 @@ targets."
(message file)
(call-process "xdg-open" nil 0 nil file)))
(setq dired-dwim-target t)
(setq dired-dwim-target t
delete-by-moving-to-trash t)
(setq dired-listing-switches "-aoh --group-directories-first")
(setq dired-hide-details-hide-symlink-targets nil
@ -830,7 +853,7 @@ targets."
:keymaps 'override
"od" '(dired-jump :which-key "open dired here")
"oD" '(dired :which-key "open dired select"))
(general-def 'normal dired-mode-map
('normal dired-mode-map
"q" 'kill-this-buffer
"C-<return>" 'chris/dired-open-xdg
"C-'" 'embark-act))
@ -959,7 +982,7 @@ targets."
:jump-to-captured t)
("r" "Templates for projects")
("rt" "Project-local todo" entry
(file+headline +org-capture-project-todo-file "Inbox")
(file+headline chris/project-todo "Inbox")
"* TODO %?\n%i\n%a" :prepend t)
("rn" "Project-local notes" entry
(file+headline +org-capture-project-notes-file "Inbox")
@ -1005,6 +1028,7 @@ targets."
"/home/chris/org/newsletter.org"
"/home/chris/org/archive.org"
"/home/chris/org/nvtfc_social_media.org"
"/home/chris/dev/church-presenter/TODO.org"
"/home/chris/org/lessons/")
org-id-method 'ts
org-agenda-tags-column -105)
@ -1097,6 +1121,9 @@ targets."
(goto-char (point-min))
(search-forward "PLAN")))
(defun chris/project-todo ()
(concat (projectile-project-root) "TODO.org"))
(defun chris/org-babel-tangle-config ()
(when (string-equal (buffer-file-name)
(expand-file-name "README.org" user-emacs-directory))
@ -1381,7 +1408,7 @@ If on a:
(setq mu4e-contexts
(list
(make-mu4e-context
:name "office"
:name "work"
:match-func
(lambda (msg)
(when msg
@ -1392,9 +1419,9 @@ If on a:
(mu4e-trash-folder . "/office/Deleted Items")
(mu4e-refile-folder . "/office/Archive")
(smtpmail-smtp-user . "chris@tfcconnection.org")
(mu4e-compose-signature . "---\nChris Cochrun")))
(mu4e-compose-signature . "Praising God in all things,\nChris Cochrun")))
(make-mu4e-context
:name "outlook"
:name "personal"
:match-func
(lambda (msg)
(when msg
@ -1405,7 +1432,7 @@ If on a:
(mu4e-trash-folder . "/outlook/Deleted")
(mu4e-refile-folder . "/outlook/Archive")
(smtpmail-smtp-user . "chris.cochrun@outlook.com")
(mu4e-compose-signature . "---\nChris Cochrun")))
(mu4e-compose-signature . "Praising God in all things,\nChris Cochrun")))
(make-mu4e-context
:name "gmail"
:match-func
@ -1415,7 +1442,7 @@ If on a:
:vars '((user-mail-address . "ccochrun21@gmail.com")
(mu4e-sent-folder . "/gmail/[Gmail].Sent Mail/")
(smtpmail-smtp-user . "ccochrun21@gmail.com")
(mu4e-compose-signature . "---\nChris Cochrun")))))
(mu4e-compose-signature . "Praising God in all things,\nChris Cochrun")))))
;; Add the ability to send email for o365
(setq message-send-mail-function 'smtpmail-send-it
@ -1455,7 +1482,9 @@ If on a:
:key 112)))
(setq mu4e-mu-binary "/usr/bin/mu"
mu4e-view-prefer-html nil)
mu4e-view-prefer-html nil
shr-color-visible-luminance-min 80)
(setq mu4e-use-fancy-chars t
mu4e-headers-draft-mark '("D" . "")
mu4e-headers-flagged-mark '("F" . "")
@ -1942,7 +1971,8 @@ interfere with the default `bongo-playlist-buffer'."
(use-package ement
:straight (ement :type git :host github :repo "alphapapa/ement.el")
:config
(setq ement-room-images t)
(setq ement-room-images t
ement-save-sessions t)
:general
(general-def 'normal ement-room-mode-map
"q" 'bury-buffer
@ -2002,8 +2032,7 @@ interfere with the default `bongo-playlist-buffer'."
'(pdf-misc-print-program-args '("-o media=Letter" "-o fitplot") t)
'(safe-local-variable-values
'((projectile-project-run-cmd . "./build/bin/presenter")
(projectile-project-compilation-cmd . "cmake -DCMAKE_EXPORT_COMPILE_COMMANDS=1 -B build/ . && make --dir build/")
(eval org-odt-styles-file "/home/chris/org/tfcexpenses2020.odt"))))
(projectile-project-compilation-cmd . "cmake -DCMAKE_EXPORT_COMPILE_COMMANDS=1 -B build/ . && make --dir build/"))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.