# 步骤 1：备份当前状态
guix describe --format=channels > channels-backup-$(date +%Y%m%d).scm
sudo guix system describe /etc/system-backup-$(date +%Y%m%d).scm

# 步骤 2：更新通道
guix pull

# 步骤 3：测试升级（不设为默认启动项）
sudo guix system reconfigure /etc/config.scm --no-bootloader

# 步骤 4：验证系统正常
# - 检查所有服务是否运行
sudo herd status
# - 检查网络
ping -c 3 gnu.org
# - 检查关键应用

# 步骤 5：确认无问题后提交配置
cd /etc/guix-config && git add -A && git commit -m "chore: system upgrade"

# 步骤 6：如果出现问题，回滚
sudo guix system roll-back

# 项目结构
~/.config/guix/
├── channels.scm          # 通道配置（版本锁定）
├── home-configuration.scm # Guix Home 配置
└── config/                # 辅助配置文件
    ├── bashrc-extra
    ├── gitconfig-extra
    └── ssh-config

# 系统配置
/etc/guix-config/
├── config.scm            # 系统配置
├── channels-lock.scm     # 锁定的通道版本
└── README.md

# 项目级配置
project/
├── manifest.scm          # 项目依赖
├── channels.scm          # 锁定的通道版本
├── .guix-env             # 环境配置
└── README.md

;; base-config.scm — 基础配置（所有机器共享）
(define %base-system
  (operating-system
    (timezone "Asia/Shanghai")
    (locale "zh_CN.utf8")
    ;; ...通用配置
    ))

;; server-config.scm — 服务器配置
(define %server-system
  (operating-system
    (inherit %base-system)
    (host-name "server")
    (services (append
                (list (service nginx-service-type ...)
                      (service postgresql-service-type ...))
                %base-services))))

;; desktop-config.scm — 桌面配置
(define %desktop-system
  (operating-system
    (inherit %base-system)
    (host-name "desktop")
    (services (append
                (list (service gnome-desktop-service-type))
                %desktop-services))))

