Changeset 5211578 in dotfiles


Ignore:
Timestamp:
Sep 25, 2024, 11:43:27 PM (7 weeks ago)
Author:
Mikhail Kirillov <w96k@…>
Branches:
master
Children:
ead573e
Parents:
fc6fa17
Message:

Update dotfiles

Files:
9 deleted
7 edited

Legend:

Unmodified
Added
Removed

  • X/.xinitrc

    rfc6fa17 r5211578  
     1xrandr --output HDMI-A-0 --mode 1920x1080 --rate 240 --filter nearest
    12exec ratpoison
     3

  • emacs/.emacs.d/.emacs-config.org

    rfc6fa17 r5211578  
    104104#+BEGIN_SRC emacs-lisp :tangle init.el
    105105  (define-key global-map
    106     (kbd "<f7>") 'global-display-line-numbers-mode)
     106    (kbd "<f7>") 'display-line-numbers-mode)
    107107
    108108  (define-key global-map
    … …  
    111111
    112112* Editing
     113** Completion styles
     114#+begin_src emacs-lisp :tangle init.el
     115  (setq completion-styles '(basic partial-completion emacs22 substring))
     116#+end_src
     117
    113118** Dired
    114119#+BEGIN_SRC emacs-lisp :tangle init.el
    … …  
    170175** Imenu List
    171176#+begin_src emacs-lisp :tangle init.el
    172  
    173   (setq imenu-list-focus-after-activation nil
    174         imenu-list-auto-resize nil
    175         imenu-list-mode-line-format '()
    176         imenu-list-size 0.4)
    177   (global-set-key (kbd "C-x C-d") #'imenu-list-smart-toggle)
     177  (use-package imenu-list
     178    :bind
     179    ("C-x C-d" . imenu-list-smart-toggle)
     180    :config
     181    (setq imenu-list-focus-after-activation nil
     182        imenu-list-auto-resize nil
     183        imenu-list-mode-line-format '()
     184        imenu-list-size 0.4))
    178185#+end_src
    179186
    … …  
    213220    :defer t
    214221    :bind (("M-s M-s"   . avy-goto-char)
    215           ("M-s s"     . avy-goto-char)
    216           ("M-s g"     . avy-goto-line)
    217           ("M-s l"     . avy-goto-char-in-line)
    218           ("M-s M-l"   . avy-goto-char-in-line)
    219 
    220           ("M-g g"     . avy-goto-line)
    221           ("M-s M-g"   . avy-goto-line)))
     222        ("M-s s"       . avy-goto-char)
     223        ("M-s g"       . avy-goto-line)
     224        ("M-s l"       . avy-goto-char-in-line)
     225        ("M-s M-l"     . avy-goto-char-in-line)
     226
     227        ("M-g g"       . avy-goto-line)
     228        ("M-s M-g"     . avy-goto-line)))
    222229
    223230  (use-package link-hint
    … …  
    229236    :defer t
    230237    :bind (("C-z" . goto-last-change)
    231           ("M-z" . goto-last-change-reverse)))
     238        ("M-z" . goto-last-change-reverse)))
    232239
    233240  ;; Jumps using grep and similar tools
    234241  (use-package dumb-jump
    235242    :defer t
    236     :bind (("C-." . dumb-jump-go)))
     243    :bind (("M-g o" . dumb-jump-go-other-window)
     244         ("M-g j" . dumb-jump-go)
     245         ("M-g b" . dumb-jump-back)
     246         ("M-g q" . dumb-jump-quick-look)
     247         ("M-g x" . dumb-jump-go-prefer-external)
     248         ("M-g z" . dumb-jump-go-prefer-external-other-window)))
    237249
    238250#+END_SRC
    … …  
    267279** Tags
    268280Для прыжков и поиска функций/классов и т.д.
    269 #+BEGIN_SRC emacs-lisp :tangle nil
    270   (setq path-to-ctags "~/.guix-profile/bin/ctags")
    271  
     281#+BEGIN_SRC emacs-lisp :tangle init.el
     282  (setq path-to-ctags "~/.guix-home/profile/bin/ctags")
     283
    272284  (defun tags-create (dir-name)
    273285    "Create tags file."
    … …  
    275287    (shell-command
    276288     (format "%s -f TAGS -e -R %s" path-to-ctags
    277              (directory-file-name dir-name))))
    278  
     289             (directory-file-name dir-name))))
     290
    279291  (defun tags-create-python (dir-name)
    280292    "Create tags with python interpreter"
    … …  
    282294    (shell-command
    283295     (format "%s -f TAGS -e -R --fields=+l --languages=python --python-kinds=-iv $(python -c \"import os, sys; print(' '.join('{}'.format(d) for d in sys.path if os.path.isdir(d)))\") %s" path-to-ctags
    284              (directory-file-name dir-name)))) 
    285 #+END_SRC
     296             (directory-file-name dir-name)))) 
     297#+END_SRC
     298
     299#+begin_src emacs-lisp :tangle init.el
     300  (use-package ggtags
     301    :defer t
     302    :hook
     303    (c-mode . ggtags-mode))
     304#+end_src
     305
    286306
    287307** Дебаггер
    … …  
    369389** Клиент LSP
    370390#+begin_src emacs-lisp :tangle init.el
     391  (with-eval-after-load 'eglot
     392    (add-to-list 'eglot-server-programs
     393                 '((php-mode phps-mode php-ts-mode) . ("/home/w96k/projects/phpactor/bin/phpactor" "language-server" "-vvv"))))
     394
    371395  ;; (with-eval-after-load 'eglot
    372396  ;;   (add-to-list 'eglot-server-programs '((php-mode phps-mode) . ("~/projects/phpactor/bin/phpactor" "language-server" "-vvv")))
    … …  
    382406  ;; don't just get clobbered by docstrings.       
    383407  (add-hook 'eglot-managed-mode-hook
    384             (lambda ()
    385               "Make sure Eldoc will show us all of the feedback at point."
    386               (setq-local eldoc-documentation-strategy
    387                           #'eldoc-documentation-compose)))
     408          (lambda ()
     409            "Make sure Eldoc will show us all of the feedback at point."
     410            (setq-local eldoc-documentation-strategy
     411                        #'eldoc-documentation-compose)))
    388412#+end_src
    389413
    … …  
    557581  ;; (defun init-php-mode ()
    558582  ;;   (eglot-ensure))
    559  
    560   (with-eval-after-load 'php-mode
    561 
    562     ;; (add-hook 'php-mode-hook #'init-php-mode)
    563     )
    564 
    565   (when (package-loaded? "php-mode")
    566     (progn
    567       (add-hook 'php-mode-hook 'php-enable-symfony2-coding-style)
    568       (setq lsp-intelephense-php-version "8.1.16")
    569       (defvar phpactor-executable "~/.bin/phpactor")
    570       (custom-set-variables '(lsp-phpactor-path "~/usr/local/bin/phpactor"))
    571 
    572       (add-hook 'php-mode-hook
    573                 '(lambda ()
    574                    ;; (require 'yasnippet)
    575                    ;; (require 'yasnippet-snippets)
    576 
    577                    (set-fill-column 120)
    578 
    579                    ;; (make-local-variable 'eldoc-documentation-function)
    580                    ;; (setq eldoc-documentation-function
    581                    ;;       'phpactor-hover)
    582                    ;; (yas-minor-mode t)
    583                    (define-key php-mode-map (kbd "C-c h") 'php-quickhelp-at-point)))
    584 
    585       (setq php-manual-path
    586             "~/php/php-manual/"
    587             php-quickhelp-dir "~/php/php-manual/"
    588             php-quickhelp--dest "~/.emacs.d/php-manual/php_manual_en.json")
    589 
    590 
    591       ;; (add-hook 'php-mode-hook
    592       ;;                '(lambda ()
    593       ;;                   ;; (auto-complete-mode t)
    594 
    595       ;;                   ;; (require 'ac-php)
    596       ;;                   (require 'php-quickhelp)
    597       ;;                   (require 'company)
    598       ;;                   (company-mode t)
    599       ;;                   (require 'company-php)
    600       ;;                   (require 'company-quickhelp)
    601 
    602       ;;                   (require 'yasnippet)
    603       ;;                   (require 'yasnippet-snippets)
    604 
    605       ;;                   (set (make-local-variable 'company-backends)
    606       ;;                        '((company-ac-php-backend company-dabbrev-code)
    607       ;;                          php-quickhelp-company-php
    608       ;;                          company-capf company-files))
    609 
    610       ;;                   (company-quickhelp-mode t)
    611 
    612       ;;                   (define-key php-mode-map (kbd "C-M-i") 'company-complete)
    613       ;;                   (define-key company-mode-map (kbd "M-TAB") 'company-complete)
    614 
    615       ;;                   ;; (setq ac-sources '(ac-source-php php-quickhelp-company-php))
    616       ;;                   ;; (setq eldoc-documentation-function
    617       ;;                   ;;       'php-quickhelp-eldoc-func)
    618 
    619       ;;                   (yas-minor-mode t)
    620 
    621       ;;                   ;; (define-key php-mode-map (kbd "C-M-i") 'auto-complete)
    622       ;;                   ;; (define-key ac-mode-map (kbd "M-TAB") 'auto-complete)
    623 
    624       ;;                   (define-key php-mode-map (kbd "C-c H")
    625       ;;                               'php-local-manual-search)
    626 
    627       ;;                   (define-key php-mode-map (kbd "C-c h") 'php-quickhelp-at-point)
    628       ;;                   (define-key company-mode-map (kbd "C-c h") 'php-quickhelp-at-point)
    629 
    630       ;;                   ;; (define-key php-mode-map (kbd "C-c t") 'ac-php-show-tip)
    631 
    632       ;;                   ;; Jump to definition (optional)
    633       ;;                   (define-key php-mode-map
    634       ;;                               (kbd "M-.") 'ac-php-find-symbol-at-point)
    635 
    636       ;;                   ;; Return back (optional)
    637       ;;                   (define-key php-mode-map
    638       ;;                               (kbd "M-,") 'ac-php-location-stack-back)))
    639       ))
     583
     584  (use-package php-mode
     585    :bind ("C-c h" . 'php-quickhelp-at-point)
     586    :config
     587
     588    (setq php-manual-path
     589        "~/projects/php-manual/"
     590        php-quickhelp-dir "~/projects/php-manual/"
     591        php-quickhelp--dest "~/projects/php-manual/php_manual_en.json"))
     592
     593
     594  ;; (add-hook 'php-mode-hook
     595  ;;            '(lambda ()
     596  ;;               ;; (auto-complete-mode t)
     597
     598  ;;               ;; (require 'ac-php)
     599  ;;               (require 'php-quickhelp)
     600  ;;               (require 'company)
     601  ;;               (company-mode t)
     602  ;;               (require 'company-php)
     603  ;;               (require 'company-quickhelp)
     604
     605  ;;               (require 'yasnippet)
     606  ;;               (require 'yasnippet-snippets)
     607
     608  ;;               (set (make-local-variable 'company-backends)
     609  ;;                    '((company-ac-php-backend company-dabbrev-code)
     610  ;;                      php-quickhelp-company-php
     611  ;;                      company-capf company-files))
     612
     613  ;;               (company-quickhelp-mode t)
     614
     615  ;;               (define-key php-mode-map (kbd "C-M-i") 'company-complete)
     616  ;;               (define-key company-mode-map (kbd "M-TAB") 'company-complete)
     617
     618  ;;               ;; (setq ac-sources '(ac-source-php php-quickhelp-company-php))
     619  ;;               ;; (setq eldoc-documentation-function
     620  ;;               ;;       'php-quickhelp-eldoc-func)
     621
     622  ;;               (yas-minor-mode t)
     623
     624  ;;               ;; (define-key php-mode-map (kbd "C-M-i") 'auto-complete)
     625  ;;               ;; (define-key ac-mode-map (kbd "M-TAB") 'auto-complete)
     626
     627  ;;               (define-key php-mode-map (kbd "C-c H")
     628  ;;                           'php-local-manual-search)
     629
     630  ;;               (define-key php-mode-map (kbd "C-c h") 'php-quickhelp-at-point)
     631  ;;               (define-key company-mode-map (kbd "C-c h") 'php-quickhelp-at-point)
     632
     633  ;;               ;; (define-key php-mode-map (kbd "C-c t") 'ac-php-show-tip)
     634
     635  ;;               ;; Jump to definition (optional)
     636  ;;               (define-key php-mode-map
     637  ;;                           (kbd "M-.") 'ac-php-find-symbol-at-point)
     638
     639  ;;               ;; Return back (optional)
     640  ;;               (define-key php-mode-map
     641  ;;                           (kbd "M-,") 'ac-php-location-stack-back)))
     642  ))
    640643#+end_src
    641644
    … …  
    727730         (sql-database "testdb")
    728731         (sql-port 3306))))
     732#+end_src
     733
     734*** Sql Viewer
     735#+begin_src emacs-lisp :tangle init.el
     736  (unless (package-installed-p 'pg)
     737    (package-vc-install "https://github.com/emarsden/pg-el" nil nil 'pg))
     738  (unless (package-installed-p 'pgmacs)
     739    (package-vc-install "https://github.com/emarsden/pgmacs"))
     740
     741  (use-package pgmacs)
    729742#+end_src
    730743
    … …  
    12491262  (add-hook 'dired-mode-hook 'set-normal-font)
    12501263  (add-hook 'org-mode-hook 'set-normal-font)
    1251 #+end_src
     1264  (add-hook 'Info-mode-hook 'set-normal-font)
     1265#+end_src

  • guix/.dotfiles/.bash_profile

    rfc6fa17 r5211578  
    66
    77# Prepend setuid programs.
    8 export PATH=/run/setuid-programs:$PATH
     8export PATH=/run/setuid-programs:$PATH:$HOME/.bin:$PATH
     9export EMACSLOADPATH=$EMACSLOADPATH:$HOME/.emacs.d/elpa
     10export GTAGSLIBPATH=$GTAGSLIBPATH:$HOME/.guix-home/profile/include
    911
    10 export PATH=$HOME/.bin:$PATH
     12# export https_proxy=https://localhost:9250
     13export http_proxy=https://localhost:9250
     14export SOCKS_SERVER=localhost:9050
    1115
    12 export EMACSLOADPATH=$EMACSLOADPATH:$HOME/.emacs.d/elpa
     16# Set up the system, user profile, and related variables.
     17# /etc/profile will be sourced by bash automatically
     18# Set up the home environment profile.
     19if [ -f ~/.profile ]; then source ~/.profile; fi
     20
     21# Honor per-interactive-shell startup file
     22if [ -f ~/.bashrc ]; then source ~/.bashrc; fi

  • guix/.dotfiles/.bashrc

    rfc6fa17 r5211578  
    22export GUIX_EXTRA_PROFILES=$HOME/.guix-extra-profiles
    33
    4 export PS1="\e[0;34m\u@\e[0;35m\h \e[0;30m\w\${GUIX_ENVIRONMENT:+ [env]}$ "
     4draw_line()
     5{
     6  local COLUMNS="$COLUMNS"
     7  while ((COLUMNS-- > 0)); do
     8    printf '\u2500'
     9  done
     10}
    511
     12export PS1="\e[37m$(draw_line)\e[32m\u\e[0m@\e[36m\h \e[1m\e[30m\w\${GUIX_ENVIRONMENT:+ [env]} \n\033[31m>>>\033[0m "
     13

  • guix/.dotfiles/home-configuration.scm

    rfc6fa17 r5211578  
    11(use-modules (gnu home)
    22             (gnu packages)
     3             (gnu packages base)
    34             (gnu packages gnupg)
    45             (gnu packages shells)
    … …  
    1920
    2021(define wkz-home (home-environment
    21                   (packages (specifications->packages (list
    22                                                         "mg"
    23                                                        "ratpoison"
    24                                                         "xterm"
    25                                                         "screen"
    26                                                        "xdot"
    27                                                        "graphviz"
    28                                                        "sed"
    29                                                        ;;"darktable"
    30 
    31                                                        "global"
    32                                                        "emacs-ggtags"
    33                                                        "emacs-semantic-refactor"
    34                                             "openssh"
    35                                             "docker-compose"
    36                                             "emacs-company"
    37                                             "emacs-f"
    38                                             "emacs-s"
    39                                             "emacs-xterm-color"
    40                                             "emacs-lsp-mode"
    41                                            
    42                                             "emacs-helm"
    43                                             "emacs-helm-gtags"
    44                                            
    45                                             "emacs-magit"
    46                                             "emacs-git-timemachine"
    47                                             "emacs-browse-kill-ring"
    48                                             "emacs-anzu"
    49                                             "emacs-sudo-edit"
    50                                             "emacs-highlight"
    51                                             "emacs-mastodon"
    52                                             "emacs-org-roam"
    53                                             "emacs-undo-tree"
    54                                             "emacs-expand-region"
    55 
    56                                             "emacs-nyxt"
    57                                             "nyxt"
    58 
    59                                             "guile"
    60                                             "guile-readline"
    61                                             "guile-colorized"
    62                                             "emacs-geiser"
    63                                             "emacs-geiser-guile"
    64                                            
    65                                             ;;"emacs-telega"
    66                                             ;;"emacs-telega-contrib"
    67                                             "emacs-guix"
    68                                             "emacs-simple-httpd"
    69                                             "emacs-osm"
    70                                             "translate-shell"
    71                                             "wget"
    72                                             "bitcoin-core"
    73                                             "monero"
    74                                             "monero-gui"
    75                                             "xrandr"
    76                                             "unzip"
    77                                             "zip"
    78                                             "mpv"
    79                                             "ffmpeg"
    80                                             "emacs-rmsbolt"
    81                                             "git"
    82                                             ;; "wkz-emacs"
    83                                             "emacs-no-x-toolkit"
    84                                             "emacs-gptel"
    85                                             "emacs-nix-mode"
    86                                             "lm-sensors"
    87                                             "htop"
    88                                             "make"
    89                                             "emacs-simple-httpd"
    90                                             "emacs-guix"
    91                                             ;;"gimp"
    92                                             "imagemagick"
    93                                             "stow"
    94                                             ;;"icecat"
    95                                             "smartmontools"
    96                                             "lshw"
    97                                             "hwinfo"
    98                                             "ntfs-3g"
    99                                             "qbittorrent"
    100                                             "x11-ssh-askpass"
    101                                             "syncthing"
    102                                             "pavucontrol"
    103                                             "arp-scan"
    104                                             "proot"
    105                                             "openconnect"
    106                                             "alsa-utils"
    107                                             "grep"
    108                                             "xlockmore"
    109                                             "x11-ssh-askpass"
    110                                             "pinentry-emacs"
    111                                             ;;"texlive"
    112                                             "fetchmail"
    113                                             "gnupg"
    114                                             "xhost"
    115 
    116                                             "universal-ctags"
    117                                            
    118                                             "c-intro-and-ref"
    119                                             "sicp"
    120 
    121                                             "font-xfree86-type1"
    122                                             "xlsfonts"
    123                                             "font-alias"
    124                                             ;; "wkz-php"
    125                                             ;; "wkz-python"
    126                                             ;; "wkz-ruby"
    127                                             )))
    128 
    129   ;; Below is the list of Home services.  To search for available
    130   ;; services, run 'guix home search KEYWORD' in a terminal.
    131   (services
    132    (list
    133     ;; (service home-run-on-first-login-service-type)
    134     ;; (service home-activation-service-type)
    135    
    136     (service home-bash-service-type
    137                   (home-bash-configuration
    138                    (guix-defaults? #t)
    139                    (aliases '(("grep" . "grep --color=auto")
    140                               ("ip" . "ip -color=auto")
    141                               ("ll" . "ls -l")
    142                               ("ls" . "ls -p --color=auto")))
    143                    (bashrc (list (local-file
    144                                   ".bashrc"
    145                                   "bashrc")))
    146                    ;; (bash-profile (list (local-file
    147                    ;;                      ".bash_profile"
    148                    ;;                      "bash_profile")))
    149                    ))
    150 
    151 ;;    (service home-redshift-service-type
    152 ;;           (home-redshift-configuration
    153 ;;            (location-provider 'manual)
    154 ;;            (latitude 41.71)
    155 ;;            (longitude 44.82)
    156 ;;            ))
    157 
    158     ;; (service home-x11-display-service-type)
    159          (service home-gpg-agent-service-type
    160          (home-gpg-agent-configuration
    161           (pinentry-program
    162            (file-append pinentry-emacs "/bin/pinentry-emacs"))
    163           (ssh-support? #t)))
    164 
    165 ;;       (service home-unclutter-service-type
    166 ;;                (home-unclutter-configuration
    167 ;;                 (idle-timeout 1)))
    168 
    169          (service home-openssh-service-type
    170                   (home-openssh-configuration
    171                    (authorized-keys (list (local-file "id_rsa.pub")))))
    172 
    173          (service home-startx-command-service-type
    174                    (xorg-configuration (keyboard-layout (keyboard-layout "us,ru"
    175                                                                          #:options '("grp:shifts_toggle" "ctrl:nocaps")))))
    176 
    177          ;; (service home-files-service-type `((".xinitrc" ,(local-file ".xinitrc" "xinitrc"))))
    178 
    179          (service home-dotfiles-service-type
    180                   (home-dotfiles-configuration
    181                    ;; (layout 'stow)
    182                    (directories '(
    183                                   "/home/w96k/projects/dotfiles/X"
    184                                   "/home/w96k/projects/dotfiles/wm"
    185                                   "/home/w96k/projects/dotfiles/emacs"
    186                                   "/home/w96k/projects/dotfiles/cvs"
    187                                   "/home/w96k/projects/dotfiles/guix"
    188                                   ))))
    189 
    190          ;; (service home-ssh-agent-service-type
    191          ;;       (home-ssh-agent-configuration
    192          ;;        (extra-options '("-t" "1h30m"))))
    193 
    194          (simple-service 'nonguix-service
    195                 home-channels-service-type
    196                 (list
    197                  (channel
    198                   (name 'nonguix)
    199                   (url "https://gitlab.com/nonguix/nonguix")
    200                   (introduction
    201                    (make-channel-introduction
    202                     "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
    203                     (openpgp-fingerprint
    204                      "2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5"))))))
    205          ))))
     22                  (packages (specifications->packages
     23                             (list
     24                              "glibc-locales"
     25                              "rlwrap"
     26                              "readline"
     27                              "mg"
     28                              "ratpoison"
     29                              "file"
     30                              "universal-ctags"
     31                              "perl"
     32                              "python"
     33                              "python-wrapper"
     34                              "php"
     35                              "sqls"
     36                              "go"
     37                              "ruby"
     38                              "gopls"
     39                              "delve"
     40                              "python-lsp-server"
     41                              "ruby-solargraph"
     42                              "zig-zls"
     43                              "rust-analyzer"
     44                              "racket"
     45                              "gcc-toolchain"
     46                              "clang-toolchain"
     47                              "gdb"
     48                              "valgrind"
     49                              "frama-c"
     50                              "kcachegrind"
     51                              "dwarves"
     52                              "xterm"
     53                              "screen"
     54                              "xdot"
     55                              "graphviz"
     56                              "sed"
     57                              ;;"darktable"
     58                              "global"
     59                              "emacs-edbi"
     60                              "emacs-edbi-sqlite"
     61                              "emacs-dape"
     62                              "emacs-dumb-jump"
     63                              "emacs-goto-chg"
     64                              "emacs-repology"
     65                              "emacs-syslog-mode"
     66                              "emacs-ggtags"
     67                              "emacs-semantic-refactor"
     68                              "openssh"
     69                              "docker-compose"
     70                              "emacs-docker"
     71                              "emacs-dockerfile-mode"
     72                              "emacs-docker-compose-mode"
     73                              "emacs-company"
     74                              "emacs-f"
     75                              "emacs-s"
     76                              "emacs-xterm-color"
     77                              ;; "emacs-lsp-mode"
     78                              "emacs-ebuild-mode"
     79                             
     80                              "emacs-helm"
     81                              "emacs-helm-gtags"
     82                             
     83                              "emacs-magit"
     84                              "emacs-git-timemachine"
     85                              "emacs-browse-kill-ring"
     86                              "emacs-anzu"
     87                              "emacs-sudo-edit"
     88                              "emacs-highlight"
     89                              "emacs-mastodon"
     90                              "emacs-org-roam"
     91                              "emacs-undo-tree"
     92                              "emacs-expand-region"
     93                              "emacs-avy"
     94                              "emacs-imenu-list"
     95
     96                              "emacs-nyxt"
     97
     98                              "guile"
     99                              "guile-readline"
     100                              "guile-colorized"
     101                              "emacs-geiser"
     102                              "emacs-geiser-guile"
     103                             
     104                              "emacs-telega"
     105                              "emacs-telega-contrib"
     106                              "emacs-guix"
     107                              "emacs-simple-httpd"
     108                              "emacs-osm"
     109                              "translate-shell"
     110                              "wget"
     111                              "curl"
     112                              "bitcoin-core"
     113                              "xrandr"
     114                              "unzip"
     115                              "zip"
     116                              "mpv"
     117                              "emacs-rmsbolt"
     118                              "git"
     119                              ;; "wkz-emacs"
     120                              "emacs-no-x-toolkit"
     121                              "emacs-gptel"
     122                              "emacs-nix-mode"
     123                              "lm-sensors"
     124                              "htop"
     125                              "make"
     126                              "emacs-simple-httpd"
     127                              "emacs-guix"
     128                              "emacs-hyperbole"
     129                              "emacs-php-mode"
     130                              "gimp"
     131                              "imagemagick"
     132                              "stow"
     133                              "smartmontools"
     134                              "lshw"
     135                              "hwinfo"
     136                              "qbittorrent"
     137                              "x11-ssh-askpass"
     138                              "syncthing"
     139                              "pavucontrol"
     140                              "arp-scan"
     141                              "openconnect"
     142                              "alsa-utils"
     143                              "grep"
     144                              "xlockmore"
     145                              "x11-ssh-askpass"
     146                              "pinentry"
     147                              "pinentry-emacs"
     148                              ;;"texlive"
     149                              "fetchmail"
     150                              "gnupg"
     151                              "xhost"
     152
     153                              "universal-ctags"
     154                             
     155                              "c-intro-and-ref"
     156                              "sicp"
     157
     158                              "font-xfree86-type1"
     159                              "xlsfonts"
     160                              "font-alias"
     161                              "font-gnu-unifont"
     162
     163                              "proxychains-ng"
     164                              "ungoogled-chromium"
     165                              "torbrowser"
     166                              "icecat"
     167                              "librewolf"
     168                              "nyxt"
     169                              "netsurf"
     170                              "ublock-origin-icecat"
     171                              "ublock-origin-chromium"
     172                              "noscript-icecat"
     173                              "browserpass-native"
     174                             
     175                              "keepassxc-browser-icecat"
     176                              "keepassxc"
     177
     178                              "restic"
     179                              "btrbk"
     180
     181                              "emacs-helm-pass"
     182                              "emacs-pass"
     183                              "password-store"
     184
     185                              "musescore"
     186                              "schismtracker"
     187                              "workrave"
     188                              "flatpak"
     189                              "utox"
     190                              "net-tools"
     191                              "lsof"
     192                              "podman"
     193                              "podman-compose"
     194                              "macchanger"
     195
     196                              "udiskie"
     197                              "emacs-discomfort"
     198
     199                              "yt-dlp"
     200                              "emacs-ytdl"
     201
     202                              ;; "wkz-php"
     203                              ;; "wkz-python"
     204                              ;; "wkz-ruby"
     205                              )))
     206
     207                  ;; Below is the list of Home services.  To search for available
     208                  ;; services, run 'guix home search KEYWORD' in a terminal.
     209                  (services
     210                   (list
     211                    (service home-bash-service-type
     212                             (home-bash-configuration
     213                              (guix-defaults? #t)
     214                              (aliases '(("grep" . "grep --color=auto")
     215                                         ("ip" . "ip -color=auto")
     216                                         ("ll" . "ls -l")
     217                                         ("ls" . "ls -p --color=auto")))
     218                              (bashrc (list (local-file
     219                                             ".bashrc"
     220                                             "bashrc")))
     221                              (bash-profile (list (local-file
     222                                                   ".bash_profile"
     223                                                   "bash_profile")))
     224                              ))
     225
     226                    ;; (service home-x11-display-service-type)
     227                    (service home-gpg-agent-service-type)
     228
     229                    ;;   (service home-unclutter-service-type
     230                    ;;            (home-unclutter-configuration
     231                    ;;             (idle-timeout 1)))
     232
     233                    ;; (service home-openssh-service-type
     234                    ;;       (home-openssh-configuration
     235                    ;;        (authorized-keys (list (local-file "id_rsa.pub")))))
     236
     237                    (service home-startx-command-service-type
     238                             (xorg-configuration (keyboard-layout (keyboard-layout "us,ru"
     239                                                                                   #:options '("grp:shifts_toggle" "ctrl:nocaps")))))
     240
     241                    (service home-dotfiles-service-type
     242                             (home-dotfiles-configuration
     243                              ;; (layout 'stow)
     244                              (directories '(
     245                                             "/home/w96k/projects/dotfiles/X"
     246                                             "/home/w96k/projects/dotfiles/wm"
     247                                             "/home/w96k/projects/dotfiles/emacs"
     248                                             "/home/w96k/projects/dotfiles/cvs"
     249                                             "/home/w96k/projects/dotfiles/guix"
     250                                             "/home/w96k/projects/dotfiles/ssh"
     251                                             ))))
     252
     253                    ;; (service home-ssh-agent-service-type
     254                    ;;    (home-ssh-agent-configuration
     255                    ;;     (extra-options '("-t" "1h30m"))))
     256
     257                    (service home-files-service-type
     258                             `((".guile" ,%default-dotguile)))
     259
     260                    (service home-xdg-configuration-files-service-type
     261                             `(("gdb/gdbinit" ,%default-gdbinit)
     262                               ("nano/nanorc" ,%default-nanorc)))
     263
     264                    (simple-service 'nonguix-service
     265                                    home-channels-service-type
     266                                    (list
     267                                     (channel
     268                                      (name 'nonguix)
     269                                      (url "https://gitlab.com/nonguix/nonguix")
     270                                      (introduction
     271                                       (make-channel-introduction
     272                                        "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
     273                                        (openpgp-fingerprint
     274                                         "2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5"))))))
     275                    ))))
    206276
    207277wkz-home

  • guix/config-desktop.scm

    rfc6fa17 r5211578  
    77             (gnu home services shells))
    88
    9 (use-service-modules guix cups desktop networking ssh xorg docker nix admin vnc lightdm syncthing virtualization databases linux)
     9(use-service-modules guix cups desktop networking ssh xorg docker nix admin vnc lightdm syncthing virtualization databases linux web backup telephony file-sharing)
    1010(use-package-modules gnome xdisorg vnc databases)
    1111
    … …  
    2121 (timezone "Asia/Tbilisi")
    2222 (kernel linux)
     23 (kernel-arguments '("video=HDMI-A-1:1920x1080@240"))
    2324 (initrd microcode-initrd)
    2425 (firmware (list linux-firmware))
    … …  
    3334                (group "users")
    3435                (home-directory "/home/w96k")
    35                 (supplementary-groups '("wheel" "netdev" "audio" "video" "docker")))
     36                (supplementary-groups '("wheel" "netdev" "audio" "video" "kvm")))
    3637               %base-user-accounts))
    3738
    … …  
    4243    specification->package
    4344    '(
    44 
     45      "font-gnu-freefont" "font-gnu-unifont"
    4546      ))
    4647   %base-packages))
    … …  
    5051 (services
    5152  (append (list
    52            (service guix-home-service-type `(("w96k" ,wkz-home) ("wkz" ,wkz-home)))
     53           (service guix-home-service-type `(("w96k" ,wkz-home)))
    5354           (service block-facebook-hosts-service-type)
    5455
    … …  
    5859                              (priority 100)))
    5960
    60            (service tor-service-type)
     61           (service tor-service-type
     62                    (tor-configuration
     63                     (config-file (plain-file "tor-config"
     64                                              "HTTPTunnelPort 127.0.0.1:9250"))))
    6165           (service openssh-service-type)
    62            (service containerd-service-type)
    63            (service docker-service-type)
     66
     67           (service transmission-daemon-service-type)
     68           
     69           ;; (service containerd-service-type)
     70           ;; (service docker-service-type)
     71           ;; (service restic-backup-service-type)
     72           
    6473           ;; (service hurd-vm-service-type
    6574           ;;   (hurd-vm-configuration
    … …  
    7483           ;;                             (geometry "1280x800")))
    7584
    76            (service syncthing-service-type
    77                     (syncthing-configuration
    78                      (user "w96k")))
     85           ;; (service syncthing-service-type
     86           ;;       (syncthing-configuration
     87           ;;        (user "w96k")))
    7988
    80            (service postgresql-service-type
    81                     (postgresql-configuration
    82                      (postgresql postgresql-15)))
     89           ;; (service postgresql-service-type
     90           ;;       (postgresql-configuration
     91           ;;        (postgresql postgresql-15)))
    8392
    84            (service connman-service-type)
     93           (service dhcp-client-service-type)
     94
     95           (service httpd-service-type
     96                    (httpd-configuration
     97                     (config
     98                      (httpd-config-file
     99                       (modules (cons*
     100                                 (httpd-module
     101                                  (name "proxy_module")
     102                                  (file "modules/mod_proxy.so"))
     103                                 (httpd-module
     104                                  (name "proxy_fcgi_module")
     105                                  (file "modules/mod_proxy_fcgi.so"))
     106                                 %default-httpd-modules))
     107                       (extra-config (list "\
     108<FilesMatch \\.php$>
     109    SetHandler \"proxy:unix:/var/run/php-fpm.sock|fcgi://localhost/\"
     110</FilesMatch>"))))))
     111           (service php-fpm-service-type
     112                    (php-fpm-configuration
     113                     (socket "/var/run/php-fpm.sock")
     114                     (socket-group "httpd")))
    85115
    86116           ;; (service screen-locker-service-type
    … …  
    88118           ;;   (name "xlock")
    89119           ;;   (program (file-append xlockmore "/bin/xlock"))))
    90 
    91            ;; (service slim-service-type
    92            ;;    (slim-configuration
    93            ;;     (default-user "w96k")
    94            ;;    (xorg-configuration
    95            ;;      (xorg-configuration     
    96            ;;       (keyboard-layout keyboard-layout)))))
    97120           )
    98121
    … …  
    100123                           (delete screen-locker-service-type)
    101124                           (delete modem-manager-service-type)
    102                            (delete udisks-service-type)
     125                           ;; (delete udisks-service-type)
    103126                           (delete upower-service-type)
    104127                           (delete network-manager-service-type)
    105                            (delete usb-modeswitch-service-type)
     128                           (delete wpa-supplicant-service-type)
     129                           ;; (delete usb-modeswitch-service-type)
    106130                           (delete geoclue-service-type)
    107131                           ;;(delete elogind-service-type)
    108132                           (delete colord-service-type)
     133                           (delete ntp-service-type)
    109134                           
    110135                           
    … …  
    115140                                                         (extra-options '("--max-jobs=10"))
    116141                                                         (substitute-urls
    117                                                           (append (list "https://substitutes.nonguix.org")
    118                                                                   %default-substitute-urls))
     142                                                          (list
     143                                                           "https://4zwzi66wwdaalbhgnix55ea3ab4pvvw66ll2ow53kjub6se4q2bclcyd.onion"
     144                                                           "https://substitutes.nonguix.org"))
     145                                                         (http-proxy "http://localhost:9250")
    119146                                                         (authorized-keys
    120147                                                          (append (list (plain-file "non-guix.pub"
    … …  
    144171                         (device "/dev/mapper/cryptroot")
    145172                         (type "btrfs")
    146                          (options "compress=zlib:6,autodefrag")
     173                         (options "compress=zlib:9,autodefrag")
     174                         (dependencies mapped-devices))
     175                       (file-system
     176                         (mount-point "/home/w96k/")
     177                         (device "/dev/mapper/cryptroot")
     178                         (type "btrfs")
     179                         (options "compress=zlib:7,autodefrag,subvol=/home/w96k/")
     180                         (dependencies mapped-devices))
     181                       (file-system
     182                         (mount-point "/home/w96k/Snapshots/")
     183                         (device "/dev/mapper/cryptroot")
     184                         (type "btrfs")
     185                         (options "compress=zlib:9,autodefrag,subvol=/home/w96k/Snapshots")
    147186                         (dependencies mapped-devices))
    148187                       (file-system

  • wm/.ratpoisonrc

    rfc6fa17 r5211578  
    1616
    1717# Commands to run-or-raise programs
    18 alias icecat exec ratpoison -c "select icecat" || exec icecat
    19 alias palemoon exec ratpoison -c "select Pale moon" || sh ~/Software/palemoon/palemoon-guix.sh
     18alias icecat exec ratpoison -c "select icecat" || exec guix shell --container --network --no-cwd --preserve='^XAUTHORITY$' --expose="${XAUTHORITY}" --preserve='^DISPLAY$' icecat -- icecat
     19alias chromium exec ratpoison -c "select chromium" || exec guix shell --container --network --no-cwd --preserve='^XAUTHORITY$' --expose="${XAUTHORITY}" --preserve='^DISPLAY$' ungoogled-chromium -- chromium
     20alias torbrowser exec ratpoison -c "select torbrowser" || exec guix shell --container --network --no-cwd --preserve='^XAUTHORITY$' --expose="${XAUTHORITY}" --preserve='^DISPLAY$' torbrowser -- torbrowser
    2021alias workrave exec ratpoison -c "select workrave" || exec workrave
    2122alias emacs exec ratpoison -c "select emacs" || exec emacs
    … …  
    2425alias dbeaver exec dbeaver -c "select dbeaver" || exec flatpak run io.dbeaver.DBeaverCommunity
    2526alias guix exec guix
    26 alias shell exec guix shell
     27alias shell exec guix shell --check
     28alias shell-container exec guix shell --container --network --no-cwd --preserve='^XAUTHORITY$' --expose="${XAUTHORITY}" --preserve='^DISPLAY$'
     29alias shell-pure exec guix shell --pure --check
    2730alias mpv exec mpv
    2831
    … …  
    3538# Run or raise Icecat
    3639bind I icecat
     40
     41# Run or raise TorBrowser
     42bind T torbrowser
     43
     44# Run or raise Chromium
     45bind C chromium
    3746
    3847# Run or raise Xterm
Note: See TracChangeset for help on using the changeset viewer.