Changeset 0d64484 in dotfiles


Ignore:
Timestamp:
Jul 10, 2020, 10:12:25 PM (4 years ago)
Author:
Mikhail Kirillov <w96k@…>
Branches:
master
Children:
3c66ce1
Parents:
bc317cb
Message:

Update config

Files:
1 deleted
8 edited

Legend:

Unmodified
Added
Removed

  • emacs/.emacs

    rbc317cb r0d64484  
    99;; (setq debug-on-error t)
    1010;; (setq debug-on-quit nil)
     11(with-no-warnings
     12  (require 'cl)
     13  (require 'cl-lib))
     14
     15;;(setq gc-cons-threshold 500000000)
    1116
    1217(setq package-archives
    … …  
    1924(package-initialize)
    2025
     26(when (not (package-installed-p 'quelpa))
     27  (with-temp-buffer
     28    (url-insert-file-contents "https://github.com/quelpa/quelpa/raw/master/quelpa.el")
     29    (eval-buffer)
     30    (quelpa-self-upgrade)))
     31
    2132;; Dont ask when following symlinks
    2233(setq vc-follow-symlinks t)
    2334
    2435;; Add path for guix machines
    25 (add-to-list 'load-path "~/.guix-profile/share/emacs/site-lisp/")
    26 (add-to-list 'load-path "/run/current-system/profile/share/emacs/site-lisp/")
     36;;(add-to-list 'load-path "~/.guix-profile/share/emacs/site-lisp/")
     37;;(add-to-list 'load-path "/run/current-system/profile/share/emacs/site-lisp/")
    2738
    2839;; "Bootstrap" use-package
    … …  
    3142  (package-install 'use-package))
    3243
    33 (eval-when-compile
    34   (require 'use-package))
     44;;(eval-when-compile
     45(require 'use-package)
     46
     47(quelpa
     48 '(quelpa-use-package
     49   :fetcher git
     50   :url "https://github.com/quelpa/quelpa-use-package.git"))
     51(require 'quelpa-use-package)
    3552
    3653(use-package use-package-ensure-system-package
    … …  
    5168;; Org File
    5269(org-babel-load-file "~/.emacs-config.org")
     70
     71(provide '.emacs)
     72;;; .emacs ends here

  • emacs/.emacs-config.org

    rbc317cb r0d64484  
    11* Meta
    22** Обо мне
    3 #+BEGIN_SRC emacs-lisp
     3   #+BEGIN_SRC emacs-lisp
    44;; Information about me
    55(setq user-full-name "Mikhail Kirillov"
    66      user-mail-address "w96k@posteo.net")
    7 #+END_SRC
     7   #+END_SRC
    88* Внешний вид
    99** Назначение шрифта и лигатур
    10 А также отступа между строк
    11 #+BEGIN_SRC emacs-lisp
     10   А также отступа между строк
     11   #+BEGIN_SRC emacs-lisp
    1212  ;;; Set font
    1313  (add-to-list 'default-frame-alist '(font . "Fira Code-10.5"))
    … …  
    2020
    2121(global-prettify-symbols-mode)
    22 #+END_SRC
     22   #+END_SRC
    2323** Назначение темы
    24 Вы ее в видите в блоках кода
    25 #+BEGIN_SRC emacs-lisp
     24   Вы ее в видите в блоках кода
     25   #+BEGIN_SRC emacs-lisp
    2626  ;;; Load a theme
    2727  ;;; https://emacsthemes.com/themes/sanityinc-tomorrow-themes.html
    … …  
    2929    :ensure
    3030    :config (load-theme 'sanityinc-tomorrow-eighties t))
    31 #+END_SRC
     31   #+END_SRC
    3232
    3333** Отображение номера строк
    34 #+BEGIN_SRC emacs-lisp
     34   #+BEGIN_SRC emacs-lisp
    3535  ;;; Отображение номера строки ненужно из-за наличия avy-jump
    3636  ;; (use-package display-line-numbers
    … …  
    3838  ;;   (setq display-line-numbers-type 'relative)
    3939  ;;   (global-display-line-numbers-mode))
    40 #+END_SRC
     40   #+END_SRC
    4141** Мод-лайн
    42 #+BEGIN_SRC emacs-lisp
     42   #+BEGIN_SRC emacs-lisp
    4343(custom-set-faces
    44  '(mode-line ((t (:background "#333" :foreground "#cccccc" :box (:line-width 1 :color "#2d2d2d" :style released-button) :weight bold :height 1.0 :family "Fira Code")))))
    45 #+END_SRC
     44 '(mode-line ((t (:background "#333"
     45                  :foreground "#cccccc"
     46                  :box (:line-width 1
     47                        :color "#2d2d2d"
     48                        :style released-button)
     49                  :weight bold
     50                  :height 1.0
     51                  :family "Fira Code")))))
     52   #+END_SRC
    4653** Подсвечивать текущую строку
    47 #+BEGIN_SRC emacs-lisp
     54   #+BEGIN_SRC emacs-lisp
    4855  ;;; Display current line
    4956  (when (display-graphic-p)
    5057  (global-hl-line-mode))
    51 #+END_SRC
     58   #+END_SRC
    5259** Эмодзи (для telega.el)
    53 #+BEGIN_SRC emacs-lisp
     60   #+BEGIN_SRC emacs-lisp
    5461(use-package emojify
    5562  :config
    56   (global-emojify-mode))
    57 #+END_SRC
     63  (global-emojify-mode)
     64  (global-emojify-mode-line-mode))
     65   #+END_SRC
    5866
    5967* Редактирование кода в общем
    60 ** Линтер Flymake [built-in]
    61 #+BEGIN_SRC emacs-lisp
    62     ;;  Live-checking text
    63     (use-package flymake)
    64 
    65   (global-flycheck-mode)
    66 #+END_SRC
     68** Файловый менеджер
     69   #+BEGIN_SRC emacs-lisp
     70   (require 'dired)
     71   (setq dired-async-mode t)
     72
     73   ;; Show files in kilobytes
     74   (setq dired-listing-switches "-alh")
     75
     76   (defun xah-dired-sort ()
     77  "Sort dired dir listing in different ways.
     78Prompt for a choice.
     79URL `http://ergoemacs.org/emacs/dired_sort.html'
     80Version 2018-12-23"
     81  (interactive)
     82  (let ($sort-by $arg)
     83    (setq $sort-by (ido-completing-read "Sort by:" '( "date" "size" "name" )))
     84    (cond
     85     ((equal $sort-by "name") (setq $arg "-Al "))
     86     ((equal $sort-by "date") (setq $arg "-Al -t"))
     87     ((equal $sort-by "size") (setq $arg "-Al -S"))
     88     ;; ((equal $sort-by "dir") (setq $arg "-Al --group-directories-first"))
     89     (t (error "logic error 09535" )))
     90    (dired-sort-other $arg )))
     91
     92    (define-key dired-mode-map (kbd "s") 'xah-dired-sort)
     93   #+END_SRC
     94** Линтер
     95   #+BEGIN_SRC emacs-lisp
     96     ;;  Live-checking text
     97     ;; (use-package flymake
     98     ;;   :hook (prog-mode . flymake-mode))
     99
     100     (use-package flycheck
     101        :config
     102        (global-flycheck-mode))
     103   #+END_SRC
    67104** Дерево отмен
    68 #+BEGIN_SRC emacs-lisp
     105   #+BEGIN_SRC emacs-lisp
    69106  ;;; Undo system
    70107   (use-package undo-tree
    71108     :diminish
    72109     :config (global-undo-tree-mode))
    73 #+END_SRC
    74 
     110   #+END_SRC
     111
     112** Дерево проекта
     113   #+BEGIN_SRC emacs-lisp
     114   (use-package treemacs
     115     :ensure)
     116
     117   (use-package lsp-treemacs
     118     :ensure
     119     :config
     120     (lsp-treemacs-sync-mode 1))
     121   #+END_SRC
    75122** Автоформатирование
    76 #+BEGIN_SRC emacs-lisp
     123   #+BEGIN_SRC emacs-lisp
    77124;;; Autoformatting code
    78125(use-package aggressive-indent
    79126  :ensure t
    80127  :config (global-aggressive-indent-mode))
    81 #+END_SRC
     128   #+END_SRC
    82129** SSH
    83 #+BEGIN_SRC emacs-lisp
     130   #+BEGIN_SRC emacs-lisp
    84131(use-package ssh-agency
    85132:ensure)
    86133(use-package pass
    87134:ensure)
    88 #+END_SRC
     135   #+END_SRC
    89136** Система контроля версий
    90137   Я использую встроенный модуль VC
    91138   (VC > Magit)
    92139*** Пометки о модифицированных строках
    93      Если строка добавлена, удалена или отредактирована относительно
    94      текущего git проекта, то строка помечается зеленым, красным или
    95      желтым цветом соответственно.
    96 
    97 #+BEGIN_SRC emacs-lisp
     140    Если строка добавлена, удалена или отредактирована относительно
     141    текущего git проекта, то строка помечается зеленым, красным или
     142    желтым цветом соответственно.
     143
     144    #+BEGIN_SRC emacs-lisp
    98145;;; Show added & removed git lines
    99146(use-package git-gutter+
    100147  :ensure t
     148  :diminish
    101149  :config
    102150  (global-git-gutter+-mode)
    … …  
    120168    (define-key git-gutter+-mode-map (kbd "C-x C") 'git-gutter+-stage-and-commit)
    121169    (define-key git-gutter+-mode-map (kbd "C-x C-y") 'git-gutter+-stage-and-commit-whole-buffer)
    122     (define-key git-gutter+-mode-map (kbd "C-x U") 'git-gutter+-unstage-whole-buffer))
    123   :diminish (git-gutter+-mode . "gg"))
    124 #+END_SRC
     170    (define-key git-gutter+-mode-map (kbd "C-x U") 'git-gutter+-unstage-whole-buffer)))
     171    #+END_SRC
    125172** Буфер обмена
    126 #+BEGIN_SRC emacs-lisp
     173   #+BEGIN_SRC emacs-lisp
    127174  (use-package browse-kill-ring
    128175    :ensure
    129176    :config (browse-kill-ring-default-keybindings))
    130 #+END_SRC
     177   #+END_SRC
    131178** Прыжки
    132 #+BEGIN_SRC emacs-lisp
     179   #+BEGIN_SRC emacs-lisp
    133180(use-package avy
    134181  :config
    135182  (define-key global-map (kbd "C-c s") 'avy-goto-char)
    136183  (define-key global-map (kbd "C-c l") 'avy-goto-line))
    137 #+END_SRC
     184
     185(use-package ace-jump-mode
     186  :config
     187  (global-set-key (kbd "M-o") 'ace-window))
     188   #+END_SRC
     189** Сниппеты
     190   #+BEGIN_SRC emacs-lisp
     191   (use-package yasnippet
     192   :config (yas-global-mode))
     193   #+END_SRC
    138194** Поиск (ivy + swiper + councel)
    139 #+BEGIN_SRC emacs-lisp
    140   (use-package swiper
    141     :ensure t)
    142 #+END_SRC
    143 
    144 #+BEGIN_SRC emacs-lisp
    145   (use-package counsel
    146     :ensure t)
    147 #+END_SRC
    148 
    149 #+BEGIN_SRC emacs-lisp
     195   #+BEGIN_SRC emacs-lisp
    150196  (use-package ivy
    151197      :diminish
    … …  
    156202      (global-set-key (kbd "C-c C-r") 'ivy-resume)
    157203      (global-set-key (kbd "<f6>") 'ivy-resume)
    158       (global-set-key (kbd "M-x") 'counsel-M-x)
    159       (global-set-key (kbd "C-x C-f") 'counsel-find-file)
    160       (global-set-key (kbd "<f1> f") 'counsel-describe-function)
    161       (global-set-key (kbd "<f1> v") 'counsel-describe-variable)
    162       (global-set-key (kbd "<f1> l") 'counsel-find-library)
    163       (global-set-key (kbd "<f2> i") 'counsel-info-lookup-symbol)
    164       (global-set-key (kbd "<f2> u") 'counsel-unicode-char)
    165       (global-set-key (kbd "C-c g") 'counsel-git)
    166       (global-set-key (kbd "C-c j") 'counsel-git-grep)
    167       (global-set-key (kbd "C-c k") 'counsel-ag)
    168       (global-set-key (kbd "C-x l") 'counsel-locate)
    169       (global-set-key (kbd "C-S-o") 'counsel-rhythmbox)
     204      ;;(global-set-key (kbd "M-x") 'counsel-M-x)
    170205      (define-key minibuffer-local-map (kbd "C-r")
    171206      'counsel-minibuffer-history)
    172207      (ivy-mode 1))
    173 #+END_SRC
     208   #+END_SRC
    174209** Автодополнение
    175 #+BEGIN_SRC emacs-lisp
     210   #+BEGIN_SRC emacs-lisp
    176211(use-package pos-tip
    177212  :ensure t)
    … …  
    192227  :after company pos-tip
    193228  :config (company-quickhelp-mode))
    194 #+END_SRC
     229   #+END_SRC
    195230** Проекты
    196 #+BEGIN_SRC emacs-lisp
     231   #+BEGIN_SRC emacs-lisp
    197232;;; Project Management
    198233(use-package projectile
    … …  
    202237  :config
    203238  (projectile-global-mode))
    204 #+END_SRC
     239   #+END_SRC
    205240** Переход к определению
    206 #+BEGIN_SRC emacs-lisp
     241   #+BEGIN_SRC emacs-lisp
    207242;;; Jump to defenition
    208243(use-package dumb-jump
    … …  
    212247         ("M-g x" . dumb-jump-go-prefer-external)
    213248         ("M-g z" . dumb-jump-go-prefer-external-other-window)))
    214 #+END_SRC
     249   #+END_SRC
    215250
    216251** Ширина строки -- 80 символов
    217 #+BEGIN_SRC emacs-lisp
     252   #+BEGIN_SRC emacs-lisp
    218253  ;;; 80 column width limit highlighter
    219254(use-package column-enforce-mode
    … …  
    222257  :config
    223258  (80-column-rule))
    224 #+END_SRC
     259   #+END_SRC
    225260** Подсвечивание парных скобок
    226 #+BEGIN_SRC emacs-lisp
     261   #+BEGIN_SRC emacs-lisp
    227262;;; Show pair for a parenthesis
    228263(show-paren-mode)
    229 #+END_SRC
     264   #+END_SRC
    230265
    231266** Ввод парных скобок и кавычек
    232 #+BEGIN_SRC emacs-lisp
     267   #+BEGIN_SRC emacs-lisp
    233268;;; Input of pair delimiters
    234 (electric-pair-mode)
    235 #+END_SRC
     269;;(electric-pair-mode)
     270   #+END_SRC
    236271
    237272** Изменённое поведение биндов C-a и C-e
    238 #+BEGIN_SRC emacs-lisp
     273   #+BEGIN_SRC emacs-lisp
    239274;;; Change Move to end & beginning of the line behavior
    240275(use-package mwim
    … …  
    243278  (global-set-key (kbd "C-a") 'mwim-beginning)
    244279  (global-set-key (kbd "C-e") 'mwim-end))
    245 #+END_SRC
     280   #+END_SRC
    246281** Удаление лишних пробелов при сохранении
    247 #+BEGIN_SRC emacs-lisp
     282   #+BEGIN_SRC emacs-lisp
    248283;;; Delete trailing whitespace on save
    249284(use-package whitespace-cleanup-mode
    250285  :diminish
    251286  :config (global-whitespace-cleanup-mode))
    252 #+END_SRC
     287   #+END_SRC
    253288** EditorConfig
    254 #+BEGIN_SRC emacs-lisp
     289   #+BEGIN_SRC emacs-lisp
    255290;;; Editor Config support
    256291(use-package editorconfig
    … …  
    258293  :config
    259294  (editorconfig-mode 1))
    260 #+END_SRC
     295   #+END_SRC
    261296** Редактирование суперпользователем
    262 #+BEGIN_SRC emacs-lisp
     297   #+BEGIN_SRC emacs-lisp
    263298;;; Edit with root user
    264299(use-package sudo-edit)
    265 #+END_SRC
     300   #+END_SRC
    266301* Языки программирования
     302** LSP (автодополнение для языков) и DAP (дебаг)
     303   #+BEGIN_SRC emacs-lisp
     304        (use-package lsp-mode
     305         :hook  (scala-mode . lsp)
     306                (lsp-mode . lsp-enable-which-key-integration)
     307                (lsp-mode . lsp-lens-mode)
     308         :config (setq lsp-prefer-flymake nil))
     309
     310         (use-package company-lsp
     311           :config (push 'company-lsp company-backends))
     312
     313        ;;(use-package lsp-metals)
     314
     315        (use-package lsp-ui)
     316
     317        (use-package lsp-ivy)
     318
     319        (use-package company-lsp)
     320
     321     (use-package posframe
     322       :ensure)
     323
     324     (use-package dap-mode
     325       :ensure
     326       :hook
     327       (lsp-mode . dap-mode)
     328       (lsp-mode . dap-ui-mode))
     329
     330     (use-package lsp-java
     331       :ensure
     332       :hook (java-mode . lsp-mode))
     333
     334     ;; (use-package dap-java
     335     ;;   :ensure nil)
     336   #+END_SRC
    267337** LISP
    268338*** Разукрашивание скобок в лиспах
    269 #+BEGIN_SRC emacs-lisp
     339    #+BEGIN_SRC emacs-lisp
    270340;;; Color parens
    271341(use-package rainbow-delimiters
    272342  :hook ((prog-mode . rainbow-delimiters-mode)))
    273 #+END_SRC
     343    #+END_SRC
    274344
    275345*** Редактирование скобок
    276 #+BEGIN_SRC emacs-lisp
     346    #+BEGIN_SRC emacs-lisp
    277347;;; Parens editing
    278348(use-package paredit)
    279 #+END_SRC
     349    #+END_SRC
    280350*** Автокомлпит Scheme
    281 #+BEGIN_SRC emacs-lisp
     351    #+BEGIN_SRC emacs-lisp
    282352(use-package scheme-complete
    283353  :after company)
    284 #+END_SRC
     354    #+END_SRC
    285355*** REPL Scheme
    286 #+BEGIN_SRC emacs-lisp
     356    #+BEGIN_SRC emacs-lisp
    287357(use-package geiser)
    288 #+END_SRC
     358    #+END_SRC
    289359** Python
    290360*** Elpy
    291 #+BEGIN_SRC emacs-lisp
     361    #+BEGIN_SRC emacs-lisp
    292362  ;; (use-package elpy
    293363  ;;   :ensure t
    … …  
    303373  ;;   ("C-c p" . elpy-autopep8-fix-code)
    304374  ;;   ("C-c b" . elpy-black-fix-code))
    305 #+END_SRC
     375    #+END_SRC
    306376*** Anaconda
    307 #+BEGIN_SRC emacs-lisp
     377    #+BEGIN_SRC emacs-lisp
    308378  ;; (use-package anaconda-mode
    309379  ;;   :ensure
    310380  ;;   :hook (python-mode . anaconda-mode)
    311381  ;;   (python-mode . anaconda-eldoc-mode))
    312 #+END_SRC
     382    #+END_SRC
    313383*** Jinja2
    314 #+BEGIN_SRC emacs-lisp
     384    #+BEGIN_SRC emacs-lisp
    315385(use-package jinja2-mode
    316386  :ensure t)
    317 #+END_SRC
     387    #+END_SRC
    318388*** Автодополнение
    319 #+BEGIN_SRC emacs-lisp
     389    #+BEGIN_SRC emacs-lisp
    320390  ;; (use-package company-anaconda
    321391  ;;   :ensure
    … …  
    323393  ;;   :config
    324394  ;;   (add-to-list 'company-backends '(company-anaconda :with company-capf)))
    325 #+END_SRC
     395    #+END_SRC
    326396*** Документация
    327 #+BEGIN_SRC emacs-lisp
     397    #+BEGIN_SRC emacs-lisp
    328398;;; Access python documentation
    329399(use-package pydoc
    330400  :commands pydoc
    331401  :config (setq pydoc-command "python3 -m pydoc"))
    332 #+END_SRC
     402    #+END_SRC
    333403** Javascript
    334404*** Основной мод
    335 #+BEGIN_SRC emacs-lisp
     405    #+BEGIN_SRC emacs-lisp
    336406;;; Javascript
    337407(use-package js2-mode
    … …  
    347417              (define-key js-mode-map (kbd "C-c C-l") 'nodejs-repl-load-file)
    348418              (define-key js-mode-map (kbd "C-c C-z") 'nodejs-repl-switch-to-repl))))
    349 #+END_SRC
     419    #+END_SRC
    350420*** Node.js REPL
    351 #+BEGIN_SRC emacs-lisp
     421    #+BEGIN_SRC emacs-lisp
    352422;;; Node.js Repl
    353423(use-package nodejs-repl)
    354 #+END_SRC
     424    #+END_SRC
    355425*** Typescript
    356 #+BEGIN_SRC emacs-lisp
     426    #+BEGIN_SRC emacs-lisp
    357427;;; Typescript support
    358428(use-package typescript-mode)
    359 #+END_SRC
     429    #+END_SRC
    360430*** Vue.js
    361 #+BEGIN_SRC emacs-lisp
     431    #+BEGIN_SRC emacs-lisp
    362432;;; Vue
    363433(use-package vue-mode
    364434  :ensure
    365435  :config (setq mmm-submode-decoration-level 0))
    366 #+END_SRC
     436    #+END_SRC
     437** Scala
     438*** REPL
     439    #+BEGIN_SRC emacs-lisp
     440      ;; (use-package ammonite-term-repl
     441      ;;   :ensure
     442      ;;   :hook (scala-mode . ammonite-term-repl-minor-mode))
     443    #+END_SRC
     444*** Scala-mode
     445    #+BEGIN_SRC emacs-lisp
     446  (use-package scala-mode
     447    :ensure
     448    :mode "\\.s\\(cala\\|bt\\)$")
     449    #+END_SRC
     450*** Sbt-mode
     451    #+BEGIN_SRC emacs-lisp
     452  (use-package sbt-mode
     453  :ensure
     454  :commands sbt-start sbt-command
     455  :config
     456  ;; WORKAROUND: https://github.com/ensime/emacs-sbt-mode/issues/31
     457  ;; allows using SPACE when in the minibuffer
     458  (substitute-key-definition
     459   'minibuffer-complete-word
     460   'self-insert-command
     461   minibuffer-local-completion-map)
     462   ;; sbt-supershell kills sbt-mode:  https://github.com/hvesalai/emacs-sbt-mode/issues/152
     463   (setq sbt:program-options '("-Dsbt.supershell=false")))
     464    #+END_SRC
    367465** Haskell
    368466*** Основной мод
    369 #+BEGIN_SRC emacs-lisp
     467    #+BEGIN_SRC emacs-lisp
    370468;;; Haskell
    371469(use-package haskell-mode)
    372 #+END_SRC
     470    #+END_SRC
    373471*** Окружение разработки
    374 #+BEGIN_SRC emacs-lisp
     472    #+BEGIN_SRC emacs-lisp
    375473;;; Haskell support
    376474(use-package intero
    … …  
    378476  :after haskell-mode
    379477  :config (add-hook 'haskell-mode-hook 'intero-mode))
    380 #+END_SRC
     478    #+END_SRC
    381479** Лиспы в целом
    382480*** Lispy
    383 #+BEGIN_SRC elisp
     481    #+BEGIN_SRC elisp
    384482(use-package lispy)
    385 #+END_SRC
     483    #+END_SRC
    386484*** Parinfer
    387 #+BEGIN_SRC elisp
     485    #+BEGIN_SRC elisp
    388486(use-package parinfer
    389487  :after lispy
    … …  
    393491  (progn
    394492    (setq parinfer-extensions
    395           '(defaults       ; should be included.
    396             pretty-parens  ; different paren styles for different modes.
    397             lispy          ; If you use Lispy. With this extension, you should install Lispy and do not enable lispy-mode directly.
    398             paredit        ; Introduce some paredit commands.
    399             smart-tab      ; C-b & C-f jump positions and smart shift with tab & S-tab.
    400             smart-yank))   ; Yank behavior depend on mode.
     493          '(defaults
     494            pretty-parens
     495            lispy
     496            paredit
     497            smart-tab
     498            smart-yank))
    401499    (add-hook 'clojure-mode-hook #'parinfer-mode)
    402500    (add-hook 'emacs-lisp-mode-hook #'parinfer-mode)
    … …  
    404502    (add-hook 'scheme-mode-hook #'parinfer-mode)
    405503    (add-hook 'lisp-mode-hook #'parinfer-mode)))
    406 #+END_SRC
     504    #+END_SRC
    407505** Clojure
    408506*** Mode
    409 #+BEGIN_SRC elisp
     507    #+BEGIN_SRC elisp
    410508(use-package clojure-mode)
    411 #+END_SRC
     509    #+END_SRC
    412510*** REPL
    413 #+BEGIN_SRC emacs-lisp
     511    #+BEGIN_SRC emacs-lisp
    414512;;; Clojure REPL
    415513(use-package cider)
    416 #+END_SRC
     514    #+END_SRC
    417515*** Рефакторинг
    418 #+BEGIN_SRC elisp
     516    #+BEGIN_SRC elisp
    419517(use-package clj-refactor
    420518  :ensure t
    … …  
    422520  :config
    423521  ((cljr-add-keybindings-with-prefix "C-c C-m")))
    424 #+END_SRC
     522    #+END_SRC
    425523** Common Lisp
    426524*** REPL
    427 #+BEGIN_SRC emacs-lisp
     525    #+BEGIN_SRC emacs-lisp
    428526(use-package slime
    429527  :config
    430528
    431529  (setq slime-contribs '(slime-fancy slime-repl slime-banner)))
    432 #+END_SRC
     530    #+END_SRC
    433531** Fennel
    434 #+BEGIN_SRC emacs-lisp
     532   #+BEGIN_SRC emacs-lisp
    435533(use-package fennel-mode
    436534  :ensure
    … …  
    443541        (format "(lume.hotswap \"%s\")\n"
    444542                (substring (file-name-nondirectory (buffer-file-name)) 0 -4))))))
    445 #+END_SRC
     543   #+END_SRC
    446544* Языки декларирования
    447545** SQL
    448 #+BEGIN_SRC emacs-lisp
     546   #+BEGIN_SRC emacs-lisp
    449547
    450548(use-package emacsql)
    451 #+END_SRC
     549   #+END_SRC
    452550** Веб шаблоны
    453551*** Web-mode
    454 #+BEGIN_SRC emacs-lisp
     552    #+BEGIN_SRC emacs-lisp
    455553;;; Templates
    456554(use-package web-mode
    … …  
    461559  (setq web-mode-enable-current-element-highlight t)
    462560  (setq web-mode-enable-current-column-highlight t))
    463 #+END_SRC
     561    #+END_SRC
    464562** Org-mode
    465 #+BEGIN_SRC emacs-lisp
     563   #+BEGIN_SRC emacs-lisp
    466564;;; org
    467565(use-package org
    … …  
    472570  (global-set-key (kbd "C-c c") 'org-capture)
    473571
    474 (setq org-capture-templates
    475       (quote (("t" "todo" entry (file "~/git/org/refile.org")
    476                "* TODO %?\n%U\n%a\n" :clock-in t :clock-resume t)
    477               ("r" "respond" entry (file "~/git/org/refile.org")
    478                "* NEXT Respond to %:from on %:subject\nSCHEDULED: %t\n%U\n%a\n" :clock-in t :clock-resume t :immediate-finish t)
    479               ("n" "note" entry (file "~/git/org/refile.org")
    480                "* %? :NOTE:\n%U\n%a\n" :clock-in t :clock-resume t)
    481               ("j" "Journal" entry (file+datetree "~/git/org/diary.org")
    482                "* %?\n%U\n" :clock-in t :clock-resume t)
    483               ("w" "org-protocol" entry (file "~/git/org/refile.org")
    484                "* TODO Review %c\n%U\n" :immediate-finish t)
    485               ("m" "Meeting" entry (file "~/git/org/refile.org")
    486                "* MEETING with %? :MEETING:\n%U" :clock-in t :clock-resume t)
    487               ("p" "Phone call" entry (file "~/git/org/refile.org")
    488                "* PHONE %? :PHONE:\n%U" :clock-in t :clock-resume t)
    489               ("h" "Habit" entry (file "~/git/org/refile.org")
    490                "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"%<<%Y-%m-%d %a .+1d/3d>>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n"))))
    491 
    492   (setq org-modules (quote (org-bbdb
    493                           org-bibtex
    494                           org-crypt
    495                           org-gnus
    496                           org-id
    497                           org-info
    498                           org-habit
    499                           org-inlinetask
    500                           org-irc
    501                           org-mhe
    502                           org-protocol
    503                           org-w3m)))
    504572  (setq org-todo-keywords
    505573        (quote ((sequence "TODO(t)" "MIGRATE(m)" "|" "DONE(d)")
    … …  
    514582                ("MEETING" :foreground "forest cyan" :weight bold)
    515583                ("PHONE" :foreground "blue" :weight bold)))))
    516 #+END_SRC
     584   #+END_SRC
    517585*** Пункты списка для org-mode
    518 #+BEGIN_SRC emacs-lisp
     586    #+BEGIN_SRC emacs-lisp
    519587;;; Bullets for org-mode
    520588(use-package org-bullets
    521589  :commands org-bullets-mode
    522590  :hook (org-mode . org-bullets-mode))
    523 #+END_SRC
     591    #+END_SRC
    524592*** Агенда
    525 #+BEGIN_SRC emacs-lisp
     593    #+BEGIN_SRC emacs-lisp
    526594;;; Org-mode Setup
    527595(setq org-agenda-files (list
    528596                        "~/Documents/life.org"))
    529 #+END_SRC
     597    #+END_SRC
    530598*** Техника pomodoro
    531 #+BEGIN_SRC emacs-lisp
     599    #+BEGIN_SRC emacs-lisp
    532600;;; Pomodoro technique tracking for org-mode
    533601(use-package org-pomodoro)
    534 #+END_SRC
     602    #+END_SRC
    535603*** Ведение журнала
    536 #+BEGIN_SRC emacs-lisp
     604    #+BEGIN_SRC emacs-lisp
    537605;;; Journal
    538606(use-package org-journal
    539607  :ensure)
    540 #+END_SRC
     608    #+END_SRC
    541609*** Презентации
    542 #+BEGIN_SRC emacs-lisp
     610    #+BEGIN_SRC emacs-lisp
    543611;;; Presentation
    544612(use-package epresent
    545613  :ensure t)
    546 #+END_SRC
     614    #+END_SRC
    547615** Markdown
    548616*** Превью
    549 #+BEGIN_SRC emacs-lisp
     617    #+BEGIN_SRC emacs-lisp
    550618;;; Markdown preview
    551619(use-package flymd
    552620  :ensure)
    553 #+END_SRC
     621    #+END_SRC
    554622** Lilypond
    555 #+BEGIN_SRC emacs-lisp
     623   #+BEGIN_SRC emacs-lisp
    556624;;; Lilypond
    557625(progn
    … …  
    566634  :ensure
    567635  :after flycheck)
    568 #+END_SRC
     636   #+END_SRC
    569637* Коммуникации
    570638*** IRC
    571 #+BEGIN_SRC emacs-lisp
     639    #+BEGIN_SRC emacs-lisp
    572640;;; IRC
    573641(use-package erc
    574642  :ensure)
    575 #+END_SRC
     643    #+END_SRC
    576644*** Telegram
    577 #+BEGIN_SRC emacs-lisp
     645    #+BEGIN_SRC emacs-lisp
    578646;;; Telegram client
    579647(use-package telega
    580648  :config
    581649(telega-mode-line-mode 1)
    582 (setq telega-chat-fill-column 60))
    583 #+END_SRC
     650(setq telega-chat-fill-column 60)
     651(setq telega-sticker-size '(8 . 32))
     652(setq telega-animation-height 8)
     653(setq telega-video-note-height 8)
     654(setq telega-user-use-avatars t)
     655(setq telega-root-show-avatars t))
     656    #+END_SRC
    584657*** Email
    585658**** Конвертирование org в html
    586 #+BEGIN_SRC emacs-lisp
     659     #+BEGIN_SRC emacs-lisp
    587660;;; convert org to html in gnus
    588661(use-package org-mime
    589662  :ensure)
    590 #+END_SRC
     663     #+END_SRC
    591664*** GNUPG
    592665**** Ввод ключей
    593 #+BEGIN_SRC emacs-lisp
     666     #+BEGIN_SRC emacs-lisp
    594667;;; Dialog program for entering password
    595668(use-package pinentry
    … …  
    597670  (setq epa-pinentry-mode 'loopback)
    598671  (pinentry-start))
    599 #+END_SRC
     672     #+END_SRC
    600673* Разное
    601674** Минорные твики дефолтного имакса
    602675*** Улучшение производительности в больших файлах
    603 #+BEGIN_SRC emacs-lisp
    604   (use-package so-long
    605     :config (global-so-long-mode 1))
    606 #+END_SRC
     676    #+BEGIN_SRC emacs-lisp
     677      ;; (use-package so-long
     678      ;;   :config (global-so-long-mode 0))
     679    #+END_SRC
    607680*** Скрыть бары и скролл
    608 #+BEGIN_SRC emacs-lisp
    609 ;;; Disable emacs gui
    610 (menu-bar-mode -1)
    611 (scroll-bar-mode -1)
    612 (tool-bar-mode -1)
    613 (tooltip-mode -1)
    614 #+END_SRC
     681    #+BEGIN_SRC emacs-lisp
     682    ;;; Disable emacs gui
     683    (menu-bar-mode -1)
     684    (scroll-bar-mode -1)
     685    (tool-bar-mode -1)
     686    (tooltip-mode t)
     687    (setq use-dialog-box nil)
     688    (setq redisplay-dont-pause t)
     689    #+END_SRC
    615690*** Не спрашивать о несуществующих буферах
    616 #+BEGIN_SRC emacs-lisp
     691    #+BEGIN_SRC emacs-lisp
    617692(setq-default confirm-nonexistent-file-or-buffer t)
    618 #+END_SRC
     693    #+END_SRC
    619694*** Спрашивать покороче
    620695    Не спрашивать yes/no, вместо этого спрашивать y/n
    621 #+BEGIN_SRC emacs-lisp
     696    #+BEGIN_SRC emacs-lisp
    622697;;; Short messages
    623698(defalias 'yes-or-no-p 'y-or-n-p)
    624 #+END_SRC
     699    #+END_SRC
    625700*** Сохранение позиции курсора
    626 #+BEGIN_SRC emacs-lisp
     701    #+BEGIN_SRC emacs-lisp
    627702(setq
    628703 save-place-forget-unreadable-files t
    … …  
    630705
    631706(save-place-mode 1)
    632 #+END_SRC
     707    #+END_SRC
    633708*** Мигающий курсор
    634 #+BEGIN_SRC emacs-lisp
     709    #+BEGIN_SRC emacs-lisp
    635710  (blink-cursor-mode 1)
    636 #+END_SRC
     711    #+END_SRC
    637712*** Переменная PATH в eshell
    638 #+BEGIN_SRC emacs-lisp
     713    #+BEGIN_SRC emacs-lisp
    639714(use-package exec-path-from-shell
    640715  :config
    … …  
    642717    (exec-path-from-shell-initialize)
    643718    (exec-path-from-shell-copy-env "PATH")))
    644 #+END_SRC
     719    #+END_SRC
    645720*** Не создавать лишних файлов
    646 #+BEGIN_SRC emacs-lisp
     721    #+BEGIN_SRC emacs-lisp
    647722  (setq create-lockfiles nil
    648723   make-backup-files nil        ; disable backup files
    649724   auto-save-list-file-name nil ; disable .saves files
    650725   auto-save-default nil)        ; disable auto saving
    651 #+END_SRC
     726    #+END_SRC
    652727*** Отображение номера колонки
    653 #+BEGIN_SRC emacs-lisp
     728    #+BEGIN_SRC emacs-lisp
    654729(column-number-mode)
    655 #+END_SRC
     730    #+END_SRC
     731*** Убить буфер
     732    #+BEGIN_SRC emacs-lisp
     733(substitute-key-definition 'kill-buffer 'kill-buffer-and-window global-map)
     734    #+END_SRC
     735*** Аутлайн для лиспа на основе уровней комментов
     736    #+BEGIN_SRC emacs-lisp
     737(use-package outshine
     738  :hook (emacs-lisp-mode-hook . outshine-mode))
     739    #+END_SRC
     740** Полный экран
     741   #+BEGIN_SRC emacs-lisp
     742(use-package maxframe
     743  :ensure
     744  :hook (window-setup-hook . maximize-frame))
     745   #+END_SRC
    656746** Which-key
    657 #+BEGIN_SRC emacs-lisp
     747   #+BEGIN_SRC emacs-lisp
    658748  (use-package which-key
     749    :diminish
    659750    :config
    660751    (setq which-key-show-early-on-C-h t)
    … …  
    665756    (setq which-key-sort-order 'which-key-prefix-then-key-order)
    666757    (which-key-mode))
    667 #+END_SRC
     758   #+END_SRC
    668759** Системные пакеты
    669760*** Docker
    670 #+BEGIN_SRC emacs-lisp
     761    #+BEGIN_SRC emacs-lisp
    671762;;; Manage docker in emacs
    672763(use-package docker
    673764  :ensure-system-package docker
    674765  :bind ("C-c d" . docker))
    675 #+END_SRC
     766    #+END_SRC
    676767*** EMMS
    677 #+BEGIN_SRC emacs-lisp
     768    #+BEGIN_SRC emacs-lisp
    678769  (use-package emms
    679770    :config
    … …  
    683774   (setq emms-player-list '(emms-player-mpg321 emms-player-ogg123
    684775                         emms-player-mplayer)))
    685 #+END_SRC
     776    #+END_SRC
    686777** Баг-трекеры
    687778*** Debbugs
    688 #+BEGIN_SRC emacs-lisp
     779    #+BEGIN_SRC emacs-lisp
    689780;;; Bug-Tracker DebBugs
    690781(use-package debbugs)
    691 #+END_SRC
     782    #+END_SRC
    692783** Демонстрация нажатий и команд
    693 #+BEGIN_SRC emacs-lisp
     784   #+BEGIN_SRC emacs-lisp
    694785(use-package keycast
    695786  :ensure)
    696 #+END_SRC
     787   #+END_SRC
    697788** HTTP сервер
    698 #+BEGIN_SRC emacs-lisp
     789   #+BEGIN_SRC emacs-lisp
    699790;;; HTTP server
    700791(use-package simple-httpd)
    701 #+END_SRC
     792   #+END_SRC
    702793
    703794** REST клиент
    704 #+BEGIN_SRC emacs-lisp
     795   #+BEGIN_SRC emacs-lisp
    705796;;; Rest client
    706797(use-package restclient)
    707 #+END_SRC
     798   #+END_SRC
    708799** PDF
    709 #+BEGIN_SRC emacs-lisp
     800   #+BEGIN_SRC emacs-lisp
    710801  ;;; PDF Tools
    711802  (use-package pdf-tools
    … …  
    713804    :config
    714805    (pdf-loader-install))
    715 #+END_SRC
     806   #+END_SRC
    716807** Показать пробелы
    717 #+BEGIN_SRC emacs-lisp
     808   #+BEGIN_SRC emacs-lisp
    718809   (use-package whitespace
    719810    :config (global-set-key (kbd "C-c w") 'whitespace-mode))
    720 #+END_SRC
     811   #+END_SRC
    721812** Управление финансами
    722 #+BEGIN_SRC emacs-lisp
     813   #+BEGIN_SRC emacs-lisp
    723814;;; Accounting
    724815(use-package ledger-mode)
    725 #+END_SRC
     816   #+END_SRC
    726817** Скрытие минорных модов
    727 #+BEGIN_SRC emacs-lisp
     818   #+BEGIN_SRC emacs-lisp
    728819;;; hide some minor modes
    729820(use-package diminish)
    730 #+END_SRC
     821   #+END_SRC
    731822** Автосохранение в /tmp
    732 #+BEGIN_SRC emacs-lisp
     823   #+BEGIN_SRC emacs-lisp
    733824(setq backup-directory-alist
    734825      `((".*" . ,temporary-file-directory)))
    735826(setq auto-save-file-name-transforms
    736827      `((".*" ,temporary-file-directory t)))
    737 #+END_SRC
     828   #+END_SRC
    738829** Увеличение/уменьшение шрифта
    739 #+BEGIN_SRC emacs-lisp
     830   #+BEGIN_SRC emacs-lisp
    740831(defun zoom-in ()
    741832  (interactive)
    … …  
    752843(define-key global-map (kbd "C-1") 'zoom-in)
    753844(define-key global-map (kbd "C-0") 'zoom-out)
    754 #+END_SRC
     845   #+END_SRC
    755846** Отключить бипы
    756 #+BEGIN_SRC emacs-lisp
     847   #+BEGIN_SRC emacs-lisp
    757848(setq visible-bell t)
    758 #+END_SRC
     849   #+END_SRC
     850** Обнаруживать просадки
     851   #+BEGIN_SRC emacs-lisp
     852     ;; (use-package explain-pause-mode
     853     ;;   :quelpa (explain-pause-mode :fetcher github :repo "lastquestion/explain-pause-mode")
     854     ;;   :diminish
     855     ;;   :config (setq explain-pause-blocking-too-long-ms 200)
     856     ;;           (explain-pause-mode))
     857   #+END_SRC

  • guix/.bash_profile

    rbc317cb r0d64484  
     1export PATH=$PATH:~/.bin
     2
    13# Honor per-interactive-shell startup file
    24if [ -f ~/.bashrc ]; then . ~/.bashrc; fi

  • guix/.bashrc

    rbc317cb r0d64484  
    66export SHELL
    77
    8 if [[ $- != *i* ]]
    9 then
    10     # We are being invoked from a non-interactive shell.  If this
    11     # is an SSH session (as in "ssh host command"), source
    12     # /etc/profile so we get PATH and other essential variables.
    13     [[ -n "$SSH_CLIENT" ]] && source /etc/profile
     8# if [[ $- != *i* ]]
    149
    15     # Don't do anything else.
    16     return
    17 fi
     10#    # We are being invoked from a non-interactive shell.  If this
     11#    # is an SSH session (as in "ssh host command"), source
     12#    # /etc/profile so we get PATH and other essential variables.
     13#    [[ -n "$SSH_CLIENT" ]] && source /etc/profile
     14
     15#    # Don't do anything else.
     16#    return
     17# fi
    1818
    1919# Source the system-wide file.
    … …  
    2323if [ -n "$GUIX_ENVIRONMENT" ]
    2424then
    25     PS1='\033[1;33m\]\w [env] \$ \033[0m'
     25    export PS1="\w [env] \$"
    2626else
    27     PS1='\033[1;33m\]\w \$ \033[0m'
     27    export PS1="\[$(tput bold; tput setaf 3;)\]\w \$ \[$(tput sgr0)\]"
    2828fi
    2929alias ls='ls -p --color=auto'
    3030alias ll='ls -l'
    3131alias grep='grep --color=auto'
     32
     33# Welcome message
     34printf "Welcome to bash shell\n\n"
     35
     36# THIS MUST BE AT THE END OF THE FILE FOR SDKMAN TO WORK!!!
     37export SDKMAN_DIR="/home/w96k/.sdkman"
     38[[ -s "/home/w96k/.sdkman/bin/sdkman-init.sh" ]] && source "/home/w96k/.sdkman/bin/sdkman-init.sh"

  • guix/.zshrc

    rbc317cb r0d64484  
    1515
    1616#source /run/current-system/profile/etc/profile.d/nix.sh
     17
     18#THIS MUST BE AT THE END OF THE FILE FOR SDKMAN TO WORK!!!
     19export SDKMAN_DIR="/home/w96k/.sdkman"
     20[[ -s "/home/w96k/.sdkman/bin/sdkman-init.sh" ]] && source "/home/w96k/.sdkman/bin/sdkman-init.sh"

  • guix/config.scm

    rbc317cb r0d64484  
    2626
    2727(use-package-modules
     28 
    2829 hurd
    2930 geo
    … …  
    9394
    9495;; Remove gdm (gdm is default in guix)
    95  (set! %my-services
    96    (remove (lambda (service)
     96(set! %my-services
     97  (remove (lambda (service)
    9798            (eq? (service-kind service) gdm-service-type))
    9899          %my-services))

  • guix/fresh.scm

    rbc317cb r0d64484  
    1 ;; This is an operating system configuration generated
    2 ;; by the graphical installer.
    3 
    41(use-modules (gnu)
    52             (srfi srfi-1))
    63
    7 ;;(use-modules (non-gnu packages lua-fennel))
    84(use-service-modules
    95 desktop
    … …  
    117 ssh
    128 xorg
    13  sound
    14  dbus
    159 nix)
    16 (use-package-modules wm lisp bash fonts linux)
     10
     11(use-package-modules wm lisp bash)
    1712
    1813(operating-system
    … …  
    2621     "caps:ctrl_modifier"
    2722     )))
    28  (kernel linux-libre)
    29  (kernel-arguments '("processor.max_cstate=1"  ; Disable power savings
    30                      "intel_idle.max_cstate=2" ; (cstate 3-4 provides
    31                                         ; high freq cpu noice)
    32                      "consoleblank=0"
    33                      ;;"ahci.mobile_lpm_policy=1"
    34                      "KVM"
    35                      ;;"i915.enable_guc=-1"
    36                      "i915.enable_dc=0" ; Disable cstate for gpu
     23 ;; (kernel linux-libre)
     24 (kernel-arguments
     25  '("processor.max_cstatpe=1"  ; Disable power savings
     26    "intel_idle.max_cstate=2" ; (cstate 3-4 provides
     27                                        ; high freq cpu noice)
     28    "consoleblank=0"
     29    ;;"ahci.mobile_lpm_policy=1"
     30    "KVM"
     31    ;;"i915.enable_guc=-1"
     32    ;;"i915.enable_dc=0" ; Disable cstate for gpu
    3733
    38                      "intremap=off"     ; Fix for failed to map dmar2
    39 
    40                      "logo.nologo"
    41                      "loglevel=4"
    42                      ))
     34    "intremap=off"     ; Fix for failed to map dmar2
     35   
     36    "logo.nologo"
     37    "loglevel=4"))
    4338 (initrd-modules (append '("i915") %base-initrd-modules))
    4439 (host-name "libreboot-x200t")
    45  (users (cons* (user-account
    46                 (name "w96k")
    47                 (comment "Mikhail Kirillov")
    48                 (group "users")
    49                 (home-directory "/home/w96k")
    50                 (supplementary-groups
    51                  '("wheel" "netdev" "audio" "video")))
    52                %base-user-accounts))
     40 (users
     41  (cons*
     42   (user-account
     43    (name "w96k")
     44    (comment "Mikhail Kirillov")
     45    (group "users")
     46    (home-directory "/home/w96k")
     47    (supplementary-groups
     48     '("wheel" "netdev" "audio" "video" "nixbld")))
     49   %base-user-accounts))
    5350 (packages
    5451  (append
    55    (map specification->package
    56         '("ratpoison"
    57           "xterm"
    58           "stumpwm"
    59           "nss-certs"
    60           "glibc-utf8-locales"
    61           "font-dejavu"
    62           "font-terminus"
    63           "font-fira-code"
    64           "font-fira-mono"))
    65    (list sbcl stumpwm `(,stumpwm "lib"))
     52   (map
     53    specification->package
     54    '("ratpoison"
     55      "xterm"
     56      "stumpwm"
     57      "bash"
     58      "nss-certs"
     59      "glibc-utf8-locales"
     60      "font-dejavu"
     61      "font-terminus"
     62      "font-fira-code"
     63      "font-fira-mono"
     64      "sbcl"
     65      "stumpwm"))
     66   (list `(,stumpwm "lib"))
    6667   %base-packages))
    6768
    68  (services (cons*
    69             (service openssh-service-type)
    70             (service tor-service-type)
     69 (services
     70  (cons*
     71   (service openssh-service-type)
     72   (service tor-service-type)
    7173
    72             ;;Wacom tablet support
    73             (service inputattach-service-type
    74                      (inputattach-configuration
    75                       (device "/dev/ttyS4")
    76                       (device-type "wacom")))
     74   ;;Wacom tablet support
     75   (service inputattach-service-type
     76            (inputattach-configuration
     77             (device "/dev/ttyS4")
     78             (device-type "wacom")))
     79   
     80   (extra-special-file "/bin/bash"
     81                       (file-append bash "/bin/bash"))
    7782
    78             (extra-special-file "/bin/bash"
    79                                 (file-append bash "/bin/bash"))
    80 
    81             ;;(service nix-service-type)
    82             (set-xorg-configuration
    83              (xorg-configuration
    84               (keyboard-layout keyboard-layout)))
    85             %desktop-services))
     83   (service nix-service-type)
     84   (set-xorg-configuration
     85    (xorg-configuration
     86     (keyboard-layout keyboard-layout)))
     87   %desktop-services))
    8688
    8789 (bootloader
    … …  
    9294 (swap-devices (list "/dev/sda1"))
    9395 (file-systems
    94   (cons* (file-system
    95           (mount-point "/")
    96           (device
    97            (uuid "c184f446-df67-4103-b28e-465ac8776f10"
    98                  'ext4))
    99           (type "ext4"))
    100          (file-system
    101           (mount-point "/media/hdd/")
    102           (device
    103            (uuid "71cb0818-baf3-4f7f-8bc2-7e2b0cca3488"
    104                  'ext4))
    105           (type "ext4"))
    106          
    107          %base-file-systems)))
     96  (cons*
     97   (file-system
     98    (mount-point "/")
     99    (device
     100     (uuid "c184f446-df67-4103-b28e-465ac8776f10"
     101           'ext4))
     102    (type "ext4"))
     103   ;;(file-system
     104   ;;(mount-point "/media/hdd/")
     105   ;;(device
     106   ;;  (uuid "71cb0818-baf3-4f7f-8bc2-7e2b0cca3488"
     107   ;;    'ext4))
     108   ;; (type "ext4"))
     109   
     110   %base-file-systems)))

  • wm/.stumpwmrc

    rbc317cb r0d64484  
    2828(print *time-modeline-string*)
    2929
    30 (setf *mode-line-pad-x* 8
     30(setf *mode-line-pad-x* 0
    3131      *mode-line-pad-y* 0
    3232      *mode-line-timeout* 1
    … …  
    4545      *startup-mode-line* t
    4646      *window-name-source* :class
    47       *delim* " ^2::^7 "
    48      
     47      *delim* " ^2::^7 "     
    4948      *screen-mode-line-format* (list
    5049                                 ;; Windows
    5150                                 ;;"[^4%n^b]"
    52                                  "^7%v  ^>^7"
     51                                 "^7%v  ^>"
    5352                                 ;; CPU
    54                                  "%C" *delim*
     53                                 "^7%C" *delim*
    5554                                 ;; RAM
    5655                                 "%M" *delim*
Note: See TracChangeset for help on using the changeset viewer.