alphapapa

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013-2017, 2019, 2021-2022 Ludovic Courtès <[email protected]>
;;; Copyright © 2013 Andreas Enge <[email protected]>
;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <[email protected]>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Mark H Weaver <[email protected]>
;;; Copyright © 2014, 2015, 2016, 2017 Alex Kost <[email protected]>
;;; Copyright © 2016, 2018 Arun Isaac <[email protected]>
;;; Copyright © 2016 Federico Beffa <[email protected]>
;;; Copyright © 2016 David Thompson <[email protected]>
;;; Copyright © 2016 Nikita <[email protected]>

alphapapa

(defun org-extra-get-properties (&rest props)
  (cons (org-current-level)
        (mapcar #'(lambda (prop)
                    (if (string= "ITEM_BY_ID" prop)
                        (format "[[id:%s][%s]]"
                                (org-entry-get (point) "ID")
                                (org-entry-get (point) "ITEM"))
                      (org-entry-get (point) prop)))
                props)))

alphapapa

(require 'org-ql)
(declare-function org-ql--normalize-query "org-ql" t t)

(org-ql-defpred ap:agenda (&key to)
  "An agenda-like view, for use with other `ap:' predicates.
Includes tasks which with keywords:
  NOW (i.e. a current task)
  UNDERWAY (if not TO, or planned to TO)
  NEXT (if not TO, or planned to TO)
  other keywords (if scheduled to TO or within deadline warning)

alphapapa

(defun key-quiz--shuffle-list (list)
  "Shuffles LIST randomly, modying it in-place."
  (dolist (i (reverse (number-sequence 1 (1- (length list)))))
    (let ((j (random (1+ i)))
	  (tmp (elt list i)))
      (setf (elt list i) (elt list j))
      (setf (elt list j) tmp)))
  list)

alphapapa

;; Original by Stefan van der Walt at <https://gist.github.com/stefanv/7984e8594ce0cfa00b6587f537ae3968>

;; Updated slightly to be more "packageable."

;; Allow org to understand github links
;;
;; Examples:
;;
;;  gh:scikit-image/scikit-image#1000
;;

alphapapa

#!/bin/bash

# ** Vars

# *** Emacs version
emacs="emacs"
emacsclient="emacsclient"
emacsWindowClass="Emacs"

# ** Functions

alphapapa

(define-module (gnu packages emacs-29.1)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses)
  #:use-module (gnu packages emacs)
  #:use-module (gnu packages sqlite)
  #:use-module (gnu packages autotools)
  #:use-module (guix utils)
  #:use-module ((guix licenses) #:prefix license:)

alphapapa

(cl-defun ap/display-buffer-in-side-window (&optional (buffer (current-buffer)))
  "Display BUFFER in dedicated side window."
  (interactive)
  (let ((display-buffer-mark-dedicated t))
    (display-buffer-in-side-window buffer
                                   '((side . right)
                                     (window-parameters
                                      (no-delete-other-windows . t))))))

alphapapa

;;; emacs-process-status-sentinel-ecm.el ---         -*- lexical-binding: t; -*-

;; This file provides an ECM for a possible bug in Emacs's process
;; handling.  The rub is whether a process sentinel may be called with
;; a STATUS string of "finished\n" while the process's
;; `process-status' is `open': If that is expected, then this may not
;; indicate a bug (but perhaps an issue that needs to be more
;; prominently documented).  But if it's not supposed to happen, then
;; this may provide a means to reproduce the behavior and troubleshoot
;; the bug.

alphapapa

Dockerfile
/.sandbox/
/.git/