Make org-fast-tag-selection work

This commit is contained in:
knit 2024-04-24 10:58:14 +02:00
parent da73edf999
commit 1ed4b2ac5f
8 changed files with 57 additions and 23 deletions

View File

@ -6,7 +6,7 @@
'(column-number-mode t)
'(menu-bar-mode nil)
'(package-selected-packages
'(ac-geiser gemtext-mode god-mode hide-mode-line visual-fill-column magit fireplace sicp geiser-guile geiser-mit browse-kill-ring paredit elfeed company multiple-cursors elpher nyan-mode))
'(pass ac-geiser gemtext-mode god-mode hide-mode-line visual-fill-column magit fireplace sicp geiser-guile geiser-mit browse-kill-ring paredit elfeed company multiple-cursors elpher nyan-mode))
'(ring-bell-function 'ignore)
'(scroll-bar-mode nil)
'(tool-bar-mode nil))

View File

@ -18,11 +18,15 @@
:ensure t
:config (nyan-mode 1))
(use-package hide-mode-line
:ensure t
:hook fireplace-mode)
(use-package fireplace
:ensure t
:bind (("C-c p" . fireplace))
:hook (hide-mode-line-mode . fireplace-mode)
:config (use-package hide-mode-line :ensure t))
:bind (("C-c P" . fireplace)))
(use-package pass
:bind (("C-c p" . pass)))
(use-package elpher
:ensure t
@ -43,6 +47,10 @@
:bind (("M-y" . browse-kill-ring)))
(use-package company
;; i keep accidentally hitting return & auto-completing some
;; stuff so i DONT WANT THAT HAPPENING
;; so ill try remapping it locally idk:
:bind (:map company-mode-map ("RET" . newline))
:ensure t
:hook (rust-ts-mode emacs-lisp-mode ruby-ts-mode prog-mode))

View File

@ -16,6 +16,7 @@
("C-c a" . 'org-agenda)
:map org-mode-map
("C-c C-h" . org-emphasize)
("C-c q" . org-set-tags-command)
("C-<return>" . org-open-at-point)
("C-<tab>" . org-next-link)
("C-<iso-lefttab>" . org-previous-link))
@ -32,19 +33,23 @@
org-startup-folded t
org-return-follows-link t
org-agenda-files '("~/.config/emacs/agenda/")
org-indent-mode-turns-on-hiding-stars nil
org-ellipsis ""
diary-file (ehome "agenda/diary.org")
org-directory (ehome "agenda/")
org-default-notes-file (ehome "agenda/notes.org")
org-todo-keywords '( "TODO(t)" "PROG(p)" "NEXT(n)" "WAIT(w)" "|" "DONE(d)" "HELD(h)")
org-use-fast-tag-selection t
org-use-fast-todo-selection t)
(setq org-tag-alist '(("interesting" . "i") ; Items I go "huh" about.
("computers" . "c") ; Computer / programming related.
("poetry" . "p") ; A poem or verse.
("nothing" . "n") ; Something to delete later.
("smolnet" . "s") ; Gopher / smolweb related.
("large" . "l"))) ; A decent sized project.
org-use-fast-tag-selection 'auto
org-fast-tag-selection-single-key t
org-use-fast-todo-selection t)
(setq org-tag-alist '(("interesting" . ?i) ; Items I go "huh" about.
("computers" . ?c) ; Computer / programming related.
("poetry" . ?p) ; A poem or verse.
("nothing" . ?n) ; Something to delete later.
("smolnet" . ?s) ; Gopher / smolweb related.
("large" . ?l))) ; A decent sized project.
(setq org-capture-templates ; info org "capture templates"
;; Key Name Type Organization File Headline Text
@ -58,6 +63,7 @@
("t" "Todo")
("tl" "Linked" entry (file+headline "notes.org" "Tasks") "* TODO %?\n [[%c][%^{DESC}]]")
("tt" "Standard" entry (file+headline "notes.org" "Tasks") "* TODO %?")
("s" "Scratch" plain (file "scratch.org") "\n---------\n%?")
("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]]"))))
@ -67,6 +73,7 @@
;; Defining my todo labels
(use-package org-agenda
:bind (:map org-agenda-mode-map ("C-c q" . org-agenda-set-tags))
:config
(setq org-agenda-custom-commands
'(("a" "My agenda"

View File

@ -1,17 +1,37 @@
;; See docs/mail.org for notes on setup.
;; if i have mpop and smtp like a normal person
(setq
send-mail-function 'smtpmail-send-it
mail-personal-alias-file (ehome "mail/alias")
mail-default-headers (concat "FCC: " my-sent-mail))
message-send-mail-function 'message-send-mail-with-sendmail
sendmail-program "/home/lin/.nix-profile/bin/msmtp")
(setq
;; send-mail-function 'smtpmail-send-it
mail-personal-alias-file "~/.local/share/mail/alias"
mail-default-headers (concat "FCC: " my-sent-mail))
(defun rmail-my-mra ()
(interactive)
(shell-command "echo 'Checking mail...'")
(shell-command "mpop --half-quiet")
(rmail-summary))
;; Full mail imap:// URL is in ~/.mu-tickets
;; with the format ;;PROTO://[USER:PASS@HOST:PORT
(use-package rmail-summary
:bind (:map rmail-summary-mode-map
("g" . rmail-my-mra)
("C-o" . other-window)))
(use-package rmail
:bind (("C-c m" . rmail)
:map rmail-mode-map
("C-o" . other-window))
("g" . rmail-my-mra)
("C-o" . other-window)
; :map rmail-summary-mode-map
; ("g" . rmail-my-mra)
; ("C-o" . other-window)
)
:config
(setq
rmail-primary-inbox-list my-inboxes

View File

@ -7,6 +7,7 @@ Magit is the git interface in Emacs.
- p/n - up / down line
- TAB - toggle sections
- s/u - stage / undo stage
- K - untrack file.
- c c - commit
- C-c C-c - Send commit message & create
- d - diff

View File

@ -2,7 +2,6 @@ Notes on orgmode / keys i keep forgetting etc
** General notes
- links can point to headings or files.
- TODO cycles on headings
-
** Agenda / Capture
@ -57,15 +56,14 @@ The agenda is a system that lets me filter my org files by *tags*, *headlines*,
- C-c O - go to last capture
- C-c a - Open the agenda
* Keys
C-RET - Inseart heading (contextual)
M-RET - Add item to list
C-c 'y - Edit source block
M-S-RET - Insert TODO heading
C-c C-l - Insert link
C-c C-t - org-todo
C-c * - Transform list to heading.
C-c , - org-priority
C-c . - timestamp
C-c C-, - insert content block

View File

@ -6,10 +6,10 @@
(defvar my-config-dir (ehome "config"))
(defvar my-custom-el (ehome "config/custom.el"))
(defvar my-mbox (ehome "mail/inbox"))
(defvar my-mbox-folder (ehome "mail"))
(defvar my-sent-mail (ehome "mail/sent"))
(defvar my-backups (ehome ".backups"))
(defvar my-mbox "~/.local/share/mail/inbox")
(defvar my-mbox-folder "~/.local/share/mail")
(defvar my-sent-mail "~/.local/share/mail/sent")
;;; GENERAL SETUP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'package)

View File

@ -7,7 +7,7 @@
# git init
# git add init.el config/ readme.org push.esh
# git commit -m "initial cum it"
# git remote add origin https://tildegit.org/knit/init.el.git
# git remote add origin https://tildegit.org/knit/init-el.git
# git push -u origin main
#
# git config user.name "linty pocket"