350 lines
13 KiB
EmacsLisp
350 lines
13 KiB
EmacsLisp
;; Alamat host email
|
|
(setq mail-host-address "mrfirmansyah.my.id")
|
|
|
|
;; Auto-save
|
|
(setq backup-directory-alist
|
|
`((".*" . ,temporary-file-directory))
|
|
auto-save-file-name-transforms
|
|
`((".*" ,temporary-file-directory t)))
|
|
|
|
;; Markah
|
|
(setq bookmark-default-file "/media/Data/Dokumen/Markah/markah")
|
|
|
|
;; Mengikuti symlink tanpa prompt
|
|
(setq vc-follow-symlinks t)
|
|
|
|
;; Mode minor global
|
|
(global-visual-line-mode t)
|
|
(setq electric-indent-mode nil)
|
|
|
|
;; Menampilkan buffer scratch kosong saat memulai
|
|
(setq inhibit-startup-screen t
|
|
initial-scratch-message nil)
|
|
|
|
;; Arsip-arsip paket dan prioritasnya
|
|
(require 'package)
|
|
(setq package-archives
|
|
'(("gnu" . "https://elpa.gnu.org/packages/")
|
|
("nongnu" . "https://elpa.nongnu.org/nongnu/")
|
|
("melpa-stable" . "http://stable.melpa.org/packages/")
|
|
("melpa" . "http://melpa.org/packages/"))
|
|
package-archive-priorities '(("melpa-stable" . 20) ("gnu" . 10) ("melpa" . 0)))
|
|
(package-initialize)
|
|
|
|
;; Spell-checker
|
|
(setq ispell-program-name "hunspell"
|
|
ispell-dictionary "id_ID")
|
|
(add-to-list 'ispell-skip-region-alist '(":\\(PROPERTIES\\|LOGBOOK\\):" . ":END:"))
|
|
(add-to-list 'ispell-skip-region-alist '("#\\+BEGIN_SRC" . "#\\+END_SRC"))
|
|
(add-hook 'text-mode-hook 'flyspell-mode)
|
|
(add-hook 'prog-mode-hook 'flyspell-prog-mode)
|
|
(add-hook 'org-mode-hook 'flyspell-mode)
|
|
|
|
;; Tema
|
|
(tool-bar-mode -1)
|
|
(scroll-bar-mode -1)
|
|
(setq-default cursor-type 'bar)
|
|
|
|
;; Dired
|
|
(add-hook 'dired-mode-hook 'dired-hide-details-mode)
|
|
(setq dired-kill-when-opening-new-dired-buffer t)
|
|
|
|
;; Org mode
|
|
(global-set-key (kbd "C-c a") #'org-agenda)
|
|
(global-set-key (kbd "C-c c") #'org-capture)
|
|
(global-set-key (kbd "C-c l") #'org-store-link)
|
|
(setq org-agenda-files '("/media/Data/Dokumen/Agenda/")
|
|
org-capture-templates '(("c" "Catatan singkat" entry (file+datetree "Catatan/catatan_singkat.org") "* %?\nCREATED: %U" :empty-lines-before 1)
|
|
("p" "Proyek" entry (file "Agenda/proyek.org") "* %?\nCREATED: %U" :empty-lines-before 1)
|
|
("t" "Tugas" entry (file+datetree "Agenda/tugas.org") "* TODO %?\nCREATED: %U" :empty-lines-before 1)
|
|
("T" "Tugas berulang" entry (file+datetree "Agenda/tugas_berulang.org") "* TODO %?\nCREATED: %U\nSCHEDULED: %(org-insert-time-stamp nil nil nil nil nil \" +1m\")" :empty-lines-before 1))
|
|
org-agenda-custom-commands '(("i" "Ikhtisar hari ini" ((todo "DOING" ((org-agenda-overriding-header "Tugas yang sedang dikerjakan:")
|
|
(org-agenda-prefix-format "")))
|
|
(todo "NEXT" ((org-agenda-overriding-header "Tugas selanjutnya:")
|
|
(org-agenda-prefix-format "")))
|
|
(tags "CLOSED>=\"<today>\"" ((org-agenda-overriding-header "Tugas yang telah diselesaikan:")
|
|
(org-agenda-prefix-format "")))
|
|
(agenda "" ((org-agenda-files '("Agenda/jadwal.org"))
|
|
(org-agenda-overriding-header "Jadwal:")
|
|
(org-agenda-prefix-format "%?-12t% s")
|
|
(org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline))
|
|
(org-agenda-span 1)
|
|
(org-deadline-warning-days 0)))))
|
|
("d" "Deadline" ((agenda nil ((org-agenda-entry-types '(:deadline))
|
|
(org-agenda-format-date "")
|
|
(org-deadline-warning-days 7)
|
|
(org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp "\\* NEXT"))
|
|
(org-agenda-overriding-header "Deadline:")
|
|
(org-agenda-prefix-format "%?-12t% s"))))))
|
|
org-agenda-time-grid '((daily today require-timed) (430 915 1200 1515 1800 1900 2045) " ┄┄┄┄┄ " "┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄")
|
|
org-directory "/media/Data/Dokumen/"
|
|
org-format-latex-options '(plist-put org-format-latex-options :scale 0.8)
|
|
org-hide-emphasis-markers t
|
|
org-id-get-create t
|
|
org-id-link-to-org-use-id t
|
|
org-image-actual-width '(300)
|
|
org-log-done 'time
|
|
org-pretty-entities t
|
|
org-startup-indented t
|
|
org-startup-with-inline-images t
|
|
org-stuck-projects '("+PROJECT/-MAYBE-DONE" ("TODO" "NEXT" "DOING") nil "\\<IGNORE\\>")
|
|
org-todo-keywords '((sequence "TODO" "NEXT" "DOING" "|" "DONE" "CANCELED"))
|
|
org-todo-keyword-faces '(("NEXT" . "dark orange")
|
|
("DOING" . "dark green")
|
|
("DONE" . (:background "dark green" :foreground "white" :weight bold))
|
|
("CANCELED" . (:background "red" :foreground "white" :weight bold))))
|
|
|
|
;; Paket-paket
|
|
|
|
(use-package all-the-icons
|
|
:if (display-graphic-p))
|
|
|
|
(use-package all-the-icons-dired
|
|
:hook (dired-mode . all-the-icons-dired-mode))
|
|
|
|
(use-package auctex
|
|
:config
|
|
(setq TeX-auto-save t)
|
|
(setq TeX-parse-self t)
|
|
(setq-default TeX-master nil))
|
|
|
|
(use-package citar
|
|
:custom
|
|
(org-cite-global-bibliography '("/media/Data/Dokumen/Referensi/referensi.bib"))
|
|
(org-cite-insert-processor 'citar)
|
|
(org-cite-follow-processor 'citar)
|
|
(org-cite-activate-processor 'citar)
|
|
(citar-bibliography org-cite-global-bibliography)
|
|
:bind
|
|
(:map org-mode-map :package org ("C-c b" . #'org-cite-insert))
|
|
:hook
|
|
(LaTeX-mode . citar-capf-setup)
|
|
(org-mode . citar-capf-setup)
|
|
:config
|
|
(defvar citar-indicator-files-icons (citar-indicator-create
|
|
:symbol (all-the-icons-faicon "file-o"
|
|
:face 'all-the-icons-green
|
|
:v-adjust -0.1)
|
|
:function #'citar-has-files
|
|
:padding " "
|
|
:tag "has:files"))
|
|
(defvar citar-indicator-links-icons (citar-indicator-create
|
|
:symbol (all-the-icons-octicon "link"
|
|
:face 'all-the-icons-orange
|
|
:v-adjust 0.01)
|
|
:function #'citar-has-links
|
|
:padding " "
|
|
:tag "has:links"))
|
|
(defvar citar-indicator-notes-icons (citar-indicator-create
|
|
:symbol (all-the-icons-material
|
|
"speaker_notes"
|
|
:face 'all-the-icons-blue
|
|
:v-adjust -0.3)
|
|
:function #'citar-has-notes
|
|
:padding " "
|
|
:tag "has:notes"))
|
|
(defvar citar-indicator-cited-icons (citar-indicator-create
|
|
:symbol (all-the-icons-faicon "circle-o"
|
|
:face 'all-the-icon-green)
|
|
:function #'citar-is-cited
|
|
:padding " "
|
|
:tag "is:cited"))
|
|
(setq citar-indicators (list citar-indicator-files-icons
|
|
citar-indicator-links-icons
|
|
citar-indicator-notes-icons
|
|
citar-indicator-cited-icons)))
|
|
|
|
(use-package citar-embark
|
|
:after citar embark
|
|
:no-require
|
|
:config (citar-embark-mode))
|
|
|
|
(use-package citar-org-roam
|
|
:after (citar org-roam)
|
|
:config (citar-org-roam-mode))
|
|
|
|
(use-package company
|
|
:config (global-company-mode t))
|
|
|
|
(use-package company-box
|
|
:hook (company-mode . company-box-mode))
|
|
|
|
(use-package consult
|
|
:bind (("C-c M-x" . consult-mode-command)
|
|
("C-c h" . consult-history)
|
|
("C-c k" . consult-kmacro)
|
|
("C-c m" . consult-man)
|
|
("C-c i" . consult-info)
|
|
([remap Info-search] . consult-info)
|
|
("C-x M-:" . consult-complex-command)
|
|
("C-x b" . consult-buffer)
|
|
("C-x 4 b" . consult-buffer-other-window)
|
|
("C-x 5 b" . consult-buffer-other-frame)
|
|
("C-x t b" . consult-buffer-other-tab)
|
|
("C-x r b" . consult-bookmark)
|
|
("C-x p b" . consult-project-buffer)
|
|
("M-#" . consult-register-load)
|
|
("M-'" . consult-register-store)
|
|
("C-M-#" . consult-register)
|
|
("M-y" . consult-yank-pop)
|
|
("M-g e" . consult-compile-error)
|
|
("M-g f" . consult-flymake)
|
|
("M-g g" . consult-goto-line)
|
|
("M-g M-g" . consult-goto-line)
|
|
("M-g o" . consult-outline)
|
|
("M-g m" . consult-mark)
|
|
("M-g k" . consult-global-mark)
|
|
("M-g i" . consult-imenu)
|
|
("M-g I" . consult-imenu-multi)
|
|
("M-s d" . consult-find)
|
|
("M-s c" . consult-locate)
|
|
("M-s g" . consult-grep)
|
|
("M-s G" . consult-git-grep)
|
|
("M-s r" . consult-ripgrep)
|
|
("M-s l" . consult-line)
|
|
("M-s L" . consult-line-multi)
|
|
("M-s k" . consult-keep-lines)
|
|
("M-s u" . consult-focus-lines)
|
|
("M-s e" . consult-isearch-history)
|
|
:map isearch-mode-map
|
|
("M-e" . consult-isearch-history)
|
|
("M-s e" . consult-isearch-history)
|
|
("M-s l" . consult-line)
|
|
("M-s L" . consult-line-multi)
|
|
:map minibuffer-local-map
|
|
("M-s" . consult-history)
|
|
("M-r" . consult-history))
|
|
|
|
:hook (completion-list-mode . consult-preview-at-point-mode)
|
|
:init
|
|
(setq register-preview-delay 0.5
|
|
register-preview-function #'consult-register-format)
|
|
(advice-add #'register-preview :override #'consult-register-window)
|
|
(setq xref-show-xrefs-function #'consult-xref
|
|
xref-show-definitions-function #'consult-xref)
|
|
:config
|
|
(consult-customize
|
|
consult-theme :preview-key '(:debounce 0.2 any)
|
|
consult-ripgrep consult-git-grep consult-grep
|
|
consult-bookmark consult-recent-file consult-xref
|
|
consult--source-bookmark consult--source-file-register
|
|
consult--source-recent-file consult--source-project-recent-file
|
|
:preview-key '(:debounce 0.4 any))
|
|
(setq consult-narrow-key "<"))
|
|
|
|
(use-package consult-projectile
|
|
:bind ("C-c p" . consult-projectile))
|
|
|
|
(use-package doom-modeline
|
|
:init
|
|
(doom-modeline-mode 1)
|
|
(add-to-list 'doom-modeline-mode-alist '(dashboard-mode)))
|
|
|
|
(use-package dashboard
|
|
:config
|
|
(dashboard-setup-startup-hook)
|
|
(setq dashboard-banner-logo-title ""
|
|
dashboard-center-content t
|
|
dashboard-footer-messages '("")
|
|
dashboard-items '((recents . 5)
|
|
(bookmarks . 10)
|
|
(projects . 10))
|
|
dashboard-show-shortcuts nil
|
|
dashboard-startup-banner nil
|
|
dashboard-vertically-center-content t
|
|
initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name))))
|
|
|
|
(use-package embark
|
|
:init (setq prefix-help-command #'embark-prefix-help-command)
|
|
:config
|
|
(add-to-list 'display-buffer-alist
|
|
'("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
|
|
nil
|
|
(window-parameters (mode-line-format . none)))))
|
|
|
|
(use-package embark-consult
|
|
:hook (embark-collect-mode . consult-preview-at-point-mode))
|
|
|
|
(use-package hide-mode-line
|
|
:hook (dashboard-mode . hide-mode-line-mode))
|
|
|
|
(use-package marginalia
|
|
:init (marginalia-mode))
|
|
|
|
(use-package modus-themes
|
|
:init
|
|
(require 'modus-themes)
|
|
(load-theme 'modus-operandi :no-confirm)
|
|
(customize-set-variable 'modus-themes-common-palette-overrides
|
|
'((bg-hover bg-active)
|
|
(bg-mode-line-active bg-inactive)
|
|
(bg-mode-line-inactive bg-dim)
|
|
(bg-region bg-completion)
|
|
(border-mode-line-active unspecified)
|
|
(border-mode-line-inactive unspecified))))
|
|
|
|
(use-package orderless
|
|
:custom
|
|
(completion-styles '(orderless basic))
|
|
(completion-category-defaults nil)
|
|
(completion-category-overrides '((file (styles basic partial-completion)))))
|
|
|
|
(use-package org-appear
|
|
:hook (org-mode . org-appear-mode))
|
|
|
|
(use-package org-fragtog
|
|
:hook (org-mode . org-fragtog-mode))
|
|
|
|
(use-package org-pomodoro
|
|
:bind (("C-c C-x C-<tab>" . org-pomodoro))
|
|
:commands (org-pomodoro)
|
|
:config
|
|
(setq alert-user-configuration (quote ((((:category . "org-pomodoro")) libnotify)))
|
|
org-pomodoro-length 45
|
|
org-pomodoro-long-break-length 15
|
|
org-pomodoro-manual-break t
|
|
org-pomodoro-short-break-length 15))
|
|
|
|
(use-package org-roam
|
|
:custom
|
|
(org-roam-directory "~/.emacs.d/org-roam/")
|
|
(org-roam-capture-templates '(("c" "Catatan" plain "%?" :target (file+head "${slug}.org" "#+TITLE: ${title}\n#+DATE: %U\n\n") nil nil)))
|
|
(org-roam-database-connector 'sqlite-builtin)
|
|
:bind (("C-c n f" . org-roam-node-find)
|
|
("C-c n i" . org-roam-node-insert)
|
|
("C-c n l" . org-roam-buffer-toggle))
|
|
:config (setq org-roam-db-gc-threshold most-positive-fixnum)
|
|
:init
|
|
(require 'org-roam-protocol)
|
|
(org-roam-db-autosync-mode 1))
|
|
|
|
(use-package org-roam-ui
|
|
:after org-roam
|
|
:bind (("C-c n g" . org-roam-ui-mode))
|
|
:config (setq org-roam-ui-sync-theme t
|
|
org-roam-ui-follow t
|
|
org-roam-ui-update-on-save t
|
|
org-roam-ui-open-on-start t))
|
|
|
|
(use-package projectile
|
|
:init (projectile-mode))
|
|
|
|
(use-package vertico
|
|
:init (vertico-mode))
|
|
|
|
(use-package which-key
|
|
:init (which-key-mode))
|
|
(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.
|
|
'(package-selected-packages
|
|
'(company-auctex auctex which-key vertico org-roam-ui org-pomodoro org-fragtog org-appear orderless modus-themes marginalia magit ivy hide-mode-line embark-consult emacsql-sqlite-builtin doom-modeline dashboard consult-projectile company-web company-go company-box citar-org-roam citar-embark bind-key all-the-icons-dired)))
|
|
(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.
|
|
)
|