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