Nebucatnetzer
/
nixos
1
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge branch 'master' of git.2li.ch:Nebucatnetzer/nixos

This commit is contained in:
Andreas Zweili 2023-10-04 23:44:50 +02:00
parent dabb569ae4 17b146fc12
commit 75ba233d36
3 changed files with 56 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
home-manager/modules/programs/emacs/emacs.d/lib/az_deft.el
View File

@ -1,33 +1,34 @@
(use-package deft (when (boundp 'enable-notes)
:ensure nil (use-package deft
:bind ("<f5>" . open-notes) :ensure nil
:commands (deft) :bind ("<f5>" . open-notes)
:config :commands (deft)
(add-to-list 'evil-emacs-state-modes 'deft-mode) :config
(setq deft-extensions '("md") (add-to-list 'evil-emacs-state-modes 'deft-mode)
deft-default-extension "md" (setq deft-extensions '("md")
deft-markdown-mode-title-level 1 deft-default-extension "md"
deft-auto-save-interval 300.0 deft-markdown-mode-title-level 1
deft-file-limit 50 deft-auto-save-interval 300.0
deft-use-filename-as-title nil deft-file-limit 50
deft-use-filter-string-for-filename t deft-use-filename-as-title nil
deft-strip-summary-regexp (concat "\\(" deft-use-filter-string-for-filename t
"[\n\t]" ;; blank deft-strip-summary-regexp (concat "\\("
"\\|^#\\+[[:upper:]_]+:.*$" ;; org-mode metadata "[\n\t]" ;; blank
"^---\\(?:\n.*\\)*---.*$" "\\|^#\\+[[:upper:]_]+:.*$" ;; org-mode metadata
"\\)") "^---\\(?:\n.*\\)*---.*$"
"\\)")
deft-recursive t) deft-recursive t)
(setq deft-file-naming-rules (setq deft-file-naming-rules
'((noslash . "-") '((noslash . "-")
(nospace . "_") (nospace . "_")
(case-fn . downcase))) (case-fn . downcase)))
(setq deft-directory "~/nextcloud/10_documents/") (setq deft-directory "~/nextcloud/10_documents/")
(add-hook 'deft-mode-hook (lambda() (display-line-numbers-mode -1))) (add-hook 'deft-mode-hook (lambda() (display-line-numbers-mode -1)))
;; A function to create a persp for my notes ;; A function to create a persp for my notes
(defun open-notes () (defun open-notes ()
"Create a notes perspective and open deft" "Create a notes perspective and open deft"
(interactive) (interactive)
(persp-switch "notes") (persp-switch "notes")
(deft))) (deft))))

45
home-manager/modules/programs/emacs/emacs.d/lib/az_denote.el
View File

@ -1,23 +1,24 @@
(use-package denote (when (boundp 'enable-notes)
:bind (use-package denote
(("C-c n r" . denote-rename-file) :bind
("C-c n p" . az-denote-create-new-note-from-region) (("C-c n r" . denote-rename-file)
("C-c n n" . denote)) ("C-c n p" . az-denote-create-new-note-from-region)
:config ("C-c n n" . denote))
(defun az-denote-create-new-note-from-region (beg end) :config
"Create note whose contents include the text between BEG and END. Prompt (defun az-denote-create-new-note-from-region (beg end)
"Create note whose contents include the text between BEG and END. Prompt
for title and keywords of the new note." for title and keywords of the new note."
(interactive "r") (interactive "r")
(if-let (((region-active-p)) (if-let (((region-active-p))
(text (text
(buffer-substring-no-properties beg end))) (buffer-substring-no-properties beg end)))
(progn (denote (progn (denote
(denote-title-prompt) (denote-keywords-prompt)) (insert text)) (denote-title-prompt) (denote-keywords-prompt)) (insert text))
(user-error (user-error
"No region is available"))) "No region is available")))
(add-hook 'find-file-hook #'denote-link-buttonize-buffer) (add-hook 'find-file-hook #'denote-link-buttonize-buffer)
(setq denote-rename-buffer-mode 1 (setq denote-rename-buffer-mode 1
denote-excluded-directories-regexp "99_archive" denote-excluded-directories-regexp "99_archive"
denote-file-type "markdown-yaml" denote-file-type "markdown-yaml"
denote-directory "~/nextcloud/10_documents/" denote-directory "~/nextcloud/10_documents/"
denote-yaml-front-matter "---\ntitle: %s\ndate: %s\ntags: %s\nidentifier: %S\n---\n\n")) denote-yaml-front-matter "---\ntitle: %s\ndate: %s\ntags: %s\nidentifier: %S\n---\n\n")))

8
home-manager/modules/programs/emacs/emacs.d/template_variables.el
View File

@ -1,15 +1,9 @@
;;(setq disable-fringe t) ;;(setq disable-fringe t)
;;(setq enable-auctex t)
;;(setq enable-clocking t)
;;(setq enable-color-theme t) ;;(setq enable-color-theme t)
;;(setq enable-email t) ;;(setq enable-email t)
;;(setq enable-emojis t) ;;(setq enable-emojis t)
;;(setq enable-font t) ;;(setq enable-font t)
;;(setq enable-lantool t) ;;(setq enable-lantool t)
;;(setq enable-org-bullets t) ;;(setq enable-notes t)
;;(setq enable-ox-pandoc t)
;;(setq enable-pdf-tools t) ;;(setq enable-pdf-tools t)
;;(setq enable-personal-agenda t)
;;(setq enable-scroll-bar t) ;;(setq enable-scroll-bar t)
;;(setq enable-ticketing t)
;;(setq enable-work-agenda t)