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

Unify all function prefixes

This commit is contained in:
Andreas Zweili 2022-09-01 08:40:55 +02:00
parent 8a838371a6
commit 58c330051b
7 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
home-manager/software/emacs/emacs.d/lib/dired.el
View File

@ -19,14 +19,14 @@
(use-package dired-hide-dotfiles
:ensure t
:init
(defun my-dired-mode-hook ()
(defun az-dired-mode-hook ()
"My `dired' mode hook."
;; To hide dot-files by default
(dired-hide-dotfiles-mode)
;; To toggle hiding
(add-hook 'dired-mode-hook #'my-dired-mode-hook))
(add-hook 'dired-mode-hook #'az-dired-mode-hook))
:bind
(:map dired-mode-map
("." . dired-hide-dotfiles-mode)))

4
home-manager/software/emacs/emacs.d/lib/format_all.el
View File

@ -5,12 +5,12 @@
(yaml-mode . format-all-ensure-formatter)
(prog-mode . format-all-mode))
:preface
(defun nebucatnetzer/format-code ()
(defun az-format-code ()
"format buffer."
(interactive)
(format-all-buffer))
:config
(global-set-key (kbd "C-c C-f") #'nebucatnetzer/format-code)
(global-set-key (kbd "C-c C-f") #'az-format-code)
(setq format-all-show-errors 'errors)
(setq format-all-default-formatters
'(("Assembly" asmfmt)

2
home-manager/software/emacs/emacs.d/lib/mu4e.el
View File

@ -84,7 +84,7 @@
;; spell check
(add-hook 'mu4e-compose-mode-hook
(defun my-do-compose-stuff ()
(defun az-do-compose-stuff ()
"My settings for message composition."
(setq mu4e-compose-format-flowed t)
(use-hard-newlines -1)

14
home-manager/software/emacs/emacs.d/lib/org_mode.el
View File

@ -115,7 +115,7 @@
(setq org-startup-indented t)
;; capture templates
(defun my/org-capture-read-file-name ()
(defun az-org-capture-read-file-name ()
(concat (expand-file-name (read-file-name "PROMPT: " "~/nextcloud/12_tasks/")) ".org"))
(when (boundp 'enable-personal-agenda)
@ -126,7 +126,7 @@
(file+headline "~/nextcloud/12_tasks/personal.org" "Capture")
(file "~/nextcloud/10_documents/99_archive/0000/settings/templates/temp_personal_todo.txt")
:empty-lines 1)
("n" "Add note" plain (file my/org-capture-read-file-name)
("n" "Add note" plain (file az-org-capture-read-file-name)
(file "~/nextcloud/10_documents/99_archive/0000/settings/templates/temp_note.txt"))
)))))
@ -149,7 +149,7 @@
(file "~/nextcloud/10_documents/99_archive/0000/settings/templates/temp_work_small_project.txt"))
("m" "Meeting" entry (file+headline "~/nextcloud/03_documents/org/agenda/work/work.org" "Capture")
"* %U MEETING: with %?\n" :clock-in t :clock-resume t :empty-lines 1)
("n" "Add note" plain (file my/org-capture-read-file-name)
("n" "Add note" plain (file az-org-capture-read-file-name)
(file "~/nextcloud/10_documents/99_archive/0000/settings/templates/temp_note.txt"))
)))))
@ -167,13 +167,13 @@
(setq org-refile-use-outline-path 'file
org-outline-path-complete-in-steps nil)
(defun nebucatnetzer-org-files-list ()
(defun az-org-files-list ()
(delq nil
(mapcar (lambda (buffer)
(buffer-file-name buffer))
(org-buffer-list 'files t))))
(setq org-refile-targets '((nebucatnetzer-org-files-list :maxlevel . 6)))
(setq org-refile-targets '((az-org-files-list :maxlevel . 6)))
(setq org-src-fontify-natively t)
@ -325,9 +325,9 @@
(setq org-agenda-dim-blocked-tasks t)
;; automatically refresh the agenda after adding a task
(add-hook 'org-capture-after-finalize-hook 'nebucatnetzer:org-agenda-redo)
(add-hook 'org-capture-after-finalize-hook 'az-org-agenda-redo)
(defun nebucatnetzer:org-agenda-redo ()
(defun az-org-agenda-redo ()
(interactive)
(when (get-buffer "*Org Agenda*")
(with-current-buffer "*Org Agenda*"

6
home-manager/software/emacs/emacs.d/lib/utils.el
View File

@ -26,3 +26,9 @@
(let ((format "%A, %d. %B %Y")
(system-time-locale "de_CH"))
(insert (format-time-string format))))
(defun az-toggle-window-dedication ()
"Toggles window dedication in the selected window."
(interactive)
(set-window-dedicated-p (selected-window)
(not (window-dedicated-p (selected-window)))))

4
home-manager/software/emacs/emacs.d/lib/webmode.el
View File

@ -22,12 +22,12 @@
(require 'company-web-html)
;; Tide completion support in web-mode with company-mode
(defun my-web-mode-hook ()
(defun az-web-mode-hook ()
"Hook for `web-mode'."
(set (make-local-variable 'company-backends)
'(company-tide company-web-html company-yasnippet company-files)))
(add-hook 'web-mode-hook 'my-web-mode-hook)
(add-hook 'web-mode-hook 'az-web-mode-hook)
;; Enable JavaScript completion between <script>...</script> etc.
(defadvice company-tide (before web-mode-set-up-ac-sources activate)

8
home-manager/software/emacs/emacs.d/lib/window_split.el
View File

@ -26,15 +26,15 @@
(define-key ctl-x-map "4" 'toggle-window-split)
(defun nebucatnetzer:split-window-below-and-move-cursor ()
(defun az-split-window-below-and-move-cursor ()
(interactive)
(split-window-below)
(other-window 1))
(defun nebucatnetzer:split-window-right-and-move-cursor ()
(defun az-split-window-right-and-move-cursor ()
(interactive)
(split-window-right)
(other-window 1))
(global-set-key (kbd "C-x 2") 'nebucatnetzer:split-window-below-and-move-cursor)
(global-set-key (kbd "C-x 3") 'nebucatnetzer:split-window-right-and-move-cursor)
(global-set-key (kbd "C-x 2") 'az-split-window-below-and-move-cursor)
(global-set-key (kbd "C-x 3") 'az-split-window-right-and-move-cursor)