diff options
Diffstat (limited to 'suweren')
| -rw-r--r-- | suweren/home/bash-profile | 2 | ||||
| -rw-r--r-- | suweren/home/bashrc | 34 | ||||
| -rw-r--r-- | suweren/home/emacs-configuration.el | 101 | ||||
| -rw-r--r-- | suweren/home/emacs-gnus.el | 28 | ||||
| -rw-r--r-- | suweren/home/emacs-init.el | 8 | ||||
| -rw-r--r-- | suweren/home/emacs-org.el | 13 | ||||
| -rw-r--r-- | suweren/home/emacs-roam.el | 62 |
7 files changed, 0 insertions, 248 deletions
diff --git a/suweren/home/bash-profile b/suweren/home/bash-profile deleted file mode 100644 index 37ea25c..0000000 --- a/suweren/home/bash-profile +++ /dev/null @@ -1,2 +0,0 @@ -# Honor per-interactive-shell startup file -if [ -f ~/.bashrc ]; then . ~/.bashrc; fi diff --git a/suweren/home/bashrc b/suweren/home/bashrc deleted file mode 100644 index be0d92a..0000000 --- a/suweren/home/bashrc +++ /dev/null @@ -1,34 +0,0 @@ -# Bash initialization for interactive non-login shells and -# for remote shells (info "(bash) Bash Startup Files"). - -# Export 'SHELL' to child processes. Programs such as 'screen' -# honor it and otherwise use /bin/sh. -export SHELL - -if [[ $- != *i* ]] -then - # We are being invoked from a non-interactive shell. If this - # is an SSH session (as in "ssh host command"), source - # /etc/profile so we get PATH and other essential variables. - [[ -n "$SSH_CLIENT" ]] && source /etc/profile - - # Don't do anything else. - return -fi - -# Source the system-wide file. -source /etc/bashrc - -# Adjust the prompt depending on whether we're in 'guix environment'. -if [ -n "$GUIX_ENVIRONMENT" ] -then - PS1='\u@\h \w [env]\$ ' -else - PS1='\u@\h \w\$ ' -fi -alias ls='ls -p --color=auto' -alias ll='ls -l' -alias grep='grep --color=auto' - -GUIX_PROFILE="/var/guix/profiles/per-user/$USER/guix-profile" ; -source "$GUIX_PROFILE/etc/profile" ; diff --git a/suweren/home/emacs-configuration.el b/suweren/home/emacs-configuration.el deleted file mode 100644 index b883818..0000000 --- a/suweren/home/emacs-configuration.el +++ /dev/null @@ -1,101 +0,0 @@ -;; Enable Horizontal Scrolling -(setq-default auto-hscroll-mode t - hscroll-margin 10 - hscroll-step 1) - -;; Disable Backup Files -(setq make-backup-files nil) - -;;; https://github.com/fimblo/dot.emacs -;;; Theme Activation -(load-theme 'modus-operandi) - -;;; Disable Ring Bell -(setq-default ring-bell-function 'ignore) - -;;; Disable Org Indent Mode -(add-hook 'org-mode-hook (lambda () (org-indent-mode -1))) - -;;; Enable ParEdit -(add-hook 'prog-mode-hook 'enable-paredit-mode) - -;;; https://elpa.gnu.org/packages/aggressive-indent.html -;;; Automatic Activation of Aggressive Indent -;; (global-aggressive-indent-mode) - -;; Highlight the pair of delimiters under the cursor -(setq-default show-paren-mode 1 - show-paren-delay 0) - -;;; https://guix.gnu.org/manual/en/html_node/The-Perfect-Setup.html -;;; Copyright Information -(setq-default user-full-name "Marek Paśnikowski" - user-mail-address "marek@marekpasnikowski.pl") - -(setq-default epg-gpg-program "gpg2") - -;;;https://github.com/redguardtoo/mastering-emacs-in-one-year-guide/blob/master/gnus-guide-en.org#my-gnusel -(setq-default send-mail-function 'smtpmail-send-it - smtpmail-stream-type 'ssl - smtpmail-smtp-server "marekpasnikowski.pl" - smtpmail-smtp-service 465 - ;; smtpmail-local-domain "izumi.lan" - smtpmail-debug-info t) - -(require 'smtpmail) - -;;; https://github.com/redguardtoo/mastering-emacs-in-one-year-guide/blob/master/gnus-guide-en.org#my-gnusel -(add-hook 'message-mode-hook - (lambda () - (flyspell-mode t) - (local-set-key (kbd "TAB") - 'bbdb-complete-name))) - -;;; Startup Screen Inhibition -(setq-default inhibit-startup-screen t) - -;; Enable the column-100 line -(setq-default display-fill-column-indicator-column 100 - fill-column 100 - org-startup-truncated nil) -(set-face-attribute 'fill-column-indicator nil :foreground "green") -(global-display-fill-column-indicator-mode) - -;;; Enable Org Modern Style - ;(with-eval-after-load 'org (global-org-modern-mode)) - -;; Prepare Literate Programming -(setq-default - org-startup-indented t - org-confirm-babel-evaluate nil - org-src-fontify-natively t - org-src-tab-acts-natively t) -(org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t) - (scheme . t ) - (shell . t ))) - -(add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode)) - -;; Monospace Font in Ebook Reader -(setq-default nov-variable-pitch nil) - -;; Disable Toolbar -(tool-bar-mode -1) - -;; ORG-FC Configuration -(setq-default - org-fc-algorithm 'tn - org-fc-shuffle-positions t - org-fc-directories '("~/Dokumenty/fiszki")) - -;; Nix Mode -;; (require 'nix-mode) -;; (add-to-list 'auto-mode-alist '("\\.nix\\'" . nix-mode)) - -;; (setq tramp-remote-path -;; (append tramp-remote-path -;; '(tramp-own-remote-path -;; "~/.guix-profile/bin" -;; "~/.guix-profile/sbin" -;; "/run/current-system/profile/bin" -;; "/run/current-system/profile/sbin"))) diff --git a/suweren/home/emacs-gnus.el b/suweren/home/emacs-gnus.el deleted file mode 100644 index 39d51a9..0000000 --- a/suweren/home/emacs-gnus.el +++ /dev/null @@ -1,28 +0,0 @@ -(setq gnus-select-method - '(nnimap "personal" - (nnimap-address "marekpasnikowski.pl") - (nnimap-user "marek") - (nnimap-inbox "INBOX"))) - -(setq gnus-secondary-select-methods - '((nnimap "guix-devel" - (nnimap-address "marekpasnikowski.pl") - (nnimap-user "guix-devel") - (nnimap-inbox "INBOX")) - (nnimap "help-guix" - (nnimap-address "marekpasnikowski.pl") - (nnimap-user "help-guix") - (nnimap-inbox "INBOX")))) - -;; (alist string parameter) -(setq gnus-parameters - '(("personal" (posting-style (address "marek@marekpasnikowski.pl"))) - ("guix-devel" (posting-style (address "marek@marekpasnikowski.pl") - (gcc nil))) - ("help-guix" (posting-style (address "marek@marekpasnikowski.pl") - (gcc nil))))) - -(setq gnus-message-archive-group - (format-time-string "nnimap+personal:Archive.%Y-%m")) - -(setq gnus-gcc-mark-as-read t) diff --git a/suweren/home/emacs-init.el b/suweren/home/emacs-init.el deleted file mode 100644 index 6715d0f..0000000 --- a/suweren/home/emacs-init.el +++ /dev/null @@ -1,8 +0,0 @@ -;; This is a DRY expression to load a list of Emacs configuration files. -(mapcar (lambda (file-name) - (let ((file-path (concat "$XDG_CONFIG_HOME/emacs/" file-name))) - (load-file file-path))) - (list "configuration.el" - "gnus.el" - "org.el" - "roam.el")) diff --git a/suweren/home/emacs-org.el b/suweren/home/emacs-org.el deleted file mode 100644 index 06ed13f..0000000 --- a/suweren/home/emacs-org.el +++ /dev/null @@ -1,13 +0,0 @@ -(require 'org) - -(defvar window-setup - (setq org-agenda-window-setup 'only-window) - (concat "Full-screen agenda.")) - -(use-package org - :bind - (("C-c a" . org-agenda) - ("C-c c" . org-capture) - ("C-c l" . org-store-link)) - :custom - 'window-setup) diff --git a/suweren/home/emacs-roam.el b/suweren/home/emacs-roam.el deleted file mode 100644 index 4e0673d..0000000 --- a/suweren/home/emacs-roam.el +++ /dev/null @@ -1,62 +0,0 @@ -(require 'org-roam) - -(defun org-roam-db-query-tasks () - (concat "The query constructor to receive a list of files with tasks.") - (org-roam-db-query [:select - :distinct [file] - :from nodes - :where (like todo "TODO") - :or (like todo "DONE")])) - -(defun org-roam-dailies-with-tasks () - (concat "List of distinct Org Roam files with tasks,\n" - "obtained with Roam’s SQLite database query.\n" - "\n" - "The application of append is necessary to unpack the query result.") - (apply 'append - (funcall #'org-roam-db-query-tasks))) - -(defvar org-roam-merged-agenda-files - (append org-agenda-files - (org-roam-dailies-with-tasks)) - (concat "List of Roam’s agenda files merged with agenda files set earlier.")) - -(defun org-roam-update-agenda-files (&rest _) - (concat "Refresh the list of agenda files before opening the agenda.") - (setq org-agenda-files (org-roam-dailies-with-tasks))) - -(use-package org-roam - :init - (setq org-roam-v2-ack t) - - :config - (require 'org-roam-dailies) - (org-roam-db-autosync-mode) - (advice-add 'org-agenda - :before - #'org-roam-update-agenda-files) - (advice-add 'org-todo-list - :before - #'org-roam-update-agenda-files) - - :bind - (("C-c n f" . org-roam-node-find) - ("C-c n i" . org-roam-node-insert) - ("C-c n l" . org-roam-buffer-toggle) - :map - org-roam-dailies-map - ("T" . org-roam-dailies-capture-tomorrow) - ("Y" . org-roam-dailies-capture-yesterday)) - - :bind-keymap - ("C-c n d" . org-roam-dailies-map) - - :custom - (org-roam-directory "~/Dokumenty/Baza") - (org-roam-dailies-directory "Dziennik/") - (org-roam-capture-templates '(("d" "default" plain "%?" - :target (file+head "${slug}.org" - "#+title: ${title}\n") - :unnarrowed t))) - - :ensure t) |