Commit 602125be1aca
Changed files (4)
tools
gnus
tools/emacs/org-clock-save.el
@@ -1,1 +0,0 @@
-;; org-clock-save.el - naruhodo at <2020-07-09 Thu 09:04>
tools/emacs/projects
@@ -1,4 +0,0 @@
-;;; -*- lisp-data -*-
-(("~/src/osp/lord/")
- ("~/src/tektoncd/pipeline/")
- ("~/src/home/"))
tools/emacs/small-init.el
@@ -1,130 +0,0 @@
-(defconst emacs-start-time (current-time))
-
-(let ((minver 26))
- (unless (>= emacs-major-version minver)
- (error "Your Emacs is too old -- this configuration requires v%s or higher" minver)))
-
-;; load early-init.el before Emacs 27.0
-(unless (>= emacs-major-version 27)
- (message "Early init: Emacs Version < 27.0")
- (load (expand-file-name "early-init.el" user-emacs-directory)))
-
-(setq inhibit-default-init t) ; Disable the site default settings
-
-(setq inhibit-startup-message t
- inhibit-startup-screen t)
-
-(setq confirm-kill-emacs #'y-or-n-p)
-(setq initial-major-mode 'fundamental-mode
- initial-scratch-message nil)
-
-(prefer-coding-system 'utf-8)
-(set-default-coding-systems 'utf-8)
-(set-language-environment 'utf-8)
-(set-selection-coding-system 'utf-8)
-(set-terminal-coding-system 'utf-8)
-
-(require 'package)
-
-(setq package-archives
- '(("melpa" . "http://melpa.org/packages/")
- ("org" . "https://orgmode.org/elpa/")
- ("gnu" . "https://elpa.gnu.org/packages/")))
-
-(setq package-archive-priorities
- '(("melpa" . 3)
- ("org" . 2)
- ("gnu" . 1)))
-
-(require 'tls)
-
-;; From https://github.com/hlissner/doom-emacs/blob/5dacbb7cb1c6ac246a9ccd15e6c4290def67757c/core/core-packages.el#L102
-(setq gnutls-verify-error (not (getenv "INSECURE")) ; you shouldn't use this
- tls-checktrust gnutls-verify-error
- tls-program (list "gnutls-cli --x509cafile %t -p %p %h"
- ;; compatibility fallbacks
- "gnutls-cli -p %p %h"
- "openssl s_client -connect %h:%p -no_ssl2 -no_ssl3 -ign_eof"))
-
-;; Initialise the packages, avoiding a re-initialisation.
-(unless (bound-and-true-p package--initialized)
- (setq package-enable-at-startup nil)
- (package-initialize))
-
-(setq load-prefer-newer t) ; Always load newer compiled files
-(setq ad-redefinition-action 'accept) ; Silence advice redefinition warnings
-
-;; Init `delight'
-(unless (package-installed-p 'delight)
- (package-refresh-contents)
- (package-install 'delight))
-
-;; Configure `use-package' prior to loading it.
-(eval-and-compile
- (setq use-package-always-ensure nil)
- (setq use-package-always-defer nil)
- (setq use-package-always-demand nil)
- (setq use-package-expand-minimally nil)
- (setq use-package-enable-imenu-support t))
-
-(unless (package-installed-p 'use-package)
- (package-refresh-contents)
- (package-install 'use-package))
-
-(eval-when-compile
- (require 'use-package))
-
-(defconst vde/custom-file (locate-user-emacs-file "custom.el")
- "File used to store settings from Customization UI.")
-
-(use-package cus-edit
- :config
- (setq
- custom-file vde/custom-file
- custom-buffer-done-kill nil ; Kill when existing
- custom-buffer-verbose-help nil ; Remove redundant help text
- custom-unlispify-tag-names nil ; Show me the real variable name
- custom-unlispify-menu-entries nil)
- (unless (file-exists-p custom-file)
- (write-region "" nil custom-file))
-
- (load vde/custom-file 'no-error 'no-message))
-
-;; Remove built-in org-mode
-(require 'cl-seq)
-(setq load-path
- (cl-remove-if
- (lambda (x)
- (string-match-p "org$" x))
- load-path))
-
-(defun vde/el-load-dir (dir)
- "Load el files from the given folder `DIR'."
- (let ((files (directory-files dir nil "\.el$")))
- (while files
- (load-file (concat dir (pop files))))))
-
-(defun vde/short-hostname ()
- "Return hostname in short (aka wakasu.local -> wakasu)."
- (string-match "[0-9A-Za-z-]+" system-name)
- (substring system-name (match-beginning 0) (match-end 0)))
-
-(add-to-list 'load-path (concat user-emacs-directory "lisp/"))
-(add-to-list 'load-path (concat user-emacs-directory "lisp/vorg"))
-(require 'init-func)
-;; (vde/el-load-dir (concat user-emacs-directory "/config/"))
-;;
-;; (if (file-exists-p (downcase (concat user-emacs-directory "/hosts/" (vde/short-hostname) ".el")))
-;; (load-file (downcase (concat user-emacs-directory "/hosts/" (vde/short-hostname) ".el"))))
-
-(let ((elapsed (float-time (time-subtract (current-time)
- emacs-start-time))))
- (message "Loading %s...done (%.3fs)" load-file-name elapsed))
-
-(add-hook 'after-init-hook
- `(lambda ()
- (let ((elapsed
- (float-time
- (time-subtract (current-time) emacs-start-time))))
- (message "Loading %s...done (%.3fs) [after-init]"
- ,load-file-name elapsed))) t)
tools/gnus/init.el
@@ -1,226 +0,0 @@
-
-;; GnusCfg
-(use-package gnus
- :config
- (setq nnml-directory "~/desktop/gnus/mail")
- (setq nnfolder-directory "~/desktop/gnus/archive")
- (setq nndraft-directory "~/desktop/gnus/drafts")
- (setq nnmh-directory "~/desktop/gnus/drafts")
- (setq gnus-article-save-directory "~/desktop/gnus/news")
- (setq gnus-home-directory "~/desktop/gnus")
- (setq gnus-kill-files-directory "~/desktop/gnus/news")
- (setq gnus-cache-directory "~/desktop/gnus/news/cache")
- (setq gnus-startup-file "~/desktop/gnus/newsrc")
- (setq mail-source-directory "~/desktop/gnus/mail")
- (setq gnus-registry-cache-file "~/desktop/gnus/gnus.registry.eld")
- (setq gnus-select-method '(nnnil))
- (setq nntp-authinfo-file "~/.authinfo.gpg")
- (setq gnus-use-bbdb t)
- (setq gnus-secondary-select-methods
- '((nntp "news.gwene.org")
- (nnimap "prv"
- (nnimap-address "mail.gandi.net")
- (nnimap-stream ssl)
- (nnimap-authinfo-file "~/.authinfo.gpg"))
- (nnimap "redhat"
- (nnimap-address "imap.gmail.com")
- (nnimap-stream ssl)
- (nnimap-authinfo-file "~/.authinfo.gpg"))
- (nnimap "vde"
- (nnimap-address "imap.gmail.com")
- (nnimap-stream ssl)
- (nnimap-authinfo-file "~/.authinfo.gpg"))
- ))
- (setq gnus-parameters
- '(("prv"
- (posting-style
- (address "vincent@demeester.fr")
- (signature-file "~/desktop/documents/.prv.signature")
- (gcc "nnimap+prv:Sent")))
- ("redhat"
- (posting-style
- (address "vdemeest@redhat.com")
- (signature-file "~/desktop/documents/.redhat.signature")))
- ("nnimap+redhat:INBOX"
- (display . all))
- ("vde"
- (posting-style
- (address "vinc.demeester.fr")
- (signature-file "~/desktop/documents/.vde.signature")))
- ("nnimap+vde:INBOX"
- (display . all))))
- (setq gnus-agent t)
- (setq mail-user-agent 'gnus-user-agent) ; also works with `sendmail-user-agent'
- (setq gnus-check-new-newsgroups 'ask-server)
- (setq gnus-read-active-file 'some)
- (setq gnus-use-dribble-file t)
- (setq gnus-always-read-dribble-file t)
- (setq gnus-novice-user nil)
- (setq gnus-extra-headers
- '(To Newsgroups X-GM-LABELS)))
-;; -GnusCfg
-
-;; GnusMmlSec
-(use-package mml-sec
- :config
- (setq mml-secure-openpgp-signers
- '("8C4E8DDA04C18C6B503BD2DBB7E7CF1C634256FA")))
-;; -GnusMmlSec
-
-;; GnusAgent
-(use-package gnus-agent
- :after gnus
- :config
- (setq gnus-agent-article-alist-save-format 1) ; uncompressed
- (setq gnus-agent-cache t)
- (setq gnus-agent-confirmation-function 'y-or-n-p)
- (setq gnus-agent-consider-all-articles nil)
- (setq gnus-agent-directory "~/desktop/gnus/agent/")
- (setq gnus-agent-enable-expiration 'ENABLE)
- (setq gnus-agent-expire-all nil)
- (setq gnus-agent-expire-days 30)
- (setq gnus-agent-mark-unread-after-downloaded t)
- (setq gnus-agent-queue-mail t) ; queue if unplugged
- (setq gnus-agent-synchronize-flags nil))
-;; -GnusAgent
-
-;; GnusAsync
-(use-package gnus-async
- :after gnus
- :config
- (setq gnus-asynchronous t)
- (setq gnus-use-article-prefetch 30))
-;; -GnusAsync
-
-;; GnusGroup
-(use-package gnus-group
- :after gnus
- :config
- (setq gnus-level-subscribed 6)
- (setq gnus-level-unsubscribed 7)
- (setq gnus-level-zombie 8)
- (setq gnus-group-sort-function
- '((gnus-group-sort-by-unread)
- (gnus-group-sort-by-alphabet)
- (gnus-group-sort-by-rank)))
- (setq gnus-group-mode-line-format "Gnus: %%b")
- :hook
- (gnus-select-group-hook . gnus-group-set-timestamp)
- :bind (:map gnus-agent-group-mode-map
- ("M-n" . gnus-topic-goto-next-topic)
- ("M-p" . gnus-topic-goto-previous-topic)))
-;; -GnusGroup
-
-;; GnusTopic
-(use-package gnus-topic
- :after (gnus gnus-group)
- :config
- (setq gnus-topic-display-empty-topics t)
- :hook
- (gnus-group-mode . gnus-topic-mode))
-;; -GnusTopic
-
-;; GnusSummary
-(use-package gnus-sum
- :after (gnus gnus-group)
- :demand
- :config
- (setq gnus-auto-select-first nil)
- (setq gnus-summary-ignore-duplicates t)
- (setq gnus-suppress-duplicates t)
- (setq gnus-summary-goto-unread nil)
- (setq gnus-summary-make-false-root 'adopt)
- (setq gnus-summary-thread-gathering-function 'gnus-gather-threads-by-subject)
- (setq gnus-thread-sort-functions
- '((not gnus-thread-sort-by-number)
- (not gnus-thread-sort-by-date)))
- (setq gnus-subthread-sort-functions
- 'gnus-thread-sort-by-date)
- (setq gnus-thread-hide-subtree nil)
- (setq gnus-thread-ignore-subject t)
- (setq gnus-user-date-format-alist
- '(((gnus-seconds-today) . "Today at %R")
- ((+ 86400 (gnus-seconds-today)) . "Yesterday, %R")
- (t . "%Y-%m-%d %R")))
- (setq gnus-summary-line-format "%U%R%z %-16,16&user-date; %4L:%-30,30f %B%S\n")
- (setq gnus-summary-mode-line-format "Gnus: %p (%U)")
- (setq gnus-sum-thread-tree-false-root "─┬➤")
- (setq gnus-sum-thread-tree-indent " ")
- (setq gnus-sum-thread-tree-single-indent "")
- (setq gnus-sum-thread-tree-leaf-with-other "├─➤")
- (setq gnus-sum-thread-tree-root "· ")
- (setq gnus-sum-thread-tree-single-leaf "└─➤")
-
- (setq gnus-sum-thread-tree-vertical "│")
- :hook
- (gnus-summary-exit-hook . gnus-topic-sort-groups-by-alphabet)
- (gnus-summary-exit-hook . gnus-group-sort-groups-by-rank)
- :bind (:map gnus-agent-summary-mode-map
- ("<delete>" . gnus-summary-delete-article)
- ("n" . gnus-summary-next-article)
- ("p" . gnus-summary-prev-article)
- ("N" . gnus-summary-next-unread-article)
- ("P" . gnus-summary-prev-unread-article)
- ("M-n" . gnus-summary-next-thread)
- ("M-p" . gnus-summary-prev-thread)
- ("C-M-n" . gnus-summary-next-group)
- ("C-M-p" . gnus-summary-prev-group)
- ("C-M-^" . gnus-summary-refer-thread)))
-;; -GnusSummary
-
-;; GnusWin
-;; (use-package gnus-win
-;; :config
-;; (gnus-add-configuration
-;; '(article
-;; (horizontal 1.0
-;; (vertical 40 (group 1.0))
-;; (vertical 1.0
-;; (summary 0.16 point)
-;; (article 1.0)))))
-;;
-;; (gnus-add-configuration
-;; '(summary
-;; (horizontal 1.0
-;; (vertical 40 (group 1.0))
-;; (vertical 1.0 (summary 1.0 point))))))
-;; -GnusWin
-
-;; GnusDired
-(use-package gnus-dired
- :after (gnus dired)
- :hook (dired-mode . gnus-dired-mode))
-;; -GnusDired
-
-;; GnusDemon
-(use-package gnus-demon
- :after (gnus)
- :config
- ;; Get mail every 30min
- (gnus-demon-add-handler 'gnus-group-get-new-news 30 t)
- (gnus-demon-init))
-;; -GnusDemon
-
-;; UseBBDB
-(use-package bbdb
- :config
- (setq-default bbdb-file "~/desktop/gnus/bbdb")
- (bbdb-initialize 'message 'gnus 'com 'anniv)
- (bbdb-mua-auto-update-init 'message 'gnus 'com 'anniv)
-
- (setq-default bbdb-offer-save 1 ;; 1 means save-without-asking
- bbdb-always-add-addresses t
- bbdb-update-records-p 'create ;; Auto-create
- bbdb-snarf-rule-default 'mail ;; Just snarf with mail by default
- bbdb-mail-avoid-redundancy nil ;; always use full name
- bbdb-add-name 2 ;; show name-mismatches for 2 secs
- bbdb-add-mails t ;; add new addresses to existing...
- bbdb-canonicalize-redundant-mails t ;; x@foo.bar.cx => x@bar.cx
- bbdb-completion-list t ;; complete on anything
- bbdb-complete-mail-allow-cycling t ;; cycle trough matches
- bbdb-phone-style nil ;; No north american
- bbdb-mua-pop-up nil
- bbdb-mua-pop-up-window-size 2
- bbdb-mua-update-interactive-p '(query . query)
- bbdb-pop-up-layout 'one-line))
-;; -UseBBDB