;; manifests/base.scm — 基础工具
(specifications->manifest
  '("vim" "git" "htop" "curl" "openssh"))

;; manifests/dev.scm — 开发工具
(use-modules (guix gexp))
(append-manifests
  (list
    (specifications->manifest
      '("gcc-toolchain" "cmake" "gdb"))
    ;; 可以引用其他 manifest
    (load-manifest "base.scm")))

;; manifests/python.scm — Python 环境
(specifications->manifest
  '("python" "python-pip" "python-virtualenv"
    "python-numpy" "python-pandas"))

# 1. 语法检查
guix build my-package

# 2. 风格检查
guix style my-package

# 3. 静态分析
guix lint my-package

# 4. 安全检查
guix lint --check-for-vulnerabilities my-package

# 5. 可重现性检查
guix build --no-substitutes --check my-package

;; 标准包定义模板
(define-module (mychannel packages example)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system gnu)
  #:use-module (guix gexp)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (gnu packages)
  #:use-module (gnu packages base))

(define-public my-package
  (package
    (name "my-package")
    (version "1.0.0")
    (source
      (origin
        (method git-fetch)
        (uri (git-reference
               (url "https://github.com/user/my-package")
               (commit (string-append "v" version))))
        (sha256
          (base32 "0abc..."))))
    (build-system gnu-build-system)
    (native-inputs
      (list autoconf automake pkg-config))
    (inputs
      (list zlib libpng))
    (home-page "https://github.com/user/my-package")
    (synopsis "Short description of my package")
    (description "Longer description of my package, explaining
what it does and who it is for.  This should be at least
two sentences.")
    (license license:gpl3+)))

#!/bin/bash
# ci/build-all.sh — 构建通道中的所有包
set -e

CHANNEL_DIR="$(dirname "$0")/.."
cd "$CHANNEL_DIR"

echo "Linting all packages..."
guix lint -L . --all

echo "Styling all packages..."
guix style -L . --all

echo "Building all packages..."
# 找出所有公共包并构建
guix build -L . $(guix package -A -L . | awk '{print $1}' | sort -u)

echo "All checks passed!"

# .gitlab-ci.yml
stages:
  - lint
  - build

lint:
  stage: lint
  image: guix
  script:
    - guix pull
    - guix lint -L . --all
    - guix style -L . --check

build:
  stage: build
  image: guix
  script:
    - guix pull
    - bash ci/build-all.sh
  timeout: 2h

# 1. 确保所有包构建通过
bash ci/build-all.sh

# 2. 运行测试
guix build -L . --no-substitutes my-package

# 3. 更新 news.scm
vim news.scm

# 4. 提交并打标签
git add -A
git commit -m "release: update packages to latest versions"
git tag -a v2026.05 -m "May 2026 release"
git push && git push --tags

# 5. 通知用户
echo "New release! Run: guix pull"

# 1. 检查硬件兼容性
lspci -v | grep -i network
lspci -v | grep -i vga

# 2. 列出当前安装的软件包
# Debian/Ubuntu:
dpkg --get-selections | grep -v deinstall > packages.txt
# Fedora:
dnf list installed > packages.txt

# 3. 检查 Guix 中是否有这些包
while read pkg _; do
  guix search "^${pkg}$" | head -1
done < packages.txt

# 在现有系统上安装 Guix 包管理器
# 逐步将开发环境迁移到 Guix
guix install vim git python node

# 创建项目 manifest
guix shell --manifest=project.scm -- make

# 备份所有数据
# 安装 Guix System
# 使用之前编写的 config.scm
guix system init config.scm /mnt

# 部署 Guix Home
guix home reconfigure home-configuration.scm

# 使用官方构建服务器
guix build --substitute-urls=https://ci.guix.gnu.org vim

# 添加 Nonguix 替代源
# 在系统配置中：
(guix-service-type config =>
  (guix-configuration
    (inherit config)
    (substitute-urls
      (append '("https://substitutes.nonguix.org")
              %default-substitute-urls))
    (authorized-keys
      (append (list (plain-file "nonguix.pub" "..."))
              %default-authorized-guix-keys))))

# 设置最大并行构建数
guix build vim --max-jobs=8

# 在系统配置中设置
(guix-service-type config =>
  (guix-configuration
    (inherit config)
    (max-jobs 8)))          ; 每个构建 8 个并行任务

# 查看 store 大小
du -sh /gnu/store

# 清理不再使用的对象
guix gc --collect-garbage

# 保留更多空间给缓存
guix gc -C 50G   ; 保留至少 50GB

# 查看可回收空间
guix gc --list-dead | wc -l
guix gc --list-dead | du -sh

# 系统状态
guix describe                    # 通道版本
guix package --list-installed    # 已安装包
guix package --list-generations  # 历史版本
sudo herd status                 # 服务状态

# 磁盘使用
du -sh /gnu/store                # store 大小
guix gc --list-dead | wc -l     # 可回收对象数

# 网络诊断
guix build vim -v 3              # 详细构建日志
curl -I https://ci.guix.gnu.org  # 替代服务器连通性

# 配置验证
guix system build /etc/config.scm  # 验证系统配置
guix home build ~/.config/guix/home-configuration.scm  # 验证 Home 配置

# 克隆 Guix 源码
git clone https://git.savannah.gnu.org/git/guix.git
cd guix

# 设置 Git 邮件列表工作流
git config format.subjectPrefix "PATCH guix"

# 创建新分支
git checkout -b add-my-package

# 添加包定义
# 编辑 gnu/packages/my-category.scm

# 提交
git add gnu/packages/my-category.scm
git commit -m "gnu: Add my-package."

# 风格检查
./pre-inst-env guix style my-package

# Lint 检查
./pre-inst-env guix lint my-package

# 构建测试
./pre-inst-env guix build my-package

# 发送邮件
git send-email --to=guix-patches@gnu.org