summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--suweren/home/bash-profile2
-rw-r--r--suweren/home/bashrc34
-rw-r--r--suweren/home/emacs-configuration.el101
-rw-r--r--suweren/home/emacs-gnus.el28
-rw-r--r--suweren/home/emacs-init.el8
-rw-r--r--suweren/home/emacs-org.el13
-rw-r--r--suweren/home/emacs-roam.el62
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)
generated by cgit v1.2.3 (git 2.49.0) at 2025-07-01 16:55:24 +0000