diff --git a/config/bookmark-conf.el b/config/bookmark-conf.el index 371a7e1..2269470 100644 --- a/config/bookmark-conf.el +++ b/config/bookmark-conf.el @@ -23,13 +23,9 @@ (defvar bmark-list '(("o" . "online") ("l" . "local") ("r" . "random") - ("h" . "homepages") ("e" . "emacs") - ("d" . "default") ("c" . "computers") - ("b" . "bangers") - ("a" . "articles"))) - + ("b" . "bookmarks"))) ;; i'll need this function to print out all keys of ;; bmark-quick-list. @@ -68,8 +64,10 @@ (defun bmark-init (file) "Set the active bookmark file to FILE and load it (overwriting the original)" (interactive) + (setq bookmark-default-file file) - (bookmark-load file t t t)) + (if (file-exists-p file) + (bookmark-load file t t t))) ;; TODO: popup displaying the available keys (defun bmark-add (key) @@ -80,7 +78,6 @@ (bookmark-set) (bmark-save))) - (defun bmark-open (key) "Open a bookmark file based on single-char inputs" (interactive (list (char-prompt))) diff --git a/config/custom.el b/config/custom.el index 6be4b8e..a0e5294 100644 --- a/config/custom.el +++ b/config/custom.el @@ -4,7 +4,6 @@ ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(column-number-mode t) - '(custom-enabled-themes '(brutalist)) '(custom-safe-themes t) '(menu-bar-mode nil) '(package-selected-packages diff --git a/config/ibuffer-conf.el b/config/ibuffer-conf.el index 3431017..4a8fb22 100644 --- a/config/ibuffer-conf.el +++ b/config/ibuffer-conf.el @@ -9,7 +9,10 @@ ;; M-RET -- Toggle collapse all ;; M-n -- Next group ;; M-p -- Prev group - +;; +;; TODO +;; - Prettify "~/.config/emacs" to a symbol. +;; - Hide filter groups except when in a certain set. ;;; Collapses / De-collapse all entries. (defun ibuffer-toggle-all () @@ -23,28 +26,34 @@ ;; Main package declaration (use-package ibuffer :bind (("C-c i" . ibuffer) - :map ibuffer-mode-map + :map ibuffer-mode-map ("M-" . ibuffer-toggle-all)) :config (setq ibuffer-expert t ibuffer-show-empty-filter-groups nil - ibuffer-saved-filter-groups - '(("Home" - ("Net" (or (mode . eww-mode) - (mode . rcirc-mode) - (mode . elpher-mode))) - ("Dired" (mode . dired-mode)) - ("Music" (name . "*MPC")) - ("Stars" (name . "[*]")) + ibuffer-old-time 12) + + (setq ibuffer-saved-filter-groups + '(("home" + ("Net" (or (mode . eww-mode) + (mode . rcirc-mode) + (mode . elpher-mode))) + ("Dired" (mode . dired-mode)) + ("emacs" (filename . "config/emacs*")) + ("prog" (filename . "/lin/prog*")) + ("proc" (process . "*")) + ("Music" (name . "*MPC")) + ("Stars" (name . "[*]")) ("Gnus" (or (derived-mode gnus-mode))) ("Mail" (or (derived-mode rmail-mode) - (mode . message-mode))) -)))) + (mode . message-mode)))))) + + :hook (ibuffer-mode . (lambda () + (ibuffer-auto-mode 1) + (ibuffer-switch-to-saved-filter-groups "home") + (setq ibuffer-never-show-predicates '("*messages*\\|*async-native\\|*Completion")) + (setq ibuffer-hidden-filter-groups '("Stars"))))) - (add-hook 'ibuffer-mode-hook - (lambda () - (ibuffer-auto-mode 1) - (ibuffer-switch-to-saved-filter-groups "Home"))) (provide 'ibuffer-conf) diff --git a/config/langs-conf.el b/config/langs-conf.el index a895ac3..78b72a3 100644 --- a/config/langs-conf.el +++ b/config/langs-conf.el @@ -54,34 +54,33 @@ ;;; PRETTIFY SYMBOLS MODE ;; i don't know how to elegantly do this lbkmkwkbjbmjxx -(add-hook 'prog-mode-hook - (lambda () - (setq prettify-symbols-alist - (append prettify-symbols-alist - '(("lambda" . ?λ) - ("->" . ?→) - ("map" . ?↦) - ("/=" . ?≠) - ("!=" . ?≠) - ("==" . ?≡) - ("<=" . ?≤) - (">=" . ?≥) - ("&&" . ?∧) - ("||" . ?∨) - ("sqrt" . ?√) - ("..." . ?…)))) - (prettify-symbols-mode 1))) +;;(add-hook 'prog-mode-hook (lambda () +;; (setq prettify-symbols-alist +;; (append prettify-symbols-alist +;; '(("lambda" . ?λ) +;; ("->" . ?→) +;; ("map" . ?↦) +;; ("/=" . ?≠) +;; ("!=" . ?≠) +;; ("==" . ?≡) +;; ("<=" . ?≤) +;; (">=" . ?≥) +;; ("&&" . ?∧) +;; ("||" . ?∨) +;; ("sqrt" . ?√) +;; ("..." . ?…)))) +;; (prettify-symbols-mode 1))) -(add-hook 'scheme-mode-hook - (lambda () - (setq prettify-symbols-alist - (append prettify-symbols-alist - '(("and" . ?∧) - ("or" . ?∨) - ("nil" . ?∅) - ("null" . ?∅) - ("'()" . ?∅) - ("not" . ?¬)))) - (prettify-symbols-mode 1))) +;;(add-hook 'scheme-mode-hook +;; (lambda () +;; (setq prettify-symbols-alist +;; (append prettify-symbols-alist +;; '(("and" . ?∧) +;; ("or" . ?∨) +;; ("nil" . ?∅) +;; ("null" . ?∅) +;; ("'()" . ?∅) +;; ("not" . ?¬)))) +;; (prettify-symbols-mode 1))) (provide 'langs-conf) diff --git a/config/org-conf.el b/config/org-conf.el index a74beb5..1fb5d16 100644 --- a/config/org-conf.el +++ b/config/org-conf.el @@ -16,6 +16,8 @@ ("C-c a" . 'org-agenda) :map org-mode-map ("C-c C-h" . org-emphasize) + ("" . org-insert-heading-respect-content) + ("" . org-insert-subheading) ("C-c q" . org-set-tags-command) ("C-" . org-open-at-point) ("C-" . org-next-link) @@ -54,15 +56,11 @@ (setq org-capture-templates ; info org "capture templates" ;; Key Name Type Organization File Headline Text - '(("j" "Journal" entry (file+olp+datetree "journ.org") "") - ("p" "Poetry" entry (file+olp+datetree "journ.org") "* %? :poem:\n %i ") + '(("j" "Journal" entry (file+olp+datetree "journ.org") "") + ("p" "Poetry" entry (file+olp+datetree "journ.org") "* %? :poem:\n %i ") ("l" "Link") - ("lo" "Online" entry (file+headline "bookm.org" "Online") "* %A%?") - ("lh" "Homes" entry (file+headline "bookm.org" "Homes") "* %A%?") + ("lo" "Online" plain (file "bookm.org") "%A" :unnarrowed t) ("ll" "local" entry (file+headline "bookm.org" "Online") "* %A%?") - ("ln" "Nothin" entry (file+headline "bookm.org" "Nothin") "* %A%?") -;; :jump-to-captured -;;; ("c" "Clocked" entry (clock) "* %?" :unnarrowed ) ("c" "Clocked" entry (clock) "* %?" :unnarrowed t) ("t" "Todo") ("tl" "Linked" entry (file+headline "notes.org" "Tasks") "* TODO %?\n [[%c][%^{DESC}]]") @@ -71,16 +69,17 @@ ("n" "Note") ("nn" "Note" entry (file+headline "notes.org" "Notes") "* %?\n%i") ("nl" "Linked" entry (file+headline "notes.org" "Notes") "* %?\n%i\n [[%L][%f]]")))) +;; :jump-to-captured (use-package org-capture - :bind (("C-c O" . 'org-capture-goto-last-stored))) + :bind (("C-c O" . 'org-capture-goto-target))) ;; Defining my todo labels (use-package org-agenda :bind (:map org-agenda-mode-map ("C-c q" . org-agenda-set-tags) - ("n" . org-agenda-next-item) - ("p" . org-agenda-previous-item)) + ("n" . org-agenda-next-item) + ("p" . org-agenda-previous-item)) :config (setq org-agenda-custom-commands '(("a" "My agenda" diff --git a/config/rmail-conf.el b/config/rmail-conf.el index cc86d3b..5b2fee2 100644 --- a/config/rmail-conf.el +++ b/config/rmail-conf.el @@ -27,11 +27,7 @@ :bind (("C-c m" . rmail) :map rmail-mode-map ("g" . rmail-my-mra) - ("C-o" . other-window) - ; :map rmail-summary-mode-map - ; ("g" . rmail-my-mra) - ; ("C-o" . other-window) - ) + ("C-o" . other-window)) :config (setq rmail-primary-inbox-list my-inboxes diff --git a/docs/org.org b/docs/org.org index 786b8c2..1dc1a14 100644 --- a/docs/org.org +++ b/docs/org.org @@ -75,6 +75,9 @@ C-c , - org-priority C-c . - timestamp C-c C-, - insert content block C-c " g - plot using Gnuplot +C-c C-x 0 - Start a timer +C-c C-x _ - stop timer + *** tables - C-c ~ - New table - C-c ' - Edit table diff --git a/init.el b/init.el index d5fd3cc..ad6e87a 100644 --- a/init.el +++ b/init.el @@ -21,7 +21,6 @@ ;;; VARIABLES ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq use-package-always-defer t ; Possibly? - use-short-answers t inhibit-startup-screen t epa-armor t @@ -90,10 +89,8 @@ a - agenda o - capture\n") ("C-" . 'windmove-right)) :config (load-theme 'modus-vivendi) -;; (load-theme 'brutalist) (set-face-underline 'mode-line nil)) - ;; (cd "~/") ; on Windows i guess? (load custom-file)