From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Emanuel Berg via help-gnu-emacs Newsgroups: gmane.emacs.help Subject: complicated code to do trivial (?) thing Date: Wed, 12 Jun 2019 01:50:06 +0200 Message-ID: <865zpby95d.fsf@zoho.eu> Reply-To: Emanuel Berg Mime-Version: 1.0 Content-Type: text/plain Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="262685"; mail-complaints-to="usenet@blaine.gmane.org" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.1 (gnu/linux) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Jun 12 01:58:50 2019 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1haqfB-0016Cf-SQ for geh-help-gnu-emacs@m.gmane.org; Wed, 12 Jun 2019 01:58:49 +0200 Original-Received: from localhost ([::1]:55906 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1haqfA-00029e-7I for geh-help-gnu-emacs@m.gmane.org; Tue, 11 Jun 2019 19:58:48 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:37797) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1haqey-00027J-9n for help-gnu-emacs@gnu.org; Tue, 11 Jun 2019 19:58:38 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1haqWu-0007ic-Ek for help-gnu-emacs@gnu.org; Tue, 11 Jun 2019 19:50:17 -0400 Original-Received: from [195.159.176.226] (port=45084 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1haqWu-0007gx-8K for help-gnu-emacs@gnu.org; Tue, 11 Jun 2019 19:50:16 -0400 Original-Received: from list by blaine.gmane.org with local (Exim 4.89) (envelope-from ) id 1haqWr-000xOp-5I for help-gnu-emacs@gnu.org; Wed, 12 Jun 2019 01:50:13 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Mail-Copies-To: never Cancel-Lock: sha1:kJ/cctENmreG65xR+fL3eSC8J6g= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 195.159.176.226 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.org gmane.emacs.help:120918 Archived-At: Why isn't this easy to do? Or is it? ;;; -*- lexical-binding: t -*- ;; This file: http://user.it.uu.se/~embe8573/emacs-init/abc.el ;; https://dataswamp.org/~incal/emacs-init/abc.el (require 'cl-lib) (defun alphabet (&optional as-list) (let ((abc "a b c d e f g h i j k l m n o p q r s t u v w x y z")) (if as-list (cl-remove ?\ (string-to-list abc)) abc ))) ;; (alphabet t) ; (97 98 99 100 101 102 103 104 105 106 107 ...) ;; (alphabet) ; "a b c d e f g h i j k ..." (defun echo-alphabet (&optional number) (interactive "P") (let*((num (or number (length (alphabet t)))) (part (cl-subseq (alphabet t) 0 num)) (str-list (cl-mapcar (lambda (c) (char-to-string c)) part)) (str-almost (format "%s" str-list)) (str (substring str-almost 1 (1- (length str-almost)))) ) (message str) )) ;; (echo-alphabet) ; "a b c ... x y z" ;; (echo-alphabet 10) ; "a b c d e f g h i j" ;; (echo-alphabet -10) ; "a b c d e f g h i j k l m n o p" ;; (call-interactively #'echo-alphabet) (defalias 'abc #'echo-alphabet) (provide 'abc) -- underground experts united http://user.it.uu.se/~embe8573 https://dataswamp.org/~incal