From 62a42174cbbb796f7d8bfa4df12ef844d35a6a72 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 28 Dec 2023 04:06:35 +0200 Subject: Add gnosis-dev-tags & random-items func --- gnosis-dev.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/gnosis-dev.el b/gnosis-dev.el index 57e3ddc..2457300 100644 --- a/gnosis-dev.el +++ b/gnosis-dev.el @@ -5,6 +5,21 @@ (require 'gnosis) +(defvar gnosis-dev-tags '("anatomy" "thoracic" "serratus-anterior" + "biochemistry" "informatics" "amino-acids" + "microbiology" "gram-positive" "gram-negative" + "fungi" "parasites")) + +(defun gnosis-dev-random-items (list x) + "Select X random items from LIST." + (let ((shuffled-list (copy-sequence list)) + selected-items) + (dotimes (_ x) + (let* ((index (random (length shuffled-list))) + (item (nth index shuffled-list))) + (setq selected-items (cons item selected-items)) + (setq shuffled-list (append (butlast shuffled-list index) (nthcdr (1+ index) shuffled-list))))) + selected-items)) (defun gnosis-dev-test () "Start testing env." (interactive) -- cgit v1.2.3