From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jean Louis Newsgroups: gmane.emacs.help Subject: [SOLVED]: Re: Is there any existing solution to move list number backwards, forwards in a list? Date: Fri, 21 Oct 2022 12:28:11 +0300 Message-ID: References: Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="18525"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mutt/2.2.7+37 (a90f69b) (2022-09-02) To: Help GNU Emacs Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Fri Oct 21 12:34:59 2022 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1olpMh-0004aA-Cs for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 21 Oct 2022 12:34:59 +0200 Original-Received: from localhost ([::1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1olpMf-0005Jn-GU for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 21 Oct 2022 06:34:57 -0400 Original-Received: from [::1] (helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1olpG8-000125-Eu for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 21 Oct 2022 06:28:12 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1olpG4-0000nZ-PP for help-gnu-emacs@gnu.org; Fri, 21 Oct 2022 06:28:08 -0400 Original-Received: from stw1.rcdrun.com ([217.170.207.13]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1olpG2-0006Yq-Om for help-gnu-emacs@gnu.org; Fri, 21 Oct 2022 06:28:08 -0400 Original-Received: from localhost ([::ffff:197.239.7.218]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 0000000000055D52.0000000063527435.000017F8; Fri, 21 Oct 2022 03:28:04 -0700 Mail-Followup-To: Help GNU Emacs Content-Disposition: inline In-Reply-To: Received-SPF: pass client-ip=217.170.207.13; envelope-from=bugs@gnu.support; helo=stw1.rcdrun.com X-Spam_score_int: -17 X-Spam_score: -1.8 X-Spam_bar: - X-Spam_report: (-1.8 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_SBL=0.141, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 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-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:140234 Archived-At: * Jean Louis [2022-10-21 11:50]: > For purposes of changing priorities of objects in a set, I need to > move single item in a list backwards and forwards. > > Let us say item is number 7 in following list: > > '(1 2 3 4 5 6 7 8 9) > > Then I wish to move item number 7 to different number and renumber all > items so that number 7 becomes number 6 and number 6 comes in the > place of number 7. > > Situation is more complex, each object ID has its priority like one of > those in the list. So each object ID has to be updated with its > priority when I press single click. > > As it looks somehow common to me, maybe somebody knows if something > like that exists as a package. My request is complicated to understand. And I have made function which works, though it is slow as it has to update all the objects with new priority. Priorities could be anything like '(3 4 5) so how to update object with priority 4 to be before 3? Without adding some numbers it does not work. I have chosen to multiply items by 10, like '(30 40 50), then object's priority 40 can by decreased for 15 and get priority 25, or increased for 15 and get priority 55, this way priorities are solved. It is now up to me to speed it up by using only one SQL statement. (defun hyperscope-hyperdocument-set-priority (hyperscope-set id direction) (let* ((hyperdocuments (rcd-sql-list (cond (hyperscope-set "SELECT hyobjects_id FROM hyobjects WHERE hyobjects_parent = $1 ORDER BY hyobjects_priorities, hyobjects_id") (t "SELECT hyobjects_id FROM hyobjects WHERE hyobjects_parent = NULL ORDER BY hyobjects_priorities, hyobjects_id")) cf-db hyperscope-set)) (hash (make-hash-table :test #'equal)) (renumbered (let ((count 20)) (mapcar (lambda (id) (puthash id (* (setq count (1+ count)) 10) hash)) hyperdocuments)))) (cond ((eq direction 'back) (puthash id (- (gethash id hash) 15) hash)) ((eq direction 'forth) (puthash id (+ (gethash id hash) 15) hash)) (t (error "Verify arguments to `hyperscope-hyperdocument-set-priority'"))) (let ((keys (hash-table-keys hash))) (while keys (let ((key (pop keys))) (hlink-update-priority-1 key (gethash key hash))))))) -- Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns In support of Richard M. Stallman https://stallmansupport.org/