252 lines
8.9 KiB
Plaintext
252 lines
8.9 KiB
Plaintext
;; Added by Package.el. This must come before configurations of
|
||
;; installed packages. Don't delete this line. If you don't want it,
|
||
;; just comment it out by adding a semicolon to the start of the line.
|
||
;; You may delete these explanatory comments.
|
||
(require 'package)
|
||
(add-to-list 'package-archives
|
||
'("melpa" . "http://melpa.org/packages/") t)
|
||
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t)
|
||
(package-initialize)
|
||
|
||
|
||
|
||
(global-set-key (kbd "<f3>") (lambda () (interactive) (find-file (concat "~/ungleich-learning-circle/kjg/learning-"(system-name)"-"(format-time-string "%Y")".org"))))
|
||
(global-set-key (kbd "C-x g") 'magit-status)
|
||
(global-set-key (kbd "C-c a") 'org-agenda)
|
||
(global-set-key (kbd "<f8>") 'org-todo-list)
|
||
|
||
(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.
|
||
'(epg-gpg-program "/usr/local/bin/gpg")
|
||
'(org-agenda-files
|
||
(quote
|
||
("~/ungleich-learning-circle/kjg/todo.org" "~/learning.org")))
|
||
;;'(org-directory (expand-file-name "~/ungleich-learning-circle/kjg/"))
|
||
'(package-selected-packages (quote (org org-gnome org-dp ## which-key magit)))
|
||
'(send-mail-function (quote sendmail-send-it)))
|
||
(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.
|
||
)
|
||
|
||
(require 'epa-file)
|
||
|
||
(epa-file-enable)
|
||
|
||
(setq mu4e-mu-binary "/usr/local/bin/mu")
|
||
|
||
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu/mu4e")
|
||
(require 'mu4e)
|
||
|
||
(setq
|
||
mue4e-headers-skip-duplicates t
|
||
mu4e-view-show-images t
|
||
mu4e-view-show-addresses t
|
||
mu4e-compose-format-flowed nil
|
||
mu4e-date-format "%y/%m/%d"
|
||
mu4e-headers-date-format "%Y/%m/%d"
|
||
mu4e-change-filenames-when-moving t
|
||
mu4e-attachments-dir "~/Downloads"
|
||
|
||
mu4e-maildir "~/Maildir/ungleich" ;; top-level Maildir
|
||
;; note that these folders below must start with /
|
||
;; the paths are relative to maildir root
|
||
mu4e-refile-folder "/Archive"
|
||
mu4e-sent-folder "/Sent"
|
||
mu4e-drafts-folder "/Drafts"
|
||
mu4e-trash-folder "/Trash"
|
||
mu4e-reply-to-address "jinguk.kwon@ungleich.ch"
|
||
user-mail-address "jinguk.kwon@ungleich.ch"
|
||
user-full-name "kjg")
|
||
|
||
;; this setting allows to re-sync and re-index mail
|
||
;; by pressing U
|
||
(setq mu4e-get-mail-command "mbsync -a")
|
||
|
||
(setq mail-host-address "mail.ungleich.ch")
|
||
|
||
|
||
(setq send-mail-function 'smtpmail-send-it
|
||
message-send-mail-function 'smtpmail-send-it
|
||
user-mail-address "jinguk.kwon@ungleich.ch"
|
||
smtpmail-starttls-credentials '(("smtp.ungleich.ch" 587 nil nil))
|
||
smtpmail-auth-credentials "~/.authinfo.gpg"
|
||
smtpmail-default-smtp-server "smtp.ungleich.ch"
|
||
smtpmail-smtp-server "smtp.ungleich.ch"
|
||
smtpmail-smtp-service 587
|
||
smtpmail-smtp-user "jinguk.kwon@ungleich.ch"
|
||
smtpmail-debug-info t
|
||
smtpmail-debug-verb t)
|
||
;;starttls-extra-arguments nil
|
||
;;starttls-gnutls-program (executable-find "gnutls-cli")
|
||
;;smtpmail-warn-about-unknown-extensions t
|
||
;;starttls-use-gnutls t)
|
||
|
||
(require 'smtpmail)
|
||
|
||
;;store org-mode links to messages
|
||
(require 'org-mu4e)
|
||
|
||
(define-key mu4e-headers-mode-map (kbd "C-c c") 'mu4e-org-store-and-capture)
|
||
(define-key mu4e-view-mode-map (kbd "C-c c") 'mu4e-org-store-and-capture)
|
||
|
||
(setq org-directory (expand-file-name "~/ungleich-learning-circle/kjg/"))
|
||
;;store link to message if in header view, not to header query
|
||
(setq org-mu4e-link-query-in-headers-mode nil)
|
||
|
||
(setq org-capture-templates
|
||
'(("t" "todo" entry (file+headline (lambda() (concat "~/ungleich-learning-circle/kjg/todo-"(system-name)"-"(format-time-string "%Y")".org")) "Tasks")
|
||
"* TODO [#A] %?\nSCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+0d\"))\n%a\n")))
|
||
|
||
(setq org-log-done 'time)
|
||
|
||
~
|
||
❯ cd ungleich-learning-circle
|
||
|
||
~/ungleich-learning-circle master*
|
||
❯ cd kjg/dot-cdist
|
||
|
||
~/ungleich-learning-circle/kjg/dot-cdist master*
|
||
❯ ls -al
|
||
total 0
|
||
drwxr-xr-x 4 elf staff 128 May 6 21:26 .
|
||
drwxr-xr-x 8 elf staff 256 May 6 22:03 ..
|
||
drwxr-xr-x 3 elf staff 96 May 6 21:33 manifest
|
||
drwxr-xr-x 3 elf staff 96 May 6 21:26 type
|
||
|
||
~/ungleich-learning-circle/kjg/dot-cdist master*
|
||
❯ cd type
|
||
|
||
~/ungleich-learning-circle/kjg/dot-cdist/type master*
|
||
❯ ls -al
|
||
total 0
|
||
drwxr-xr-x 3 elf staff 96 May 6 21:26 .
|
||
drwxr-xr-x 4 elf staff 128 May 6 21:26 ..
|
||
drwxr-xr-x 4 elf staff 128 May 6 22:06 __my_computer
|
||
|
||
~/ungleich-learning-circle/kjg/dot-cdist/type master*
|
||
❯ cd __my_computer
|
||
|
||
~/ungleich-learning-circle/kjg/dot-cdist/type/__my_computer master*
|
||
❯ ls -al
|
||
total 8
|
||
drwxr-xr-x 4 elf staff 128 May 6 22:06 .
|
||
drwxr-xr-x 3 elf staff 96 May 6 21:26 ..
|
||
drwxr-xr-x 2 elf staff 64 May 6 22:06 files
|
||
-rw-r--r-- 1 elf staff 110 May 6 21:40 manifest
|
||
|
||
~/ungleich-learning-circle/kjg/dot-cdist/type/__my_computer master*
|
||
❯ cat ~/.emacs
|
||
|
||
;; Added by Package.el. This must come before configurations of
|
||
;; installed packages. Don't delete this line. If you don't want it,
|
||
;; just comment it out by adding a semicolon to the start of the line.
|
||
;; You may delete these explanatory comments.
|
||
(require 'package)
|
||
(add-to-list 'package-archives
|
||
'("melpa" . "http://melpa.org/packages/") t)
|
||
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t)
|
||
(package-initialize)
|
||
|
||
|
||
|
||
(global-set-key (kbd "<f3>") (lambda () (interactive) (find-file (concat "~/ungleich-learning-circle/kjg/learning-"(system-name)"-"(format-time-string "%Y")".org"))))
|
||
(global-set-key (kbd "C-x g") 'magit-status)
|
||
(global-set-key (kbd "C-c a") 'org-agenda)
|
||
(global-set-key (kbd "<f8>") 'org-todo-list)
|
||
|
||
(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.
|
||
'(epg-gpg-program "/usr/local/bin/gpg")
|
||
'(org-agenda-files
|
||
(quote
|
||
("~/ungleich-learning-circle/kjg/todo.org" "~/learning.org")))
|
||
;;'(org-directory (expand-file-name "~/ungleich-learning-circle/kjg/"))
|
||
'(package-selected-packages (quote (org org-gnome org-dp ## which-key magit)))
|
||
'(send-mail-function (quote sendmail-send-it)))
|
||
(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.
|
||
)
|
||
|
||
(require 'epa-file)
|
||
|
||
(epa-file-enable)
|
||
|
||
(setq mu4e-mu-binary "/usr/local/bin/mu")
|
||
|
||
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu/mu4e")
|
||
(require 'mu4e)
|
||
|
||
(setq
|
||
mue4e-headers-skip-duplicates t
|
||
mu4e-view-show-images t
|
||
mu4e-view-show-addresses t
|
||
mu4e-compose-format-flowed nil
|
||
mu4e-date-format "%y/%m/%d"
|
||
mu4e-headers-date-format "%Y/%m/%d"
|
||
mu4e-change-filenames-when-moving t
|
||
mu4e-attachments-dir "~/Downloads"
|
||
|
||
mu4e-maildir "~/Maildir/ungleich" ;; top-level Maildir
|
||
;; note that these folders below must start with /
|
||
;; the paths are relative to maildir root
|
||
mu4e-refile-folder "/Archive"
|
||
mu4e-sent-folder "/Sent"
|
||
mu4e-drafts-folder "/Drafts"
|
||
mu4e-trash-folder "/Trash"
|
||
mu4e-reply-to-address "jinguk.kwon@ungleich.ch"
|
||
user-mail-address "jinguk.kwon@ungleich.ch"
|
||
user-full-name "kjg")
|
||
|
||
;; this setting allows to re-sync and re-index mail
|
||
;; by pressing U
|
||
(setq mu4e-get-mail-command "mbsync -a")
|
||
|
||
(setq mail-host-address "mail.ungleich.ch")
|
||
|
||
|
||
(setq send-mail-function 'smtpmail-send-it
|
||
message-send-mail-function 'smtpmail-send-it
|
||
user-mail-address "jinguk.kwon@ungleich.ch"
|
||
smtpmail-starttls-credentials '(("smtp.ungleich.ch" 587 nil nil))
|
||
smtpmail-auth-credentials "~/.authinfo.gpg"
|
||
smtpmail-default-smtp-server "smtp.ungleich.ch"
|
||
smtpmail-smtp-server "smtp.ungleich.ch"
|
||
smtpmail-smtp-service 587
|
||
smtpmail-smtp-user "jinguk.kwon@ungleich.ch"
|
||
smtpmail-debug-info t
|
||
smtpmail-debug-verb t)
|
||
;;starttls-extra-arguments nil
|
||
;;starttls-gnutls-program (executable-find "gnutls-cli")
|
||
;;smtpmail-warn-about-unknown-extensions t
|
||
;;starttls-use-gnutls t)
|
||
|
||
(require 'smtpmail)
|
||
|
||
;;store org-mode links to messages
|
||
(require 'org-mu4e)
|
||
|
||
(define-key mu4e-headers-mode-map (kbd "C-c c") 'mu4e-org-store-and-capture)
|
||
(define-key mu4e-view-mode-map (kbd "C-c c") 'mu4e-org-store-and-capture)
|
||
|
||
(setq org-directory (expand-file-name "~/ungleich-learning-circle/kjg/"))
|
||
;;store link to message if in header view, not to header query
|
||
(setq org-mu4e-link-query-in-headers-mode nil)
|
||
|
||
(setq org-capture-templates
|
||
'(("t" "todo" entry (file+headline (lambda() (concat "~/ungleich-learning-circle/kjg/todo-"(system-name)"-"(format-time-string "%Y")".org")) "Tasks")
|
||
"* TODO [#A] %?\nSCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+0d\"))\n%a\n")))
|
||
|
||
(setq org-log-done 'time)
|